Question

我尝试了两个版本的代码，它们稍有不同，但都无法正常工作。我需要一些帮助来弄清楚为什么以及如何做我需要做的事情

虽然我不确定为什么，因为它应该调用该文件夹中的所有.docx文件，所以第一部分代码立即以某种方式结束了循环并且不满足初始条件表达式

第二行代码在此行设置wApp.Visible = True时抛出错误无效使用属性

第一版

providedIn: 'root'

第二版

Dim folder As String
Dim doc As Document

folder = "G:\GAV\Educational On Assignment Folder\On Assignment Tour Reports\2019\On Tour Questionnaire"
file = Dir(folder & "*.dox*")
r = 1

Do While Len(file) < 0
    Set doc = Documents.Open(Filename:=folder & file)
    ActiveDocument.Selection.WholeStory
    Selection.Copy
    Workbooks("Reports Excel").Activate
    Cells(1, r).Paste
    doc.Close
    r = r + 1
    file = Dire
Loop

我需要Excel打开文件夹中的每个文件，复制其全部内容，然后粘贴到Excel中的列中。应该很简单

打开文件夹中的所有Word文档，然后将内容复制并粘贴回excel

0 个答案: