GenDocfromExcel()
'excel控制word,生成新文件，插入圖片和文件名，保存
'office
2003,
VBA工具/引用中要勾選Microsoft
Word
11.0
Object
Library
'office
2007,
VBA工具/引用中要勾選Microsoft
Word
12.0
Object
Library
'...
Range("A1:B13").Copy
'復制當前內容
Dim
WordApp
As
Word.Application
'定義變量
Set
WordApp
=
CreateObject("Word.Application")
'生成WORD對象
WordApp.Documents.Add
'新建文件
WordApp.Selection.Paste
'粘貼
fn$
=
"D:\"
&
Range("b1")
'生成文件名
WordApp.ActiveDocument.SaveAs
fn$
'保存文件
WordApp.Quit
'退出
Set
WordApp
=
Nothing
'取消變量
End
Sub