Vba 从制表符段落生成单词表

我正试图从标题为“变更控制：”的选项卡中生成一个单词表。“表”有如下四列：

Col1选项卡Col2选项卡col3选项卡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

Private子命令按钮1\u单击（）
将文档变为文档
将k变为整数
以布尔值开始
调试。打印“开始”
Set doc=ActiveDocument
开始=错误
对于k=1到doc.parations.Count
设置段落=文件段落（k）
如果段落样式=文档样式（wdStyleHeading1），则
“第。
'para.Range.HighlightColorIndex=wdBrightGreen
'MsgBox para.Range.Text
如果左（修剪（段落范围文本），Len（“变更控制”）=“变更控制”，则
开始=真
如果结束
如果左侧（修剪（段落范围文本）、Len（“变更控制”））“变更控制”，则
开始=错误
如果结束
"如果开始,
"完"
如果结束
下一个k
端接头

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

研究可转换的方法。非常感谢您欢迎：-）昨晚我在iPad上写的时候，所以无法详细说明。对于论坛管理，我已经写了更多的信息作为“答案”，这样讨论就可以结束了。。。