Word VBA 2010 - 格式化表格单元格中的最后一段

Question

我有一个项目，可以从MadCap Flare导出到Word 2010中，并使用VBA脚本更新文档的格式。我试图检查文档中每个段落的样式，然后如果它匹配特定样式，则应用多列表级别格式。

它几乎没有问题。当段落作为表格单元格的最后一段时，问题就出现了。在这种情况下，范围包括单元格标记的结尾（因此范围包括单元格的每个段落），因此该更改将应用​​于表格单元格中的每个段落，而不仅仅是最后一个段落。

我使用的代码如下：

For Each iPara In ActiveDocument.Paragraphs 
    With iPara.Range 
     If iPara.Style.NameLocal = "div_NoteText" Then 
      .ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ 
      ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _ 
      ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _ 
      DefaultListBehavior:=wdWord10ListBehavior, ApplyLevel:=1 
     End If 
    End With 
Next 

我需要什么样的变化，使这个为表格单元格的最后一段工作？

Answer 1

“小区结束” 标志物是CHR（13）+ CHR（7），所以你可以使用类似于以下代码来检测位于单元格末尾的段落：

Sub Tester() 
Dim EOC As String 
Dim p As Paragraph 
Dim rng As Range 

    EOC = Chr(13) & Chr(7) 

    For Each p In ActiveDocument.Paragraphs 

     If Len(p.Range.Text) > Len(EOC) And p.Range.Text Like "*" & EOC Then 
       Set rng = p.Range 

       'commenting out next line will select the whole cell 
       rng.MoveEnd wdCharacter, -1 

       rng.Select 
       MsgBox "Found paragraph at end of cell..." 
     End If 

    Next p 

End Sub 

Answer 2

该程序将首先扫描不在表格中的所有段落，然后检查所有表格，只对每个单元格中的最后一段应用更改。

CheckParagraphs

Sub CheckParagraphs() 

For Each iPara In ActiveDocument.Paragraphs 
    With iPara.Range 
     If Selection.Information(wdWithInTable) = False Then 
      If iPara.Style.NameLocal = "div_NoteText" Then 
       .ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ 
       ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _ 
       ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _ 
       DefaultListBehavior:=wdWord10ListBehavior, ApplyLevel:=1 
      End If 
     End If 
    End With 
Next 

CheckTables 

结束子

CheckTables

Sub CheckTables() 

Dim oPara As Range 
Dim count As Integer 
For Each t In ActiveDocument.Tables 
    For Each r In t.Rows 
     For Each c In r.Cells 
      With c.Range 
       'Only act on the last paragraph 
       With .Paragraphs(.Paragraphs.count).Range 
        If .Style.NameLocal = "div_NoteText" Then 
         .ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ 
         ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _ 
         ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _ 
         DefaultListBehavior:=wdWord10ListBehavior 
         .SetListLevel Level:=1 
        End If 
       End With 
      End With 
     Next 
    Next 
Next 
End Sub