VBA 逐个复制文件名到同一个word不同指定位置

VBA（Visual Basic for Applications）是一种事件驱动的编程语言，它被广泛用于Microsoft Office系列软件的自动化任务中。要使用VBA逐个复制文件名到同一个Word文档的不同指定位置，可以通过以下步骤实现：

1. 使用`FileSystemObject`对象来遍历文件夹中的文件。
2. 使用`Word`对象模型来操作Word文档，将文件名插入到指定位置。
3. 通过循环结构逐一处理每个文件名，并使用`Range`对象的`InsertAfter`方法将文件名插入到Word文档的特定位置。

以下是一个简单的VBA示例代码，演示如何实现上述功能：

Sub CopyFileNamesToWord()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim fileNames As Collection
    Dim i As Integer
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 获取目标文件夹
    Set folder = fso.GetFolder("C:\TargetFolder") ' 修改为实际文件夹路径
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 让Word可见，如果需要隐藏，则设置为False
    
    ' 打开一个Word文档或创建新文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\WordDocument.docx") ' 修改为实际Word文档路径
    
    ' 创建一个存储文件名的集合
    Set fileNames = New Collection
    
    ' 遍历文件夹中的每个文件
    For Each file In folder.Files
        fileNames.Add file.Name
    Next file
    
    ' 逐个将文件名插入到Word文档的指定位置
    For i = 1 To fileNames.Count
        ' 定位到Word文档中要插入文件名的位置
        ' 这里需要根据实际情况来定位Word文档中的插入点
        ' 例如，使用书签、查找文本等方法定位
        ' 下面的代码假设在每个书签位置插入文件名
        wordDoc.Bookmarks("Bookmark" & i).Range.InsertAfter fileNames(i)
    Next i
    
    ' 清理对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set folder = Nothing
    Set fso = Nothing
    Set fileNames = Nothing
End Sub

注意：在上面的代码中，`"Bookmark" & i`表示使用书签来定位插入位置，你需要在Word文档中预先设置好书签，书签的名称应该是`"Bookmark1"`, `"Bookmark2"`等等。如果使用其他方法定位插入点（如查找特定文本），需要根据实际情况调整代码。