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

xiaoyouxi01 · 发表于 2018-8-7 09:30

本帖最后由 xiaoyouxi01 于 2018-8-7 09:31 编辑

文档已使用分节符，分为若干节（Section）。

不论当前光标定位在何处，运行代码后，将光标定位到第1节（Section）的末尾，即红色X处。
QQ截图20180807093104.png

请教下，vba代码能否实现？该如何写最简洁？

test.rar (15.51 KB, 下载次数: 2)

ming0018 · 发表于 2018-8-7 10:03

Sub gotoSection1_end()
Dim doc As Document, Rng As Range
Set doc = ActiveDocument
With doc.Sections(1)
If Len(.Range) > 1 Then
Set Rng = doc.Range(.Range.End - 2, .Range.End - 2)
Rng.Select
Else
msgbox "首节除分节符外无其它内容，无法定位。"
End If
End With
End Sub

复制代码

xiaoyouxi01 · 发表于 2018-8-7 12:51

ming0018 发表于 2018-8-7 10:03

非常感谢！原来可以这样用range！

但现在有个问题：

当有多个分节符，开启修订模式，删除第1个分节符。

所以sections(1)的末尾会变成“原先被删除的分节符的位置”。
QQ截图20180807125008.png

因为单位有要求，要保留修订痕迹，不能接受修订。在这种有修订的情况下，该如何定位定位到实际第1节的末尾呢？

test2.rar (10.48 KB, 下载次数: 2)

ming0018 · 发表于 2018-8-7 14:45

xiaoyouxi01 发表于 2018-8-7 12:51
非常感谢！原来可以这样用range！

但现在有个问题：

就是在第一节末，你把修订点开就是了。你隐藏了，光标就是出现在那个位置，没毛病。
你还是按图一的做法，光标要在哪，把个X，这样我更能明白你想让光标停在哪。

xiaoyouxi01 · 发表于 2018-8-7 17:30

本帖最后由 xiaoyouxi01 于 2018-8-7 17:34 编辑

ming0018 发表于 2018-8-7 14:45
就是在第一节末，你把修订点开就是了。你隐藏了，光标就是出现在那个位置，没毛病。
你还是按图一的做法 ...

按2楼的代码，光标会定位到下图中的小红圈处，不对。

希望是可以定位到下图红色X处。新的附件标了红色X。
QQ截图20180807172921.png

test3.rar (14.02 KB, 下载次数: 3)

ming0018 · 发表于 2018-8-8 17:26

xiaoyouxi01 发表于 2018-8-7 17:30
按2楼的代码，光标会定位到下图中的小红圈处，不对。

知道了，就是跳到第二节末，这个你自己会不会改？不会改就等我有空再写。这两天忙。

xiaoyouxi01 · 发表于 2018-8-8 18:44

ming0018 发表于 2018-8-8 17:26
知道了，就是跳到第二节末，这个你自己会不会改？不会改就等我有空再写。这两天忙。

直接改第二节末我是会的。

但问题是：实际文档的第1节，究竟是Section几，这个不确定。。。

①如果文档没有修订内容，那第1节就是Section(1)。
②如果文档有修订内容，但是修订中没有被删除的分节符，那第1节也是Section(1)。
③如果文档有修订内容，并且修订中有1个被删除的分节符，那第1节就是Section(2)。
④如果文档有修订内容，并且修订中有N个被删除的分节符，那第1节就是Section(1+N)。

针对这几种情况，代码要做到通用，就不知道如何去做判断了。。。

等大神有空再帮忙看看~多谢多谢！！！

ming0018 · 发表于 2018-8-9 08:18

xiaoyouxi01 发表于 2018-8-8 18:44
直接改第二节末我是会的。

但问题是：实际文档的第1节，究竟是Section几，这个不确定。。。

思路很清晰嘛，照着你的思路做就可以了。

ming0018 · 发表于 2018-8-9 09:13

Sub gotoSection_end_main()
Dim doc As Document, Rng As Range, SecCount%, RevCount%, SecNum%
Set doc = ActiveDocument
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
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 · 发表于 2018-8-9 12:38

ming0018 发表于 2018-8-9 09:13
试一下这个

还是不行诶。。。我试了这段代码，定位是不对。。
这段代码运行后，光标定位到了红圈的位置，并没有定位到红色X处。。

傲游截图20180809123633.png

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

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

评分