從標籤段

Question

生成單詞表我試圖從標籤「變更控制：」下的標籤生成單詞表。 「表」有四列這樣的：

Col1中標籤col2的標籤（1,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 /段落標記）作爲行分隔符。您可以使用任何符號作爲單元格分隔符。