Question

我有两个段落的文档：第一个有一个纯文本CC，第二个有一个纯文本CC的重复节CC。

我正在尝试将重复部分中CC的所有信息移到第一段CC中。到目前为止，我已经看过这段代码：

 Sub first_paragraph()

    Dim x As Integer
    Dim xNames As String
    Dim xEntry As String

    xNames = ""

    With ActiveDocument.SelectContentControlsByTag("VP_pav")

        For x = 1 To .Count
            With .Item(x)
                If .Tag = "VP_pav" Then
                    xEntry = ActiveDocument.SelectContentControlsByTag("VP_pav").Item(x).Range.Text
                        ' "if" for removing comma before first entry
                         If xNames = "" Then
                            xNames = xEntry + xNames
                            Else
                            xNames = xEntry + ", " + xNames
                            End If
                    End If
                End With
            Next x
        End With

    ActiveDocument.SelectContentControlsByTag("pirm_pas").Item(1).Range.Text = xNames

End Sub

在重复部分CC（然后添加新部分）中生成的CC似乎获得随机项目编号的问题（我认为第一个带有标签“ example”的CC将获得项目编号1，第二个带有相同标签的CC将获得项目编号2等，但事实并非如此。

由于新生成的抄送获得了随机的商品编号，因此第一段抄送中的值不正确。

是否可以使新生成的CC获得序列号？如果它们不是连续的，它们如何获得物料编号？应该采取一些不同的方法吗？

我正在添加图片以说明我的情况：

P.S。我正在删除我最近发布的关于这种情况下正确变量顺序的问题，因为我确定这（可能）不是问题。

Answer 1

使用所示的代码，没有任何内容告诉Word以任何顺序读取内容控件。在这种情况下，更好的方法是在“重复节”内容控件中循环内容控件。

下面的示例假定RepSec已分配给重复节内容控件的Title：

 Sub first_paragraph()
    Dim xNames As String, xEntry as String
    Dim ccRepSec as Word.ContentControl
    Dim cc as Word.ContentControl

    xNames = ""

    Set ccRepSec = ActiveDocument.SelectContentControlsByTitle("RepSec").Item(1)    
    For Each cc in ccRepSec.Range.ContentControls
         If .Tag = "VP_pav" Then
              xEntry = cc.Range.Text
              If xNames = "" Then
                 xNames = xEntry & xNames
              Else
                 xNames = xEntry & ", " & xNames
              End If
         End If
    Next cc

    ActiveDocument.SelectContentControlsByTag("pirm_pas").Item(1).Range.Text = xNames    
End Sub

在重复节内容控件中如何索引内容控件？

1 个答案: