如何确定MS Word宏中表格的页码？

Question

我在MS Word 2016中有一个包含200多个页面甚至更多表格的文档。 我需要将奇数页上的所有表都对齐到左侧，并且需要将偶数页上的所有表都对齐到右侧。 除了一两个表，如果需要，我可以手动进行修改，这些表都不会跨多个页面。 使用

Dim oTable As Table
For Each oTable In ActiveDocument.Tables
    oTable.Rows.Alignment = wdAlignParagraphRight
Next oTable

我可以将所有表格向右对齐。 当使用wdAlignParagraphLeft而不是wdAlignParagraphRight我可以将所有表格向左对齐。 但是我无法弄清楚如何获取表格的页码，因此我可以根据表格所在的页码分配对齐方式。

（这样的想法是，如果将它打印成一本书，桌子总是放在里面。如果有更好的方法可以让我听，那是可以的。如果打印成一本书，并且两页彼此相邻应该在内侧这样：）

+-------------------------------+
|    Even Page  |   Odd page    |
+---------------+---------------+
|       |Table| | |Table|       |
|               |               |
+-------------------------------+

Answer 1

扬基，您可以使用以下方法确定特定表所在的页码：

oTable.Range.Information(wdActiveEndPageNumber)

因此，要遍历文档中的所有表格并根据它们所在页面的奇数或偶数性质对齐它们，可以使用：

Dim oTable As Table
Dim PageNo As Integer

For Each oTable In ActiveDocument.Tables
    PageNo = oTable.Range.Information(wdActiveEndPageNumber)
    If PageNo Mod 2 = 0 Then    'The page number is EVEN.
        oTable.Rows.Alignment = wdAlignParagraphRight
    Else                        'The page number is ODD.
        oTable.Rows.Alignment = wdAlignParagraphLeft
    End If
Next oTable

如有其他疑问，请随时提出。