µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Word
» VBA-¨ú¥N¤é´Á®æ¦¡
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[刦K]
VBA-¨ú¥N¤é´Á®æ¦¡
°¶ÔÐ
µ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-5-8 00:54
|
¥u¬Ý¸Ó§@ªÌ
[刦K]
VBA-¨ú¥N¤é´Á®æ¦¡
¤é´Á®æ¦¡
,
¥¨¶°
¥»©«³Ì«á¥Ñ °¶ÔÐ ©ó 2010-6-30 23:10 ½s¿è
ìµoªíªÌ¡Gleonchou (2005-03-05)
°ÝÃD¡G¦bword¦p¦ó±N¤¤¤å¤é´ÁÂনªü©Ô§B¼Æ¦rªº¤é´Á®æ¦¡?
¦p: ¤@¤E¤E¥|¦~¤C¤ë¤@¹ï¤Ò°ü
ÅÜ: 1994¦~7¤ë¤@¹ï¤Ò°ü
±¹ï³o°ÝÃD¥i¯à«Üª½Ä±´N·Q¨ì [·j´M/¨ú¥N] ªº¤è¦¡¡C
¦ý¦pªG¬O¤Ö¼Æ´XÓ¤é´Á¡AÁÙ¥i¤@Ó¤@Ó¨ú¥N¡A§_«h±q¡³~¤E¤À§O¨ú¥N¬°0~9n¾Þ§@¤Q¦¸¡A¦Ó¥BÁÙ¥i¯à¨ú¥N¨ì§OªºªF¦è (¨Ò¦p"¤@¹ï¤Ò°ü"ªº¤@)¡C
ÁöµMWord·j´M¥\¯à¤ä´©wildcard¡A¦ý¨ú¥N¥\¯àµLªkº¡¨¬¦¹°ÝÃDªº»Ý¨D(¾Ú§Ú©Òª¾,2000ª©)¡A©ó¬O¥¨¶°´N¬£¤W¥Î³õ¤F¡C
¸Õ¥Î¥H¤Uªº¥¨¶°¡AÀ³¥i¥H¬Ù¤£¤Ö¤O®ð¡G
µ{¦¡½X:
Sub test()
Selection.HomeKey Unit:=wdStory
x = "[¤@¤G][¤E¡³][¤C¤K¤E¡³][¤@¤G¤T¥|¤¤»¤C¤K¤E¡³]¦~*[¤@¤G¤T¥|¤¤»¤C¤K¤E¤Q]¤ë"
Do
¡@¡@Selection.Find.Execute x, MatchWildcards:=True
¡@¡@If Selection.Type = wdSelectionIP Then Exit Do
¡@¡@Selection.Text = Format(Selection.Text, "yyyy¦~m¤ë")
¡@¡@Selection.Collapse Direction:=wdCollapseEnd
Loop
End Sub
½Æ»s¥N½X
»¡©ú¡G
³o¬O¸U¥Î¦r¤¸(wildcard)ªºÀ³¥Î ¡A¥H¤é´Áªº¯S©Ê¨Ó¨M©wwildcard¥N½X«ç»ò¼g¡G
[¤@¤G][¤E¡³][¤C¤K¤E¡³][¤@¤G¤T¥|¤¤»¤C¤K¤E¡³]¦~*[¤@¤G¤T¥|¤¤»¤C¤K¤E¤Q]¤ë
¦pªG§A¤£¼ô¸U¥Î¦r¤¸¡A¥i¥ý§â¨CÓ [ ] ¬Ý§@¤@Ó¦r¡A[ ] ¸Ì±¨CÓ¦r²Å¦X¤å³¹¤ºªº´Nºâ¦¨¥ß¡C
³oÓ¥N½X¥i¥H·j´M¨ì 1970~2099 ©Ò¦³¦~¤ëªº¤º®e¡AY¤£¨¬ÁÙ¥i½Õ¾ã¡C
¥¨¶°¥ý±N´å¼Ð²¾¨ì¤å¥ó¶}ÀY (HomeKey Unit:=wdStory)¡A±µµÛ¶] Do... Loop °j°é¡A³v¤@·j´M(Find.Execute)²Å¦X¤Wzwildcard±ø¥óªº¤º®e¡A
¦pªG§ä¨ì¡G
¿ï¨ú½d³ò(selection)·|¿ï¨ú§ä¨ìªº¤º®e(¸Ó¦~¤ë¤Ï¥Õ)¡Aµ{¦¡·|³z¹LFormat¨ç¼Æ±N¥¦¨ú¥N¬°ªü©Ô§B¼Æ¦rªº¤é´Á®æ¦¡¡AµM«á§ïÅÜ¿ï¨ú°Ï(Collapse)¨ì¸Ó¦~¤ë¤§«á¡A·Ç³Æ¤U¤@¦¸·j´M¡C
¦pªG§ä¤£¨ì¡G
¿ï¨ú½d³ò¤£·|§ïÅÜ¡A¤]´N¬OµL¥ô¦ó°Ï°ì¤Ï¥Õ (Selection.Type = wdSelectionIP)¡A¦¹®É´N¸õ¥X°j°é (Exit Do) ¨Ãµ²§ôµ{¦¡¡C
§Ú¥Îªº¬O2000ª©¡A¥u¯à·Q¨ì³oÓ¤èªk...
¦pªG§Aª¾¹D·sª©¦³¬ÛÃöªº¥\¯à¡A©Î¦³¨ä¥L¤£¿ùªºÂI¤l¡AÅwªï¤À¨Éµ¹¤j®a®@
¼Ó¥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 :
¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡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¯»µ·