小编Vin*_*t M的帖子

我正在尝试让我的 Excel 宏在已打开的 Word 文档中的光标位置插入一些文本。

这是我写的。我知道 ActiveDocument.Range 有 Start 和 End 参数，但我似乎无法将“当前选择”作为值分配给它们。帮助？谢谢？

Sub InsertText()

Dim rngTemp As Word.Range

Set rngTemp = ActiveDocument.Range

With rngTemp

    .InsertAfter "This is my sample text"
    .Font.Name = "Tahoma"
    .Font.Size = 11
    .InsertParagraphAfter
End With

End Sub