VBA Word 搜索一行并替换它的一部分

Question

我必须为我的同事快速编写一些程序，而我在以下方面被困了一段时间。目标是使用 MS Excel 中的数据填写 MS Word 模板。这是我最近遇到的问题。
MS Word 模板如下：

我们的想法是在左列（例如有机体）上搜索，取该行并将右列（单击此处输入文本）替换为 MS Excel 中的相应值。但我是 VBA 的新手，我不确定如何正确编程。我目前的代码是这个，它找到正确的左字符串，并将其替换为字符串 + MS Excel 值，但不在右列中替换。

Sub SearchAndReplace(inputKey As String, inputVar As String)
With Selection.Find
  .Text = inputKey
  .Replacement.Text = inputVar
  .Execute Replace:=wdReplaceOne, Forward:=True, _
  Wrap:=wdFindStop
End With    
End Sub

非常感谢您的帮助。如果有不清楚的地方，请随时提问。 提前谢谢你。

Answer 1

您发布的屏幕截图没有明确项目是否在表格中，但确实表明存在内容控件。

如果您使用标题和/或标签正确设置了内容控件，那么您可以使用以下内容：

Sub AddTextToContentControl(targetDoc As Document, ccTitle As String, textToAdd As String)
  Dim ctrl As ContentControl
  Set ctrl = targetDoc.SelectContentControlsByTitle(ccTitle).Item(1)
  ctrl.Range.Text = textToAdd
End Sub

Sub AddTextToContentControlByTag(targetDoc As Document, ccTag As String, textToAdd As String)
  Dim ctrl As ContentControl
  Set ctrl = targetDoc.SelectContentControlsByTag(ccTag).Item(1)
  ctrl.Range.Text = textToAdd
End Sub