Question

在一份文字文件中,大约有100个Content Controls (CC),有适当的标题和名称。然而,只想明确多功能闭关方案的内容,使闭关委员会本身保持下去。请只注意内容。 DELETE和 IED的功能消除了《刑法》的内容,因此不能保留《刑法》的内容。想要明确内容的是第11节,第23节,第45节,第24节, Apple01。下面是我写的:

Sub ClearCCs_Contents()
  Dim CC As ContentControl
  For Each CC In ActiveDocument.ContentControls
      CC.Range.Text = ""
  Next CC
End Sub

is that possible that i replace the "ActiveDocument.ContentControls" with a list of CC tags that i stated above? or is there any other direct simple approaches?

主要议题:利用标签/名称编制内容控制清单,并处理清单中项目内容明确的内容。

Answer 1

Use Title or Tag property to identify the desired CC

Sub ClearCCs_Contents()
  Dim CC As ContentControl, i As Long, arrCC
  Const CC_LIST = "Section11,Section23,Section45,Section24,AppleID01"
  arrCC = Split(UCase(CC_LIST), ",")
  For Each CC In ActiveDocument.ContentControls
    For i = LBound(arrCC) To UBound(arrCC)
        If UCase(CC.Title) = arrCC(i) Then
         If UCase(CC.Tag) = arrCC(i) Then
            CC.Range.Text = ""
            Exit For
        End If
    Next
  Next CC
End Sub

友情链接