µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Word
» VBA-¦Ûq¦sÀɤ覡 / Ū¨ú¤å¥óÄÝ©Ê
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[刦K]
VBA-¦Û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 22:35
|
¥u¬Ý¸Ó§@ªÌ
[刦K]
VBA-¦Ûq¦sÀɤ覡 / Ū¨ú¤å¥óÄÝ©Ê
VBA
ìµoªíªÌ¡Gleonchou (2005-04-18)
³o¬Oºô¤Í°Ý§Úªº, ´£¥X¨Óµ¹¤j®a°Ñ¦Ò ^^
°ÝÃD¡G¦bWord¤¤«O¦s¤å¥ó®É¡A¦p¦ó¤@¦¸±N¤å¥ó¯à¦P®É¥H.DOC©M.TXT®æ¦¡¶i¦æ«O¦s¡H
¦Ó¥BÁ٧Ʊæ¶HWord¤@¼Ë±q¤å³¹¤¤¦Û°Ê´£¨ú¼ÐÃD (µù1)¡C
[¤èªk¤@]¡@°µ¦¨¥¨¶°«ö¶s
¡@
¡E·s¼W¤@Ó¥¨¶°, ¤º®e¦p¤U--
¡@
Sub ¦Ûq¦sÀÉ()
1 With ActiveDocument: On Error GoTo 7
2 aa = .BuiltInDocumentProperties(wdPropertyTitle)
3 If aa = "" Then aa = .Range(, Len(.Sentences(1)) - 2)
4 .SaveAs aa, FileFormat:=wdFormatText
5 .SaveAs aa, FileFormat:=wdFormatDocument
6 End With: Exit Sub
7 MsgBox "ÀɦW " & aa & " µL®Ä, µLªk¦sÀÉ!"
End Sub
¡@
[»¡©ú]
1 ¤Þ¥Î¥Ø«e¤å¥ó. ¹ï¨Ï¥Î¤¤ªº¤å¥ó§@¥H¤Uªº°Ê§@.
¡@¥H¤UYµo¥Í¿ù»~ (ÀɦWµL®Ä, µLªk¦sÀÉ) «h¸õ¨ì²Ä 7 ¦æ
2 ³]©wÅÜ¼Æ aa = ¤å¥óÄÝ©Ê (ºKn¸ê°T) ªº"¼ÐÃD"
3 Y¨S¦³¼ÐÃD«h³] aa = ¤å¥ó¤¤ªº²Ä¤@Ó¥y¤l (¤£§t¥y¸¹¤Î¬q¸¨²Å¸¹) (µù1)
4 ±N¤å¥ó¥H aa ¬°ÀɦW, ¦s¬°¯Â¤å¦rÀÉ®× (.txt)
5 ±N¤å¥ó¥H aa ¬°ÀɦW, ¦s¬°¼Ð·Ç Word ¤å¥ó (.doc)
6 µ²§ô¥Ø«e¤å¥óªº¤Þ¥Î, µ²§ô¥¨¶°
7 ·í¦sÀÉ¿ù»~®ÉÅã¥Ü°T®§
¡E[¤u¨ã] ¡÷ [¦Ûq..] ¡÷ [«ü¥O] ¡÷ [¥¨¶°]
¡@±N¦¹¥¨¶°©Ô¥X¨Ó¦¨¬°¤@Ó«ö¶s (§A¥i¥H§ó§ï¥¦ªº¦WºÙ) (µù2)
¡@
¡E¦sÀɮɫö³oÓ«ö¶s§Y¥i.
¡@
[¤èªk¤G]¡@¨Ï¥Î¨Æ¥ó¥¨¶°¡A¦Û°Ê°õ¦æ
¡@
§â¤Wzªº¥¨¶°¤º®e©ñ¨ì Application ªº DocumentBeforeSave ¨Æ¥ó¸Ì¡C
³o¤èªkªº¦n³B¬O¤£»Ý¥t«Ø«ö¶s¡A¥un¨Ì¥®É²ßºD¦sÀÉ¡A´N·|¦Û°Ê¤Þµo³oӨƥ󥨶°¦Ó¹F¨ì©Ònªº¥\¯à¡C
¡@
¦ý¤@¶}©lªº·Ç³Æ¤u§@¸û³Â·Ð (¤@³Ò¥Ã¶h^^)¡A¦]¬° --¨Æ¥ó¥¨¶°¥²»Ý©ñ¦b©ÒÄݪºª«¥ó¼Ò²Õ¤§¤¤¡A¦ý¥Ñ©ó¨Ã¨S¦³¤º«Øªº Application ª«¥ó¼Ò²Õ ~(¥]¬A Word¡BExcel ©Î¨ä¥L Office ³nÊ^ªº VBA ³£¬O¦p¦¹)
©Ò¥H¥²»Ý¦Û¦æ·s¼W¤@Өëŧi¬° Application ª«¥ó¼Ò²Õ¡A¨Ã¥B¦b¨C¦¸ Word ¶}±Ò«án¥ý¤Þ¥Î³oÓ¼Ò²Õ¡A¤~¯àµo¥Í§@¥Î¡C
¡@
©Ò¥H©O¡Aµ{§Ç¦³ÂIÁcº¾... ¦³¤H·Q¤F¸Ñªº¸Ü¦A°Q½×¦n¤F ¡@
¡@
[ªþµù]
1. ¤@¯ë Word ¤å¥ó¦b²Ä¤@¦¸¦sÀÉ®É, ·|¥H¤å¥ó "ºKn¸ê°T" ªº [¼ÐÃD]°µ¬°¹w³]ÀɦW; Y¨S¦³¼ÐÃD, «h¥H¤å¥óªº²Ä¤@¥y§@¬°¹w³]ÀɦW¡C
2. «ö¶s¥²»Ý©ñ¦b¥ô¤@¤u¨ã¦C¤¤, ¥i©ñ¤J²{¦³ªº¤u¨ã¦C, ©Î¬O¦Û¦æ·s¼W¤@Ó¡C«ö¶s©Ô¥X¨Ó«á, [¦Ûq¤u¨ã] µøµ¡¥¼Ãö³¬«e, ¥i¦b«ö¶s¤W«ö¥kÁä¥Hקï¦WºÙ¡C
3. ¬°»¡©ú¤§«K¦Ó¦b¥¨¶°¤º¥[¤W¦æ¸¹, ¤@¯ë¬O¤£»Ýn¦æ¸¹ªº¡C
¼Ó¥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ªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡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¯»µ·