请问如何让插入点在窗口垂直居中？

spg200

就是让Selection对应的插入点显示在窗口上下中间位置。
找了很长时间没有找到，非常感谢！

413191246se

Sub 垂直居中()
    If Documents.Count = 0 Then Documents.Add
    ActiveDocument.PageSetup.VerticalAlignment = wdAlignVerticalCenter '垂直居中
    Selection.TypeText Text:="Are you OK?"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage '单页
End Sub

spg200

非常感谢回复，可能我问题没有表述清楚。
The question is how to controllably scroll a MS Word document using VBA, so that a Selection or a specified Range is positioned e.g. 2 rows (lines) or e.g. about 10% from the top of the “visible page area”? And by “visible page area” I mean the document space between the Toolbar/Ruler and the Status bar in Word.

413191246se

SORRY，楼主！虽然每个单词似乎都认识，但整句话什么意思没弄明白，今天我看：工具菜单/选项/编辑标签---勾选“智能指针”这个不错，不知道与你的问题有联系没有？