將 Excel 2016 宏中變量的值復制到 Word 2016 中的新文檔

Question

我想在 W10 Excel 2016 宏中插入一些代碼

打開一個新的 Word 2016 文檔，然后
將變量“s”（字符串）的值從 Excel 宏復制到該新 Word 文檔，然后返回到 Excel 宏。

也許我知道可以用這個宏打開 Word 會有所幫助：

Sub startWord()

Application.ActivateMicrosoftApp xlMicrosoftWord

End Sub

TIA 為您提供幫助。

Answer 1

如果是將字符串簡單復制到新 Word 文檔中，則以下代碼應該可以工作。 您尚未指明從何處獲取字符串，因此我使用了 Sheet1 上單元格 A1 的內容。 您可以調整它以適應。

為了使以下內容起作用，您需要在 VBA 中啟用引用。 在 VBA 編輯器中，選擇工具/參考並選中“Microsoft Word 16.0 對象庫”框。 如果尚未選中，您會發現它按字母順序列出。

這對我有用——讓我知道你是怎么做的。

Option Explicit
Dim WordApp As Word.Application, myDoc As Word.Document, s As String
Sub CopyToWord()

On Error Resume Next
    
Set WordApp = GetObject(class:="Word.Application")
    
On Error GoTo 0

If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
    
    WordApp.Visible = True
    WordApp.Activate
    Set myDoc = WordApp.Documents.Add

    s = Sheet1.Range("A1").Value
    
    With myDoc.Content
        .Text = s
    End With

End Sub