怎么用宏复制word的内容到Excel？

要使用宏将 Word 的内容复制到 Excel 中，您可以按照以下步骤进行操作：

1. 打开 Excel，按下 `Alt + F11` 组合键，打开 Visual Basic for Applications (VBA) 编辑器。

2. 在 VBA 编辑器中，选择插入（Insert）-> 模块（Module），创建一个新的模块。

3. 在新的模块中，编写以下 VBA 代码：

```vba

Sub CopyWordContentToExcel()

    Dim wdApp As Object

    Dim wdDoc As Object

    Dim rng As Object

    Dim excelApp As Object

    Dim excelWorkbook As Object

    Dim excelWorksheet As Object

    Dim i As Integer

    ' 创建 Word 应用程序对象

    Set wdApp = CreateObject("Word.Application")

    ' 打开 Word 文档

    Set wdDoc = wdApp.Documents.Open("C:\Your\Word\Document\Path.docx") ' 替换为您的 Word 文档路径

    ' 设置 Excel 应用程序对象

    Set excelApp = GetObject(, "Excel.Application")

    ' 创建新的 Excel 工作簿

    Set excelWorkbook = excelApp.Workbooks.Add

    ' 循环复制 Word 文档中的每个段落到 Excel

    For Each rng In wdDoc.Paragraphs

        i = i + 1

        ' 在 Excel 中创建新的工作表

        Set excelWorksheet = excelWorkbook.Worksheets.Add

        ' 将段落内容复制到 Excel 工作表的第一列

        excelWorksheet.Range("A" & i).Value = rng.Range.Text

    Next rng

    ' 保存并关闭 Word 文档

    wdDoc.Close SaveChanges:=False

    ' 显示 Excel 应用程序

    excelApp.Visible = True

    ' 清理对象变量

    Set wdApp = Nothing

    Set wdDoc = Nothing

    Set rng = Nothing

    Set excelApp = Nothing

    Set excelWorkbook = Nothing

    Set excelWorksheet = Nothing

End Sub

```

4. 在代码中的注释部分，将 `"C:\Your\Word\Document\Path.docx"` 替换为您要复制的 Word 文档的路径。

5. 按下 `F5` 键运行宏。

运行宏后，它将打开 Word 文档，逐个复制每个段落的内容，并将其粘贴到新创建的 Excel 工作簿中的第一列。最后，它将保存并关闭 Word 文档，并显示 Excel 应用程序。

请注意，运行宏时可能会有一些安全提示，需要授权宏运行。

这是一个简单的示例，您可以根据需要进行修改和扩展，以满足您的具体要求。

顶一下

(0)

0%

踩一下

(0)

0%