本示例设置网格线之间的水平和垂直间距,然后为当前文档启用“对象与网格对齐”功能。

With ActiveDocument
    .GridDistanceHorizontal = 9
    .GridDistanceVertical = 9
    .SnapToGrid = True
End With