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

[Âà¶K] VBA-¦Û°Ê¤À¬q

[Âà¶K] VBA-¦Û°Ê¤À¬q

¥»©«³Ì«á¥Ñ °¶ÔÐ ©ó 2010-6-30 22:30 ½s¿è

­ìµoªíªÌ¡Gleonchou (2005-04-18)

°ÝÃD¡G¦p¦ó±N¤@½g¦³¤@¸U¦r¨S¦³¤À¬qªº¤å³¹¡A±N¥L¤À¬q¬°¦U30¦r¡A¦@330¬q? °£¤F¨C30­Ó¦r«ö¤@­Ó Enter ¥~,¦³µL§ó²«Kªº¤è¦¡??¡@
ÁÙ¬O.. §ä¨Ó§ä¥h§ä¤£¨ì¦¹¥\¯à.. ¥u¦n¤S¥Î¥¨¶°¤F~¡@
¸Õ°õ¦æ¦¹¥¨¶° (¦æ¸¹¶È¨Ñ»¡©ú¡A«D¥²­n) --

Sub ¦Û°Ê¤À¬q()
1¡@Selection.HomeKey Unit:=wdStory
2¡@Do
3¡@¡@x = Selection.MoveRight(, 30)
4¡@¡@If x = 0 Then Exit Do
5¡@¡@Selection.TypeParagraph
6¡@Loop
End Sub

¡e¨Ìµ{¦¡¦æ¸¹»¡©ú¡f¡@
1 ±N´¡¤JÂI²¾¦Ü¤å¥ó±Ò©l³B (= «ö Ctrl-Home)
2 °õ¦æ°j°é (Do... Loop)
3 ±N´¡¤JÂI¥k²¾30­Ó¦r¤¸, ¶Ç¦^­È¥áµ¹ÅÜ¼Æ x
4 ­Y x = 0 ªí¥Ü¥k²¾¥¢±Ñ (¤w¦ÜÀÉ®×µ²§À) «hµ²§ô°j°é
5 ¦b´¡¤JÂI´¡¤J¬q¸¨²Å¸¹ (= «ö Enter)
6 µ²§ô Do... Loop °j°é
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD