如何将光标定位到第1节（Section）的末尾？

ming0018

xiaoyouxi01 发表于 2018-8-9 12:38
还是不行诶。。。我试了这段代码，定位是不对。。
这段代码运行后，光标定位到了红圈的位置，并没有定位 ...

Sub gotoSection_end_main()
    Dim doc As Document, Rng As Range, SecCount%, RevCount%, SecNum%
    Set doc = ActiveDocument
   
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupAll
        .View = wdRevisionsViewFinal
    End With
   
    SecCount = doc.Sections.Count
    SecNum = 1
    If SecCount = 1 Then
        Selection.EndKey wdStory '如果只有一节，光标定位到文末
    Else
        Do While SecNum < SecCount + 1
            If gotoSection_end(SecNum) Then Exit Do
            SecNum = SecNum + 1
        Loop
    End If
   
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupSimple
        .View = wdRevisionsViewFinal
    End With
End Sub

Function gotoSection_end(n)
    Dim doc As Document, Rng As Range, Findit As Boolean
    Set doc = ActiveDocument
    With doc.Sections(n)
        If Len(.Range) > 1 Then
            Set Rng = doc.Range(.Range.End - 1, .Range.End - 1)
            If Rng.Characters.First.Previous.Text = Chr(13) Then Rng.Move wdCharacter, -1
            If Rng.Revisions.Count = 0 Then
                Rng.Select
                Findit = True
            End If
        Else
            msgbox "首节除分节符外无其它内容，无法定位，光标返回首页。"
            Selection.HomeKey wdStory
            Findit = True
        End If
    End With
    gotoSection_end = Findit
End Function


再试

xiaoyouxi01

ming0018 发表于 2018-8-9 15:31
Sub gotoSection_end_main()
    Dim doc As Document, Rng As Range, SecCount%, RevCount%, SecNum%
...

仍旧不行。。还是定位在红圈那里。。

ming0018

xiaoyouxi01 发表于 2018-8-9 16:55
仍旧不行。。还是定位在红圈那里。。

我这里的环境是可以的，win7+office2013

xiaoyouxi01

ming0018 发表于 2018-8-9 17:05
我这里的环境是可以的，win7+office2013

我也是WIN7 office2013 64bit

你是用的test3来测试的吗？怎么我这边就不行呢。。。。。 = =!

难道有什么设置不一样。。

ming0018

xiaoyouxi01 发表于 2018-8-9 17:13
我也是WIN7 office2013 64bit

你是用的test3来测试的吗？怎么我这边就不行呢。。。。。 = =!

建议用office 32位兼容性更好。  你可以去32位的office上试一下看再说。