VBA Word 动态插入文本 - ContentControl 的问题 - 替代方案？

如何解决VBA Word 动态插入文本 - ContentControl 的问题 - 替代方案？

在我的 Word VBA 项目中，我在使用 ContentControl 时遇到了很多困难。有许多内容控制文本字段都具有相同的名称（它们具有相同的名称，因为一开始不知道必填字段的总数，因此我根据需要多次复制和粘贴这些字段）。现在我想遍历内容控制字段并根据各个项目的索引更改字段的名称（例如，文档中的第一个字段 =“一个”，文档中的第二个字段 =“两个”等等） .

但是，在其他线程中提到，内容控制元素的索引与其在文档中的位置并不对应（不知道，它对应的是什么）。因此，我没有按顺序获取字段，而是得到例如"四" --> "一" --> "三" --> "二"（或任何其他可能的组合）。

字段的内容来自用户窗体文本框。文本框被命名为 Text_Box_1 到 Text_Box_4：

Private Sub test() 'Note: The actual code is more complex,this is just to demonstrate my problem.

Dim i As Integer

UserForm1.TextBox1 = "one"
UserForm1.TextBox2 = "two"
UserForm1.TextBox3 = "three"
UserForm1.TextBox4 = "four"    

For i = 1 To 4 - 1 'Since there are four text Boxes in the UserForm in this example,the text snippet containing the text field gets copied and pasted three times; Note: Here the number of textBoxes is pre-determined and fixed,in the actual project,it is variable.
    ActiveDocument.Bookmarks(Index:="copy").Range.copy '
    ActiveDocument.Bookmarks(Index:="Paste").Range.Paste
Next i

For i = 1 To 4 'This code is supposed to loop through the four content control text fields and insert text from the corresponding UserForm text Box. However,content control text field 1,unfortunately does no correspond to UserForm.TextBox1 for some reason.
    ActiveDocument.SelectContentControlsByTitle("Number").Item(i).Range.Text = UserForm1.Controls("TextBox" & i)
Next i

End Sub

Before running the code

After runnning the code

有没有办法以正确的顺序命名内容控制字段？如果没有，实现我的目标的替代方法是什么。我认为遗留文本字段不是一种选择，因为必须保护文档；我没有过多地研究 ActiveX 文本字段；文本框（形状）可能是另一种选择，但它们可能有自己的缺点。

令人沮丧的是，内容控制字段的行为如此怪异，看似非常简单直接的事情却如此复杂（至少对我而言）。

编辑：修正了标题中的一个错字。

解决方法

我会在例程中插入所需的文本和内容控件，而不是使用复制和粘贴。

Private Sub Test()

   Dim i As Integer

   UserForm1.TextBox1 = "one"
   UserForm1.TextBox2 = "two"
   UserForm1.TextBox3 = "three"
   UserForm1.TextBox4 = "four"
   
   Dim cc As ContentControl
   Dim rng As Range
   Dim ccLocation  As Range

   For i = 4 To 1 Step -1  'Insert in reverse order to ensure that they are correct in the document
      Set rng = ActiveDocument.Bookmarks("Paste").Range
      rng.InsertAfter Text:="Number: "
      rng.Collapse wdCollapseEnd
      Set ccLocation = rng.Duplicate
      rng.InsertAfter vbCr & "----------------------------------------" & vbCr
      Set cc = ccLocation.ContentControls.Add(wdContentControlText)
      cc.Range.Text = UserForm1.Controls("TextBox" & i).Text
      cc.Title = "Number" & i
   Next i

End Sub

如果您无法删除现有内容并且必须使用现有内容，则可以使用以下内容：

Private Sub Test()

   Dim i As Integer

   UserForm1.TextBox1 = "one"
   UserForm1.TextBox2 = "two"
   UserForm1.TextBox3 = "three"
   UserForm1.TextBox4 = "four"
   
   ActiveDocument.SelectContentControlsByTitle("Number").Item(i).Range.Text = UserForm1.Controls("TextBox1").Text

   Dim cc As ContentControl
   Dim rng As Range
   Dim ccLocation  As Range

   For i = 4 To 2 Step -1  'Insert in reverse order to ensure that they are correct in the document
      Set rng = ActiveDocument.Bookmarks("Paste").Range
      rng.InsertAfter Text:="Number: "
      rng.Collapse wdCollapseEnd
      Set ccLocation = rng.Duplicate
      rng.InsertAfter vbCr & "----------------------------------------" & vbCr
      Set cc = ccLocation.ContentControls.Add(wdContentControlText)
      cc.Range.Text = UserForm1.Controls("TextBox" & i).Text
      cc.Title = "Number" & i
   Next i

End Sub