VBA 逐个复制文件名到word里面

在VBA（Visual Basic for Applications）中，逐个复制文件名到Word文档可以通过以下步骤实现：

1. 打开VBA编辑器（通常通过在Word中按下`Alt + F11`）。
2. 在VBA编辑器中，插入一个新模块（Module）。
3. 编写一个宏（Macro），使用`FileSystemObject`对象来遍历特定文件夹，并读取每个文件的名称。
4. 将读取到的文件名逐个复制到Word文档中。

以下是一个简单的VBA示例代码，演示了如何将指定文件夹中所有文件的文件名复制到Word文档中：

Sub CopyFileNamesToWord()
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim i As Integer
    
    ' 创建FileSystemObject对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 指定要遍历的文件夹路径
    Set folder = fs.GetFolder("C:\Your\Folder\Path")
    
    ' 打开Word应用程序
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 设置Word应用程序可见
    
    ' 新建Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 将每个文件名追加到Word文档中
        wordDoc.Content.InsertAfter file.Name & vbCrLf
    Next file
    
    ' 清理
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fs = Nothing
End Sub

在使用上述代码前，请确保将`C:\Your\Folder\Path`替换为实际要遍历的文件夹路径。

运行该宏后，指定文件夹中所有的文件名将会被逐个复制到新建的Word文档中。