ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] Word¹Ï¤ù¤j¤p¤@­P¤Æ...

[¤À¨É] Word¹Ï¤ù¤j¤p¤@­P¤Æ...

¥»©«³Ì«á¥Ñ mark15jill ©ó 2015-8-9 17:06 ½s¿è

¦¹½d¨Ò¥D­ì©l½X¬°ºô¸ô§ä¨ìªº
¦ýµo¦¹©«¥D­n¬O·Q¤À¨É
Àɮפº©Ò¬Ý¨ìªº¹Ï¤ù°ª«×¡B¼e«×ªºcm©M VBA ©Ò§e²{¼Æ¾Úªº¤ñ­È...
¨Ò¦p¡G§Ú¹Ï¤ù¥þ³¡­n²Î¤@¦¨¬°  ¼e«×¡G6.35cm  °ª«×3.89cm«h...

            myInlineShape.Width = 180         '¤½¤À©Mµ{¦¡¤ñ¨Ò¡G28.34645669   180/6.35cm =28.34645669<³q±`¥u¨ú¤p¼ÆÂI²Ä¤G¦ì ¥|±Ë¤­¤J´N¦n 28.347>
            myInlineShape.Height = 110.25  '¤½¤À©Mµ{¦¡¤ñ¨Ò¡G28.34190231   110.25/3.89cm =28.34190231<³q±`¥u¨ú¤p¼ÆÂI²Ä¤G¦ì ¥|±Ë¤­¤J´N¦n 28.342>

¦ý³o¤èªk·|¦³­Ó°ÝÃD¡A¦o©Ò§PÂ_ªº¬O¸ÓÀÉ®×¥þ³¡ªº¹Ï...
´«¥y¸Ü»¡ ¦pªG¦³¤p¹Ï¥Ü ¤p¹Ï¼Ð.. ¨º.....
  1. Sub ´O¤J¹Ï¤ù¬q¸¨©~¤¤()

  2.     Dim myInlineShape As InlineShape
  3.     For Each myInlineShape In ActiveDocument.InlineShapes
  4.         
  5.         If myInlineShape.Width <> 183.69 Or myInlineShape.Height <> 277.47 Then
  6.                     
  7.             myInlineShape.Width = 180 '¤½¤À©Mµ{¦¡¤ñ¨Ò¡G28.34645669   180/6.35cm =28.34645669
  8.             myInlineShape.Height = 110.25 '¤½¤À©Mµ{¦¡¤ñ¨Ò¡G28.34190231   110.25/3.89cm =28.34190231
  9.             With myInlineShape.Range.Paragraphs(1).Range.ParagraphFormat
  10.                 .CharacterUnitFirstLineIndent = 0
  11.                 .FirstLineIndent = 0
  12.                 .Alignment = wdAlignParagraphCenter
  13.             End With
  14.           End If
  15.     Next
  16.    
  17. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

·Æ¹«²¾¨ì¹Ï¤ù³sÂI¨â¤U
¶}±Ò³]©w¹Ï¤ù®æ¦¡/¤j¤p
§¹¦¨§A­nªº³W®æ«á«ö½T©w

·Æ¹«²¾¨ì²Ä¤G±i¹Ï¤ùÂI¤@¤U(¿ï¨ú)

´N¥i¥H­«½Æ³Ìªñªº£¸­Ó°Ê§@(§Y²Ä¤@±i¹Ï¤ù¤j¤p³]©wªº°Ê§@)
ÂI¿ï²Ä¤T±i¹Ï¤ù¦A«öF4
ÂI¿ï²Ä¥|±i¹Ï¤ù¦A«öF4
......
100±i¹Ï¤ù¥u­n«ö99¦¸F4
¬O¤£¬O«Ü§Ö?


ªþ°O¡G
«öF4§Y¥i­«½Æ¤W£¸­Ó°Ê§@
¦pªG«öF4¤§«e¬ODELET
¨º§A¤£Â_«öF4¥L´N·|¤£Â_ªº°õ¦æDELETE

TOP

¦pªG§A·|Photoshop³B²z¹Ï¤ù¡A
¥i¥H¿ý»s°Ê§@¡A
¥i§K¥h«ö99¦¸F4

TOP

·PÁ¤j¤j¤À¨É

TOP

­È±o°Ñ¦Ò¤@¤U

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD