本示例将活动窗口切换到页面视图,并隐藏由绘图工具创建的对象。

With ActiveDocument.ActiveWindow.View
    .Type = wpsPrintView
    .ShowDrawings = False
End With