Question

VBA word 以下代码是实现将多个文档的内容复制到一个文档中，但是只可以复制97-03版本的word文档内容

输入2007版本的文档名称时 提示找不到该文档，请问应该怎么修改（问题出在第四行Documents.Open处）？
Sub 数据复制()
Dim Filename As String
Filename = InputBox("请输入要打开的文件名", "数据复制", "C:\Users\Administrator\Desktop\")
Documents.Open Filename:=Filename
Selection.WholeStory
Selection.Copy
Windows("新建 Microsoft Office Word 文档").Activate
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.Save
Documents(Filename).Activate
ActiveWindow.Close
End Sub

Answer 1

随便创建个新的word，修改下inputbox那里的路径
黏贴代码就可以用了

Sub 数据复制()

Dim fName As String
Dim Doct As Document

Set Doct = ThisDocument
fName = InputBox("请输入要打开的文件名", "数据复制", "D:\test\333.docx")
Documents.Open Filename:=fName
Selection.WholeStory
Selection.Copy
Doct.Activate
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.Save
Documents(fName).Close False

End Sub

追问

1、结果一样，还是只能复制word2003以前版本的文档内容，而2007的不行
2、实现的功能是将多个未知文件名的文档内容复制到同一个文档里面，所以路径里面不应该有具体的文件名，二fName = InputBox("请输入要打开的文件名", "数据复制", "D:\test\333.docx") 里的“333” 有什么意义？

追答

1.我经过实测了 2007,2010肯定没问题的 都可以复制
2.多个未知文件为什么要用inputbox？你用dir 或者fso啊 那个333是我建立的测试文档。
而且那里写什么都没关系，那里是inputbox的默认输入