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

[Âà¶K] VBA-¦Û­q¦sÀɤ覡 / Ū¨ú¤å¥óÄÝ©Ê

[Âà¶K] VBA-¦Û­q¦sÀɤ覡 / Ū¨ú¤å¥óÄÝ©Ê

­ìµ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¤U­Yµo¥Í¿ù»~ (ÀɦWµL®Ä, µLªk¦sÀÉ) «h¸õ¨ì²Ä 7 ¦æ
2 ³]©wÅÜ¼Æ aa = ¤å¥óÄÝ©Ê (ºK­n¸ê°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¦Û°Ê°õ¦æ
¡@
§â¤W­zªº¥¨¶°¤º®e©ñ¨ì Application ªº DocumentBeforeSave ¨Æ¥ó¸Ì¡C
³o¤èªkªº¦n³B¬O¤£»Ý¥t«Ø«ö¶s¡A¥u­n¨Ì¥­®É²ßº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¤å¥ó "ºK­n¸ê°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
°¶Ôй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 : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD