Question

我正在尝试从标题生成一个单词表，这些标题位于标题＆＃34;变更控制：＆＃34;之下。＆＃34;表＆＃34;有四列如下：

Col1选项卡Col2选项卡Col 3选项卡Col4返回

有人可以给我一个例子或方法如何做到这一点吗？

Private Sub CommandButton1_Click()
 Dim doc As Document
 Dim k As Integer
 Dim start As Boolean
 Debug.Print "Start"

 Set doc = ActiveDocument
 start = False
 For k = 1 To doc.Paragraphs.Count
    Set para = doc.Paragraphs(k)
    If para.Style = doc.Styles(wdStyleHeading1) Then
        'para.
        'para.Range.HighlightColorIndex = wdBrightGreen
        'MsgBox para.Range.Text
        If Left(Trim(para.Range.Text), Len("Change Control")) = "Change Control" Then
            start = True
        End If

        If Left(Trim(para.Range.Text), Len("Change Control")) <> "Change Control" Then
            start = False
        End If

        ' If start Then

        ' End If
    End If


 Next k
End Sub

Answer 1

您可以使用ConvertToTable方法将分隔格式的文本转换为Word中的表格。重要的是使用ANSI 13（vbCR /段落标记）作为行分隔符。您可以使用任何符号作为单元格分隔符。

从选项卡段落生成单词表

1 个答案: