如何使用VBA在Microsoft Word中的endNotes上格式化表？

Question

我们如何使用VBA在Microsoft Word中仅在endNotes上格式化表？

如果我们使用此代码：

Sub FormatTableDemo()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  With Tbl
    .AllowAutoFit = False
    .Rows.Alignment = wdAlignRowCenter
    .Range.Cells.VerticalAlignment = wdCellAlignVerticalTop
    .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
    .Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
    .Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    .Columns(1).Width = CentimetersToPoints(0.95)
    .Columns(2).Width = CentimetersToPoints(0.95)
    .Columns(3).Width = CentimetersToPoints(7#)
    .Columns(4).Width = CentimetersToPoints(6#)
  End With
Next
Application.ScreenUpdating = True
End Sub

我们仅格式化所有表（不是endnote表）

Answer 1

那很简单：

For Each Tbl In ActiveDocument.StoryRanges(wdEndnotesStory).Tables