如何使用Visual Basic应用程序7.1将边距移动到单个单词页面？

Question

我有一个word document bookmark，我必须加载一个目录。 运行VBA macro(Microsoft visual basic for aplications 7.1)并尝试在bookmark中加载表时，他会在第二页上展开太大。 我需要使用bookmark更改页面的边距，而不是整个文档，因此表格只适用于一页。 我已尝试选择bookmark文本，然后将更改应用于选择，但它适用于整个文档。

这是我尝试过的代码：

 ActiveDocument.Bookmarks.Item("bmTable").Select
        With Selection.PageSetup
            .TopMargin = CentimetersToPoints(-1)
            .BottomMargin = CentimetersToPoints(0)
            .RightMargin = CentimetersToPoints(1.5)
            .HeaderDistance = CentimetersToPoints(0.5)
        End With
    End If

提前致谢。