怎样判断每段文字最后有无标点符号？

dongfgdwdjg

一篇WORD文件中很多段落，我想批量查找段落最后没有标点符号的（我的工作是找出段落末遗漏标点符号的进行补齐)，有什么办法可以做到？
谢谢了！

duquancai

无具体需求，无附件！都是空谈！！！开启全局匹配，开启多行模式  正则表达式为： "(?![^一-﨩\x00-\x7F]).$"

dongfgdwdjg

duquancai 发表于 2016-9-1 16:59
无具体需求，无附件！都是空谈！！！开启全局匹配，开启多行模式  正则表达式为： "(?![^一-﨩\x00-\x7F]). ...

是我大意了，我以为问问就能明白，没想到专业性那么强，恐怕只简单听听我还弄不明白。上个附件，请您帮忙！谢谢老师！
文档段落末标点太乱， 最终目标是把段落末所有符号和空格都替换为句号。中间目标：1.替换标点
2.替换空格
3.替换其他符号
随便完成那个目标都是进步。
再次感谢。

dongfgdwdjg

duquancai 发表于 2016-9-1 16:59
无具体需求，无附件！都是空谈！！！开启全局匹配，开启多行模式  正则表达式为： "(?![^一-﨩\x00-\x7F]). ...

老师，请给我讲解一下你的正则表达式好吗？我不懂。
"(?![^一-﨩\x00-\x7F]).$"
查了查，$表示行尾
^一-﨩是排除所有汉字
?!是进行负正向预查
我上边理解的对吗？\x00-\x7F是什么意思呢？还有，$前边那个点也让我迷惑。

13907933959

dongfgdwdjg 发表于 2016-9-1 20:10
是我大意了，我以为问问就能明白，没想到专业性那么强，恐怕只简单听听我还弄不明白。上个附件，请您帮忙 ...

网友好！
1、您是不是要把所有段尾的标点、符号、空格，都统一去掉，再替换为中文句号？
2、段尾中，有中文分号和Calibri字体的引号是否保留？再加上句号？
3、这种Calibri字体的引号是否可变为中文引号？

dongfgdwdjg

13907933959 发表于 2016-9-5 10:54
网友好！
1、您是不是要把所有段尾的标点、符号、空格，都统一去掉，再替换为中文句号？
2、段尾中，有 ...

1、要把所有段尾的标点、符号、空格，都统一去掉，再替换为中文句号；
2、段尾中，有中文分号和Calibri字体的引号不保留，直接删除后加上句号；
3、Calibri字体的引号可以变为中文引号。
我主要想通过这个案例学习些知识，所以，不管能否达到目标，只要过程中有值得学习的推进/知识点，我都深表感谢！您知道的，都可以说出来，或许您认为很平常的知识点，就可能对我产生很大帮助。
谢谢！！

13907933959

dongfgdwdjg 发表于 2016-9-5 11:58
1、要把所有段尾的标点、符号、空格，都统一去掉，再替换为中文句号；
2、段尾中，有中文分号和Calibri ...

网友好！看这个能否成？

Sub 删除所有段尾的标点＿符号＿空格替换为句号()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[!一-龥]@^13"
        .Replacement.Text = "。^13"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

dongfgdwdjg

13907933959 发表于 2016-9-5 12:10
网友好！看这个能否成？

Sub 删除所有段尾的标点＿符号＿空格替换为句号()

谢谢！送花。
能麻烦您解释一下代码的意思和思路吗？我不懂。
运行后，发现还有相当多一部分段落后没有标点，我在查找规律，看是什么原因造成的。
另外，替换后，首行缩进给改变了，这是个副作用，不知道能否解决。

dongfgdwdjg

13907933959 发表于 2016-9-5 12:10
网友好！看这个能否成？

Sub 删除所有段尾的标点＿符号＿空格替换为句号()

另外，请教个很菜的问题：在WORD中，代码能否象在excel中一样放到按钮中，点击按钮就可以 运行代码？怎么操作
我现在只会在VBE窗口中运行。

13907933959

dongfgdwdjg 发表于 2016-9-5 14:18
另外，请教个很菜的问题：在WORD中，代码能否象在excel中一样放到按钮中，点击按钮就可以 运行代码？怎么 ...

网友好！

抱歉！中午没有来得及测试代码，请重新测试下面的代码！

Sub 查找所有中文字结尾至段落符之间的所有的标点＿符号＿空格()
    Selection.Find.ClearFormatting  '清除查找框内的格式。
    Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。
    With Selection.Find  '查找对象。
        .Text = "[!一-龥]@^13"  '查找的字符。
        .Replacement.Text = "。^p"  '替换为的字符。
        .Forward = True  '向下搜索。
        .Wrap = wdFindContinue  '换行继续搜索。
        .MatchWildcards = True  '勾选"使用通配符"。
    End With  '语句结束。
    Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。
End Sub  '方法结束。


如想要把代码设置一个快捷按钮，可打开一个Word文档，依次右击文档上面的“工具→自定义→在出来的对话窗口左边→命令→宏→在右边找到那个宏→拖动到文档上面的工具栏中的合适位置，注意，这时不要关闭“自定义”对话框。右击刚刚拖到工具栏上的“Normal New Macros.test”，在弹出的快捷菜单中，选择“命名(N)”，将“命名”后面框中的“Normal.New Macros.test”删除，改为想要的名称（也可以用其它的任何图标、符号），关闭“自定义”对话框，即可。