首先引用word,再增加以下代码
Dim W As Word.Application
Set W = New Word.Application
W.Visible = True
W.WindowState = wdWindowStateMaximize
W.Documents.Add
s = Dir("f:\doc\\*.doc")
While s <> ""
W.Selection.InsertFile FileName:="f:\doc\" + s, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
s = Dir()
Wend
行是行的。我只有把excel合并的。在VB里写好，然后选择EXCEL。把VB里的宏，写进EXCEL里。把几个EXCEL合并到一个里。
WORD怎么合并我没明白，它也有分表？
内容全部来源于网络收集，如有侵权，请联系网站删除！