鏈枃鐨勫璞℃槸锛氭湁涓�瀹?/p>
Excel VBA
鍩虹锛屽
Word VBA
杩樻病鏈変粈涔堣璇嗭紝鎯冲湪
Excel
涓�氳繃
VBA
鎿嶄綔
Word
杩樻湁鍥伴毦鐨勪汉銆?/p>
涓�銆佹柊寤?/p>
Word
寮曠敤
闇�瑕侀鍏堝垱寤轰竴涓
Word Application
瀵硅薄鐨勫紩鐢ㄣ�傚湪
VBA
涓紝宸ュ叿
-
寮曠敤锛岄�夊彇
鈥淢icroSoft Word 11.0 Object Library鈥?/p>
銆?/p>
鏂规硶涓�銆?/p>
New Word.Application
Dim Wordapp As Word.Application
Set Wordapp = NewWord.Application
Wordapp.Visible = True
'
鍙
'Wordapp.ScreenUpdating =False
'
灞忓箷鍒锋柊
Dim WordD As Word.Document
'
瀹氫箟
word
绫?/p>
Set WordD = Wordapp.Documents.Add
'
鏂板缓鏂囨。
鈥楽et WordD = Wordapp.Documents.open(filename)
'
鎵撳紑鏂囨。
鈥︹�?/p>
WordD.Close
'
鍏抽棴鏂囨。
Set WordD = Nothing
WordApp.Quit
'
閫�鍑?/p>
Word
瀵硅薄
鏂规硶浜屻�?/p>
CreateObject
Dim WordApp As Object
Set WordApp =CreateObject("Word.Application")
'
鏂板缓
Word
瀵硅薄
鈥?/p>
鍚庣画鎿嶄綔鍙婇��鍑轰竴鏍?/p>
鈥︹�?/p>
鏂规硶涓夈�?/p>
GetObject
鏂囦欢宸叉墦寮�鐨勬儏鍐典笅锛屼娇鐢細
SetWordD=GetObject(filename)
锛屽彲寤虹珛瀵规枃妗ｇ殑寮?/p>
鐢紝濡傛灉鏂囦欢娌℃湁鎵撳紑锛屽垯杩橀渶瑕佸厛鐢ㄦ柟娉曚竴鎴栦簩鏉ユ搷浣溿�?/p>
鑷充簬鏂规硶涓�鍜屾柟娉曚簩鐨勫尯鍒紝鍦ㄧ綉涓婅闂簡涓�涓嬶紝澶у笀浠殑鍥炵瓟鏄細
鏂规硶涓�锛氬墠鏈熺粦瀹?/p>
,
濂藉鏄湪瀵硅薄鍚庤緭鍏ュ彞鐐瑰彲浠ョ粰鍑哄揩閫熸彁绀猴紝鍥犱负闇�瑕佸厛寮曠敤瀵?/p>
璞★紝鎵�浠ュ鏄撳嚭鐜扮増鏈吋瀹归棶棰樸�?/p>
鏂规硶浜岋細鍚庢湡缁戝畾锛屾病鏈夋彁绀猴紝鏍规嵁杩愯浠ｇ爜鏈哄櫒涓婂璞＄殑鐗堟湰鍒涘缓瀵硅薄锛屽吋瀹规�?/p>
濂姐�?/p>