将 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