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

dongfgdwdjg

13907933959 发表于 2016-9-5 15:45
网友好！

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

太厉害了，怎一个佩服了得！！唯送花聊以表达此意！谢谢！!

不知道怎么做到的、不明白其中原理，我需要学习的东西太多了。

我文件中有些段首的引号是不是就是你所说的“Calibri字体的引号”？还有的空白行只有那么一个引号，能不能统一去掉段首的引号、删除仅有引号的空白行啊？

另外，我用的OFFICE版本不同，还是不会把代码设置一个快捷按钮，这个版本您是否熟悉、能否教我？

再次表示感谢！您太厉害了，简直是神一样的存在啊。

13907933959

dongfgdwdjg 发表于 2016-9-5 18:00
太厉害了，怎一个佩服了得！！唯送花聊以表达此意！谢谢！!不知道怎么做到的、不明白其中原理，我需要学 ...

网友好！
感谢夸奖！但受之有愧！我也是小白一个，您的问题刚好是碰到我会一点的，我也是经常到论坛上求助，得到过论坛上多位前辈的帮助，一直心存感激！感激他们曾给过的帮助！
我对我用的OFFICE版本都还处在略知一二的阶段，对你用OFFICE版本不熟悉，所以、抱歉！不能帮到您！

请再测试下面的代码：

Sub 删除()
    Selection.Find.ClearFormatting  '清除查找框内的格式。

    Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。

    WithSelection.Find  '查找对象。

        .Text= vbTab  '查找的字符。

       .Replacement.Text = "" '替换为的字符。

       .Forward = True  '向下搜索。

        .Wrap = wdFindContinue  '换行继续搜索。

       .MatchWildcards = False  '不勾选"使用通配符"。

    EndWith  '语句结束。

   Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。

   Selection.Find.ClearFormatting  '清除查找框内的格式。

   Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。

    WithSelection.Find  '查找对象。

        .Text= "[!一-龥]@^13"  '查找的字符。

       .Replacement.Text = "。^p"  '替换为的字符。

       .Forward = True  '向下搜索。

        .Wrap= wdFindContinue  '换行继续搜索。

       .MatchWildcards = True  '勾选"使用通配符"。

    EndWith  '语句结束。

   Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。

   Selection.Find.ClearFormatting  '清除查找框内的格式。

   Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。

    WithSelection.Find  '查找对象。

        .Text= "[一-龥]^13"  '查找的字符。

       .Replacement.Text = "。^p"  '替换为的字符。

       .Forward = True  '向下搜索。

        .Wrap= wdFindContinue  '换行继续搜索。

       .MatchWildcards = True  '勾选"使用通配符"。

    EndWith  '语句结束。

    Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。    Selection.Find.ClearFormatting  '清除查找框内的格式。

    Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。

    WithSelection.Find  '查找对象。

        .Text= "^p"""  '查找的字符。

       .Replacement.Text = "^p" '替换为的字符。

       .Forward = True  '向下搜索。

        .Wrap= wdFindContinue  '换行继续搜索。

       .MatchWildcards = False  '不勾选"使用通配符"。

    EndWith  '语句结束。

   Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。

   Selection.Find.ClearFormatting  '清除查找框内的格式。

   Selection.Find.Replacement.ClearFormatting  '清除替换框内的格式。

    WithSelection.Find  '查找对象。

        .Text= "。^p。^p"  '查找的字符。

       .Replacement.Text = "。^p"  '替换为的字符。

       .Forward = True  '向下搜索。

        .Wrap= wdFindContinue  '换行继续搜索。

       .MatchWildcards = False  '不勾选"使用通配符"。

    EndWith  '语句结束。

   Selection.Find.Execute Replace:=wdReplaceAll  '本文档所有的关键字全部替换。

End Sub  '方法结束。

dongfgdwdjg

13907933959 发表于 2016-9-6 08:00
网友好！
感谢夸奖！但受之有愧！我也是小白一个，您的问题刚好是碰到我会一点的，我也是经常到论坛上求 ...

您客气了。就您现在掌握的这些，就够我学很长时间了，我慢慢消化一下，以后可能随时向您请教。
您给我的帮助很大，谢谢！
另外，问一下，您下边那句“如用自已的一技之长，帮别人度过一时的难关，是一个善举，也是一件乐事！”是怎么设置的？是不是只有中级以上才能设置啊？

13907933959

dongfgdwdjg 发表于 2016-9-6 10:57
您客气了。就您现在掌握的这些，就够我学很长时间了，我慢慢消化一下，以后可能随时向您请教。
您给我的 ...

网友好！
您进入您的帐号→左则的“更新资料”→“个人资料”→“个人信息”→“个人签名”在方框内可输入，至于级别，可能在字符的多少有限制。

dongfgdwdjg

13907933959 发表于 2016-9-6 12:16
网友好！
您进入您的帐号→左则的“更新资料”→“个人资料”→“个人信息”→“个人签名”在方框内可输 ...

请教一下老师，如果我不要修改某一文档中的段落，而是修改文件夹及其子文件夹中多个文件的指定段落，代码该怎么调整？
我以前的一个求助贴：
批量删除word文件中行（段)及段末统一标点符号
http://club.excelhome.net/thread-1294434-1-1.html
(出处: ExcelHome技术论坛)
其中一部分内容已经解决，有的还没有解决。希望您有时间时移步过去指点一下。谢谢！！

13907933959

dongfgdwdjg 发表于 2016-9-6 13:40
请教一下老师，如果我不要修改某一文档中的段落，而是修改文件夹及其子文件夹中多个文件的指定段落，代码 ...

网友好！
抱歉！实力不够，无法帮到您，耐心等待高人出手相助！

dongfgdwdjg

13907933959 发表于 2016-9-6 14:34
网友好！
抱歉！实力不够，无法帮到您，耐心等待高人出手相助！

没事的，我也是从学习角度去看待，对于能否解决并不是很迫切。从您这儿已经学到很多了。
感谢您的帮助！

dafanshu1

dongfgdwdjg 发表于 2016-9-5 18:00
太厉害了，怎一个佩服了得！！唯送花聊以表达此意！谢谢！!不知道怎么做到的、不明白其中原理，我需要学 ...

07以上版可在快速访问工具栏中设置代码快捷键。方法是右击快速访问工具栏——“自定义快速访问工具栏…”，或者打开word选项，点击右侧的“快速访问工具栏”，然后就可选择宏代码添加到快速访问工具栏了，还可点击“修改”设置按钮显示名称及图标。