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

xiaoyouxi01

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

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


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

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

2018-8-7 09:30 上传

点击文件名下载附件

ming0018

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

复制代码

xiaoyouxi01

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

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

但现在有个问题：

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

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


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

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

2018-8-7 12:49 上传

点击文件名下载附件

ming0018

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

但现在有个问题：

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

xiaoyouxi01

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

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



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



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

2018-8-7 17:30 上传

点击文件名下载附件

ming0018

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

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

xiaoyouxi01

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

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

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

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

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

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

ming0018

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

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

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

ming0018

1. Sub gotoSection_end_main()
   
2.     Dim doc As Document, Rng As Range, SecCount%, RevCount%, SecNum%
   
3.     Set doc = ActiveDocument
   
4.     SecCount = doc.Sections.Count
   
5.     SecNum = 1
   
6.     If SecCount = 1 Then
   
7.         Selection.EndKey wdStory '如果只有一节，光标定位到文末
   
8.     Else
   
9.         Do While SecNum < SecCount + 1
   
10.             If gotoSection_end(SecNum) Then Exit Do
    
11.             SecNum = SecNum + 1
    
12.         Loop
    
13.     End If
    
14. End Sub
    
15. 
    
16. Function gotoSection_end(n)
    
17.     Dim doc As Document, Rng As Range, Findit As Boolean
    
18.     Set doc = ActiveDocument
    
19.     With doc.Sections(n)
    
20.         If Len(.Range) > 1 Then
    
21.             Set Rng = doc.Range(.Range.End - 1, .Range.End - 1)
    
22.             If Rng.Characters.First.Previous.Text = Chr(13) Then Rng.Move wdCharacter, -1
    
23.             If Rng.Revisions.Count = 0 Then
    
24.                 Rng.Select
    
25.                 Findit = True
    
26.             End If
    
27.         Else
    
28.             msgbox "首节除分节符外无其它内容，无法定位，光标返回首页。"
    
29.             Selection.HomeKey wdStory
    
30.             Findit = True
    
31.         End If
    
32.     End With
    
33.     gotoSection_end = Findit
    
34. End Function
    

复制代码

试一下这个

xiaoyouxi01

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

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