使光标到达上页第一行第一个字前的VBA？

ke3088 · 发表于 2017-10-20 16:06

不论光标在当前页的什么位置，如何才能用VBA使光标到达上页第一行第一个字前？
谢谢！

duquancai · 发表于 2017-10-20 20:34

可以做。。。。。。。

ke3088 · 发表于 2017-10-21 14:22

老师请赐教，谢谢

zhanglei1371 · 发表于 2017-10-21 15:17

Sub df()
On Error Resume Next
Num = Selection.Information(wdActiveEndPageNumber)
Dim reg As Rectangle
For Each reg In ActiveWindow.Panes(1).Pages(Num - 1).Rectangles '循环每页的矩形区域
If reg.Range.StoryType = wdMainTextStory Then '判断矩形区域是否为正文
a = reg.Range.Start
ActiveDocument.Range(a, a).Select: Exit Sub
End If
Next
End Sub

复制代码

duquancai · 发表于 2017-10-21 15:44

ke3088 发表于 2017-10-21 14:22
老师请赐教，谢谢

Sub shishi()
stNum& = Selection.Information(wdActiveEndPageNumber)
sr$ = Chr(32) & Chr(9) & Chr(11) & Chr(13) & ChrW(160) & ChrW(12288)
If stNum > 1 Then
      With ActiveDocument.GoTo(1, stNum - 1)
         .MoveWhile sr: .Select
      End With
Else
      MsgBox "光标已在第一页，不存在上一页！！！"
End If
End Sub

ke3088 · 发表于 2017-10-21 17:42

duquancai 发表于 2017-10-21 15:44
Sub shishi()
stNum& = Selection.Information(wdActiveEndPageNumber)
sr$ = Chr(32) & Chr(9 ...

谢谢，老师！运行后，参数无效：
QQ图片20171021173713.png

ke3088 · 发表于 2017-10-21 17:45

zhanglei1371 发表于 2017-10-21 15:17

已成，谢谢zhanglei1371兄

duquancai · 发表于 2017-10-21 19:17

ke3088 发表于 2017-10-21 17:42
谢谢，老师！运行后，参数无效：

无效就算了。。。。。。。。。。。。。。。。。。。

		自动登录	找回密码
密码			免费注册

[求助] 使光标到达上页第一行第一个字前的VBA？