word中如何让光标置于本页首？请问下代码怎么实现

lhj1861

word中如何让光标置于本页首？请问下代码怎么实现

ke3088

With ActiveDocument.Bookmarks("\page").Range
    .Collapse wdCollapseStart
    .Select
End With

相见是缘8

Sub 移动光标至文首()
     Selection.HomeKey wdStory
End Sub

lhj1861

相见是缘8 发表于 2018-2-20 06:29
Sub 移动光标至文首()
     Selection.HomeKey wdStory
End Sub

谢谢回答，但不是文件首哦，我想实现光标停留在当前页，运行宏后光标到指定到第3页，输出值“你好”，光标在跳到下一页首

lhj1861

ke3088 发表于 2018-2-20 01:17
With ActiveDocument.Bookmarks("\page").Range
    .Collapse wdCollapseStart
    .Select

谢谢回答，但不是文件首哦，我想实现光标停留在当前页，运行宏后光标到指定到第3页(起始也就是想跳到指定一页)，输出值“你好”，光标在跳到下一页首。文档里没标签的

duquancai

lhj1861 发表于 2018-2-21 20:31
谢谢回答，但不是文件首哦，我想实现光标停留在当前页，运行宏后光标到指定到第3页(起始也就是想跳到指定 ...

没明白你的意思。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

lhj1861

duquancai 发表于 2018-2-21 20:46
没明白你的意思。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 ...

老师你好，就是word比如有10页，我想光标跳到指定的第3页页首位置，怎么实现？谢谢了

duquancai

lhj1861 发表于 2018-2-21 21:39
老师你好，就是word比如有10页，我想光标跳到指定的第3页页首位置，怎么实现？谢谢了

Sub test()
    Dim myPage&, TotalPage&
    TotalPage = ActiveDocument.ComputeStatistics(2)
    On Error Resume Next
    myPage = InputBox("请输入页码！", , "3")
    If myPage = 0 Or myPage > TotalPage Then Exit Sub
    ActiveDocument.GoTo(1, 1, myPage).Select
End Sub

413191246se

杜先生，不好意思！我录制了一下宏，下面一句代码即可：
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"

413191246se

杜先生 过年好！新年好！春节好！——感谢去年的慷慨帮助，受益匪浅，谢谢！
楼主 过年好！新年好！春节好！