将Excel数据导入Word

Question

我有一些代码用于从单元格导出数据，然后将其导入word文档。

我遇到问题的两个问题如下：

1. 现在它只是将单元格数据导入文档的开头。我需要它做的是将数据导入预定义的文本框

2. 现在我可以在VBA编辑器中运行代码并单步执行代码并运行它没有任何问题，但如果我将代码分配给按钮则会出错。问题是框​​出现，其中没有文字

这是我当前的代码

Sub Invoice()
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\Users\account\Desktop\Invoice.docx"

Dim strValue1 As String
Dim strValue2 As String
Dim strValue3 As String

objWord.Activate

strValue1 = Cells(Selection.Row, 2)
strValue2 = Cells(Selection.Row, 3)
strValue3 = Cells(Selection.Row, 4)
objWord.Selection.TypeText Text:=strValue1
objWord.Selection.TypeText Text:=strValue2
objWord.Selection.TypeText Text:=strValue3
End Sub

任何帮助都将非常感谢

干杯！ GreatSc0tt

Answer 1

您可以通过以下方式访问文本框：

objWord.ActiveDocument.Shapes（1）.TextFrame.TextRange.Text = strValue1
objWord.ActiveDocument.Shapes（2）.TextFrame.TextRange.Text = strValue2

希望这有帮助！