vb 合并word可是只能合并字符串。我想合并格式比如表格图片
Private Sub Command1_Click()Dim a As Word.Application
Dim b As Word.Document
Dim c As Word.Document
Dim e As Word.Range
Set a = CreateObject("Word.Application")
Set b = a.Documents.Add(Visible:=False)
Set c = a.Documents.Open(FileName:="d:\1\2.doc", ReadOnly:=True)
a.Selection.WholeStory
a.Selection.Copy
b.Content.InsertAfter Clipboard.GetText
c.Close
Set c = a.Documents.Open(FileName:="D:\1\3.doc", ReadOnly:=True)
a.Selection.WholeStory
a.Selection.Copy
b.Content.InsertAfter Clipboard.GetText
c.Close
Set c = Nothing
b.SaveAs "d:\a.doc"
b.Close
Set b = Nothing
Set a = Nothing
End Sub
