如何使用VBA将Word文档中的文本框值复制到不同Word文档的文本框中（MS Word 2003）

Question

希望这是一个简单的问题。

我有两个word文档（MS Word 2003），每个文档都有一个文本框对象。按下命令按钮后，我希望一个文档（“Reference_Text.docx”）文本框中的文本进入另一个文档的文本框。

下面显示了我在按下命令按钮时尝试使用的代码。我正在尝试使用“txtLocation_Analysis_1”中的文本填充文本框（txtLocation_Analysis），该文本位于Reference_Text.docx文件中。

Dim objWord As Word.Application 
Dim wd As Word.Document
Set wd = objWord.Documents.Open("C:\Users\Tim\Desktop\Reference_Text.docx")

ThisDocument.txtLocation_Analysis.Text = '(Want to call a "txtLocation_Analysis_1.text" from wd document)

如果这有意义，请告诉我 - 如果可以提供任何帮助，请：）

休

Answer 1

你试过吗

ThisDocument.txtLocation_Analysis.Text = "txtLocation_Analysis_1.text" ' A

或

ThisDocument.txtLocation_Analysis.Text = wd.txtLocation_Analysis_1.Text ' B

很抱歉，从措词中我仍然不清楚，但我认为您要么（A）字符串“txtLocation_Analysis_1.text”或（B）您打开的文档中另一个文本框的内容出现在文本框中的ThisDocument。