µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Word
» VBA-§å¦¸´¡¤J¦hÓ¤å¦rÀÉ
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[刦K]
VBA-§å¦¸´¡¤J¦hÓ¤å¦rÀÉ
°¶ÔÐ
µ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 22:29
|
¥u¬Ý¸Ó§@ªÌ
[刦K]
VBA-§å¦¸´¡¤J¦hÓ¤å¦rÀÉ
§å¦¸
,
VBA
ìµoªíªÌ¡Gleonchou (2005-04-18)
³o¬Oºô¤Í´¿°Ý§Úªº°ÝÃD¡G¡@
¦³100Ó¤å¦rÀÉ (ÀɦW³£¤£¤@¼Ë)¡A·Qn´¡¤J¤å³¹¤§¤¤¡A¦ý¬O Wordªº´¡¤JÀÉ®×¥\¯à¡A¨C¦¸¥u¯à´¡¤J¤@ÓÀɮסA¤£ª¾¬O§_¥i¥H¤@¦¸´N±N©Ò¦³ªºÀÉ®×´¡¤J??
§Ú§ä¨Ó§ä¥h, Word ¦ü¥G¯uªº¨S¦³¤@¦¸´¡¤J¦hÓÀɮתº¥\¯à~
¥u¦n¥Î¥¨¶°¨Ó°µ¤F...
¡@
½Ð·s¼W¨Ã°õ¦æ¥H¤U³oÓ¥¨¶°¡A¥¦·|¸ß°ÝÀɮצs©ñªº¸ô®|¡AµM«á¦Û°Ê±N¸Ó¥Ø¿ý¤U©Ò¦³¯Â¤å¦rÀÉ (*.txt) ´¡¤J¥Ø«e¤å¥ó¸Ì¡C
³oÓ¨Ò¤l¤]¥Ü½d¤F§å¦¸³B²zÀɮתº°ò¥»¤è¦¡ (Dir)¡C
PS. µ{¦¡¦æ¸¹¦b¦¹¶È¨Ñ»¡©ú¡A¤@¯ë¨Ã«D¥²n¡C
¡@
Sub ´¡¤J¤å¦rÀÉ()
1 mypath = Options.DefaultFilePath(wdDocumentsPath)
2 mypath = InputBox("½Ð¿é¤J¸ô®|¦WºÙ (¨Ò¦p C:\Temp)¡G", "´¡¤J¤å¦rÀÉ", mypath)
3 If mypath = "" Then Exit Sub Else On Error GoTo Z
4 If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
5 myfile = Dir(mypath & "*.txt", vbDirectory)
6 While myfile <> ""
7 ¡@Selection.InsertFile mypath & myfile
8 ¡@myfile = Dir()
9 Wend
Z
End Sub
¡@
¡e¨Ìµ{¦¡¦æ¸¹»¡©ú¡f¡@
1 ³]©wÅÜ¼Æ mypath = Word ¹w³]ªº¤å¥óÀx¦s¸ô®|.
2 ³]©wÅÜ¼Æ mypath = ¿é¤J¤è¶ô (¹w³]¬° mypath) ªº¦^¶Çµ²ªG.
3 Y¦b¿é¤JªÅ¥Õ©Î«ö¤F¨ú®ø, ¶Ç¦^ªÅ¦r¦ê, «hµ²§ô¥¨¶°;§_«h³]©w¥H¤Uµ{¦¡¥X²{¿ù»~®É, ¸õ¨ì Z ¦æ
4 ¦] mypath ¥Nªí¤@Ó¸ô®|, Y¥¦ªºµ²§À¤£¬O \ ²Å¸¹, «h¸É¤W.
5 ³]©wÅÜ¼Æ myfile = ¦b mypath ¸ô®|¤U·j´M©Ò¦³ txt ÀÉ©Ò±o¨ìªº²Ä¤@ÓÀɦW¡C
6 °õ¦æ°j°é, ª½¨ì¸Ó¸ô®|¤Uªº txt ÀɳB²z§¹²¦¬°¤î.
7 ¦b½s¿è´¡¤JÂI´¡¤JÀÉ®×.
8 ±NÅÜ¼Æ myfile ³]¬°¤U¤@Ó§ä¨ìªº txt ÀÉ.
9 µ²§ô While...Wend °j°é.
Z ¤£°µ¥ô¦ó°Ê§@, ¥u¨Ñµo¥ÍÀɮצs¨ú¿ù»~®É¸õ¦Ü¦¹³B (µ¥©óµ²§ôµ{¦¡)
¼Ó¥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 :
¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯W¡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¯»µ·