节末分节符判断的代码

ke3088

在Word中，如在段落末尾直接插入分节符，在节末没有段落标记的，如下图：



如在下一段落前插入分节符，在节末是有段落标记的，如下图：



现各位大师求助：判断第一节末是否有段落标记的代码
谢谢！

ke3088

哪位大师出手帮助一下

banjinjiu

高手啊！一直看到，没法解决，请楼主分享一下，谢谢。

ke3088

用查找^13^12的办法，宏把过程录制下来

ke3088

banjinjiu 发表于 2014-8-4 12:49
高手啊！一直看到，没法解决，请楼主分享一下，谢谢。

有感于本板块：高手不屑一顾，低手无能为力，造成板块很不活跃。为活跃板块尽一点微薄之力，将代码粘在下面，请高手进一步完善：

If ActiveDocument.Sections.Count >= 2 Then 'Sections节，Count数量

   ActiveDocument.Sections(2).Range.Select '选择二节

   Selection.HomeKey Unit:=wdLine '移动光标：wdStory文档开头,wdLine当前行开头

   '以上二句也可改为：其他移动语句，但没有指定第二节的精确

   With Selection.Find '查找操作

       .ClearFormatting '删除格式设置

       .Text = "^13^12" '查找的文本

       .Forward = False '搜索方向：True 向下，False 向上

       .MatchWildcards = True '通配符：True 包含，False 不包含

        If .Execute Then '查找成功

            MsgBox "在一起，心连心！"

       Else

            MsgBox "手足情，连着筋！"

        End If

   End With

End If

banjinjiu

ke3088 发表于 2014-8-6 09:43
有感于本板块：高手不屑一顾，低手无能为力，造成板块很不活跃。为活跃板块尽一点微薄之力，将代码粘在 ...

我当时使用的是这个程序，能使光标到达节的末尾。怎么判断节的末尾是否分节符没有方法。

1. Sub mn1()
   
2.     With ActiveWindow.View
   
3.         .ShowParagraphs = True 'true显示段落标记
   
4.     End With
   
5.     Application.Browser.Target = wdBrowseSection
   
6.     '选择浏览对象--按节浏览
   
7.     Application.Browser.Next '光标到下一节开始
   
8. Selection.MoveLeft Unit:=wdCharacter, Count:=1 '光标到第一节末尾
   
9. End sub

复制代码

判断光标位置后分节符：if last.range.insertafter=^13 & ^12，不知是否正确？

ke3088

banjinjiu 发表于 2014-8-6 09:55
我当时使用的是这个程序，能使光标到达节的末尾。怎么判断节的末尾是否分节符没有方法。判断光标位置后分 ...

从第一节末找^12，我估计是找不到的，因为^12在查找范围之后了，到底行不行没试过。我的代码反复试过没有问题，虽然长一点，但管用