Word VBA MoveUp麻烦

Question

我使用以下脚本在MS Word中增加Selection。

 Selection.MoveUp Unit:=wdLine, Count:=10, Extend:=wdExtend

结果因当前页面视图而异，结果如下：

如果设置了页面视图，只显示一列页面，那么它会完美地扩展MoveUp。

如果设置了页面视图，使得有两个或更多页面彼此并排查看，并且您位于第二行或更远的页面中，那么一个MoveUp Count位于页面顶部选择整个上一页。

如果设置了“网页浏览量”，以便两个或多个网页彼此并排查看，并且您位于页面的顶行，那么一个MoveUp Count会停在顶部页面。

这是操作中的缺陷还是我没有错误地使用MoveUp功能？

Answer 1

我做了什么，作为一种解决方法。

在Project中，将Page View设置为100％作为DocumentNew Sub的一部分。然后将视图设置为100％，并在用户访问文档之前执行所有脚本。

在项目中 - Microsoft Word对象 - ThisDocument

Private Sub Document_New()

InitialScreen.Show

'If the view is set to View Pages Side by side it messes up the Move Selection
'WhenInserting the Group Headings
ActiveWindow.ActivePane.View.Zoom.Percentage = 100

End Sub

根据评论，我和wdParagrpah玩了一下。他是结果：

wdParagraph 不担心页面布局，这很好

Extend = wdExtend

从上面的行开始计数 不包括选择 将每个表行看作1

Extend = wdMove

计数从选择上方的行开始 将每个表行视为列数 段落标记基本上对每个计数使用段落标记 如果有“Shift + Enter”（新行，而不是新段落），则将其视为 一段，显然是