Excel VBA 从 Excel 复制范围并将其粘贴到 Word 标题文本框

Question

我有运行以下代码的 Excel 工作簿。我在 Word 文档中已经有徽标和页码，所以我不需要从 Excel 中粘贴整个范围。我有两个文本框，应该插入电子表格中的数据。

1. 我需要复制 Worksheets("Other Data").Range("A58:A60") 并将其粘贴到 Word 文档标题中的“文本框 1”。三个句子在不同的行上。文本框应该换行吗？

2. 我需要复制 Worksheets("Other Data").Range("A68") 并将其粘贴到 Word 文档标题中的“文本框 2”。一句。

3. AutoFitWindows 不起作用。必须有一些带有变量的东西，但我无法弄清楚到底是什么问题。尝试了不同的方法，但没有成功。

这是我的代码：

Sub excelToWord_click()

    Dim head As Excel.Range
    Dim foot As Excel.Range
    Dim WordTable As Word.Table
    Set wdApp = CreateObject("Word.Application")
    wdApp.Documents.Open FileName:=ThisWorkbook.Path & "\" & "MyDOC" & ".docx"
    wdApp.Visible = True

    Set head = ThisWorkbook.Worksheets("Other Data").Range("A58:A60")

    head.Copy

    '|| I need to paste copied cells to "Text Box 1" in my Word document ||'

    With wdApp.ActiveDocument.Sections(1)
        .Headers(wdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Shapes("Text Box 1").Activate
        head.Paste
    End With

    '|| ---------------------------------------------------------------- ||'

        Set head2 = ThisWorkbook.Worksheets("Other Data").Range("A68")

    head2.Copy

    '|| I need to paste copied cells to "Text Box 2" in my Word document ||'

    With wdApp.ActiveDocument.Sections(1)
        .Headers(wdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Shapes("Text Box 2").Activate
        head2.Paste
    End With

    '|| ---------------------------------------------------------------- ||'

        Set foot = ThisWorkbook.Worksheets("Other Data").Range("A62:H65")
    foot.Copy

    With wdApp.ActiveDocument.Sections(1)
    .Footers(wdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Paste
    End With

    '|| Autofit table to page in Footer ||'

    WordTable.AutoFitBehavior (wdAutoFitWindow)

    '|| ---------------------------------------------------------------- ||'

    'restore Word
    If wdApp.ActiveWindow.View.SplitSpecial <> 0 Then
        wdApp.ActiveWindow.Panes(2).Close
    End If
    If wdApp.ActiveWindow.ActivePane.View.Type = 1 _
    Or wdApp.ActiveWindow.ActivePane.View.Type = 2 Then
        wdApp.ActiveWindow.ActivePane.View.Type = 3
    End If
    wdApp.WordBasic.AcceptAllChangesInDoc
    'wdApp.ActiveDocument.PrintOut, Copies:=1

    wdApp.ActiveDocument.ExportAsFixedFormat outputfilename:=ThisWorkbook.Path & "\" & Sheets("MAIN").Range("D14").Value & ", " & Sheets("MAIN").Range("D11").Value & "_" & "Document" & "_" & ".pdf", exportformat:=wdExportFormatPDF

    wdApp.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & Worksheets("MAIN").Range("D14").Value & ", " & Worksheets("MAIN").Range("D11").Value & "_" & "Document" & "_" & ".docx"

        wdApp.Quit '<--| quit Word
    Set wdApp = Nothing '<--| release object variable
    'wdApp.ActiveWindow.Close savechanges:=False
End Sub

Answer 1

您的问题是因为您延迟绑定 Word 应用程序对象，而不是将 Word 引用安装到 VBA IDE。 这意味着任何对单词常量的引用都没有限定您用于单词应用程序的变量将被解释为默认值（0 或 Null）。

解决此问题的最简单方法是在 VBA IDE 中；转到 Tools.References 并确保选中 Microsoft Word ......旁边的复选框。

如果您希望对变量进行限定，那么您需要更改单词常量，以便它们以 WdApp 为前缀，您的 Word 应用程序变量。

例如wdApp.wdHeaderFooterIndex.wdHeaderFooterPrimary

安装 Word 参考后，您可以说

wdHeaderFooterPrimary.