µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Word
» VBA-Â^¨ú¥]§tÃöÁä¦rªº©Ò¦³¬q¸¨¥á¨ì·s¤å¥ó¤¤
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[刦K]
VBA-Â^¨ú¥]§tÃöÁä¦rªº©Ò¦³¬q¸¨¥á¨ì·s¤å¥ó¤¤
°¶ÔÐ
µoµu®ø®§
¥[¬°¦n¤Í
°¶ÔÐ
(°¶ÔÐ)
·í«eÂ÷½u
UID
4
©«¤l
376
¥DÃD
84
ºëµØ
0
¿n¤À
419
ª÷¿ú
419
ÂI¦W
0
§@·~¨t²Î
Win 8
³nÅ骩¥»
Office 2007
¾\ŪÅv
100
©Ê§O
¤k
¦b½u®É¶¡
99 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2022-6-2
¡@¼ÊºÙ:
°¶ÔÐ
ª©¥D
©«¤l
376
¥DÃD
84
ºëµØ
0
¿n¤À
419
ÂI¦W
0
§@·~¨t²Î
Win 8
³nÅ骩¥»
Office 2007
¾\ŪÅv
100
©Ê§O
¤k
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2022-6-2
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2010-6-30 23:03
|
¥u¬Ý¸Ó§@ªÌ
[刦K]
VBA-Â^¨ú¥]§tÃöÁä¦rªº©Ò¦³¬q¸¨¥á¨ì·s¤å¥ó¤¤
ÃöÁä¦r
,
VBA
ìµoªíªÌ¡Gleonchou (2005-04-30)
[°ÝÃD] ¦Û°ÊÂ^¨ú¡B¥t¦s¦³Ãö¬YÓ«ü©wÃöÁä¦rªº©Ò¦³¬q¸¨, VBA«ç»ò¼g?
³oÓ°ÝÃD¥O§Ú·Q¨ì¤FUnix/Linuxªº grep «ü¥O~
¦bLinux¥i¥H¥Îµuµu¤@¦æ«ü¥O¸Ñ¨Mªº¨Æ,¦bWindows³ºµMn°Ê¥Î¨ìµ{¦¡~ ¯u¬Oªº... ^^|||
(¦pªG¯u¦³³o¼Ëªº¤º«Ø«ü¥O©Î¥\¯à, ·Ð½Ð«ü¾É, Thanks!!)
Sub ªF§ä¦è§ä( )
¡@Set myRange = ActiveDocument.Content
¡@§äÔ£ = InputBox("§äÔ£?")
¡@§ä¨ì = myRange.Find.Execute(§äÔ£)
¡@Do While §ä¨ì
¡@¡@¥´¥] = ¥´¥] & myRange.Paragraphs(1)
¡@¡@§ä¨ì = myRange.Find.Execute(§äÔ£)
¡@Loop
¡@If IsEmpty(¥´¥]) Then MsgBox "§äµL!": Exit Sub
¡@Documents.Add: Selection = ¥´¥]
End Sub
½Æ»s¥N½X
³oÓ¥¨¶°¬O¥Î [´M§ä] ªº¤è¦¡¡A¦¬¶°©Ò¦³¥]§tÃöÁä¦rªº¬q¸¨¡AµM«á¤@¦¸¥á¨ì·s¤å¥ó¤¤¡C
¥Ñ©ó Word2002 ¦³ [¦h«¿ï¨ú] ªº¥\¯à, ©Î³\¥i¥H¤@¦¸³B²z, ¤£¶·¥Î¨ì°j°é¤]»¡¤£©w~~
PS. grep«ü¥OÀ³¸Ó¬O¥u¯à³B²z¯Â¤å¦rÀÉ®×, ·Q·Q¤Sı±o®³³oÓ¨Ó¸ò Word / VBA ¤ñ¸û, ¦ü¥G¦³¤í¤½¥.. :p
--------------------------------------
¦³¸Õ¹L¤W±¥¨¶°ªº¤H¥i¯à·|µo²{, Y¬O¦P¤@¬qªºkeyword¦³¤@Ó¥H¤W, ·|³Q«½Æ³B²z;¤]´N¬O¦P¤@¬q¥i¯à·|³Q«½ÆÂ^¨ú¦Ü·s¤å¥ó.
nÁקK³oºØ±¡§Î, ¥i¦b Do...Loop ¶¡´¡¤J¤@¦æ:
myRange.EndOf wdParagraph
Sub ªF§ä¦è§ä( )
¡@Set myRange = ActiveDocument.Content
¡@§äÔ£ = InputBox("§äÔ£?")
¡@§ä¨ì = myRange.Find.Execute(§äÔ£)
¡@Do While §ä¨ì
¡@¡@¥´¥] = ¥´¥] & myRange.Paragraphs(1)
¡@¡@myRange.EndOf wdParagraph
¡@¡@§ä¨ì = myRange.Find.Execute(§äÔ£)
¡@Loop
¡@If IsEmpty(¥´¥]) Then MsgBox "§äµL!": Exit Sub
¡@Documents.Add: Selection = ¥´¥]
End Sub
½Æ»s¥N½X
myRange.EndOf wdParagraph ªº·N«ä¬O§â myRange §ï³]©w¦Ü¸Ó¬q¸¨ªºµ²§À,¤]´N¬Oª½±µ±q¤U¤@¬qÄ~Äò´M§ä,§Y¥iÁקK«½Æ³B²z¦P¤@¬qªºkeyword.
wdParagraph ¬O EndOF «ü¥O(¤èªk)ªº°Ñ¼Æ,«ü¥H ¬q¸¨ ¬°³æ¦ì. ¦¹°Ñ¼Æ¥i«ü©w¨ä¥L³æ¦ì, ¦p wdCharacter (¦r¤¸)¡BwdWord (³æ¦r)...µ¥µ¥, ¸Ô²Ó¥Îªk½Ð¨£ Word VBA »²§U»¡©ú~
¼Ó¥D¼ö©«
¡uªÅ¥Õ¨¥÷ÃÒ¥¿¤Ï±¡v¦C¦L½d¥»
¦bWord¤¤³]©w¤½¦¡¹Bºâ
½Ð±ÐÃö©ó¦X¨Ö¦C¦L°ÝÃD
¦b PowerPoint¤º©ñ¸m/³sµ²excelÀÉ®×
±ÀÂË°¶ÔЪ©¥D·s§@«~¡m¥Ñ²L¤J²`§Ö¼Ö¾ÇExcel¨ç
±NWordÀÉ®×ÂনPPTÀÉ®×
¶±®Ø½uªº©³³¡¤£¨£¤F!?
½Ð±ÐÃö©óºI¨úÀx¦s®æ¤¤ªº°ß¤@È
¬°¤°»ò¤å¥ó¤º¦h¤F«Ü¦hªºÂŦ⩳½u?
§ó§ï§ë¼v¤ù¶½X¦ì¸m
¦¬ÂÃ
¤À¨É
°¶Ôй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 :
¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·