word VBA_替换下划线

傷城~ 2023-07-10 09:00 177阅读 0赞

Sub 替换下划线()
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        Selection.Find.Font.Underline = wdUnderlineThick
        Selection.Find.Replacement.ClearFormatting
        'Selection.Find.Replacement.Font.Underline = wdUnderlineThick
        With Selection.Find
            .Text = "[!^13^l]"
            .Replacement.Text = "__"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
         
     
         
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        Selection.Find.Font.Underline = wdUnderlineSingle
        Selection.Find.Replacement.ClearFormatting
        'Selection.Find.Replacement.Font.Underline = wdUnderlineThick
        With Selection.Find
            .Text = "[!^13^l]"
            .Replacement.Text = "__"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，177人围观）

还没有评论，来说两句吧...

相关阅读

相关 POI-word模板替换

说明：公司用的是poi-tl替换的，参考地址：[Poi-tl Documentation][] 主要的类是XWPFTemplate 我本地用的是poi，主要的类是XWPFD

淩亂°似流年/ 2024年04月03日 11:02/ 0 赞/ 90 阅读

相关 WORD图片版式转换宏VBA

' ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ ' Created By SHOUROU@ExcelHome 2007-12-11 5:28:2

冷不防/ 2023年10月08日 10:16/ 0 赞/ 10 阅读

相关 word如何替换

mysql如何用文本文件替换mysql一列的数据 1.将数据内容导入Excel,如图中B列2.其它列利用Excel本身拖拽所选区右下角小黑格的功能复制出来(E列也会自动增

向右看齐/ 2023年09月25日 09:38/ 0 赞/ 57 阅读

相关 word VBA_替换下划线

Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting

傷城~/ 2023年07月10日 09:00/ 0 赞/ 178 阅读

相关 Replace Words（C++单词替换）

解题思路：（1）排序+判断 class Solution { public: string helper(vector<string>&

一时失言乱红尘/ 2023年01月16日 16:18/ 0 赞/ 189 阅读

相关 Word高级替换

Word的替换功能应该说是相当的强大无比，强大之处在于使用灵活，避免了用户的手工单个操作，能够给用户节省非常非常多的时间，这也是微软的一贯作风，把用户所做的事情变到不能再简单的

悠悠/ 2022年12月25日 00:47/ 0 赞/ 144 阅读

相关 java word 替换_Java 修改/替换Word批注

本文将介绍通过Java程序来修改或替换Word文档中已有的批注内容。修改或替换方法包括：使用新的文本替换原有批注中的文本使用新的文本替换原有批注中的图片使用新的图

淩亂°似流年/ 2022年11月05日 10:49/ 0 赞/ 255 阅读

相关 Word 利用 VBA 批量设置图片格式

Word 利用 VBA 批量设置图片格式批量设置图片格式转为嵌入式图形参考资料批量设置图片格式 Sub setShapeStyl

左手的ㄟ右手/ 2022年10月07日 02:53/ 0 赞/ 488 阅读

相关 VBA 学习笔记 Word样式处理

VBA 学习笔记 Word样式处理移除样式并保留格式删除用户自定义样式删除未使用样式判断样式是否存在参考资料移除样式并保留格

╰+攻爆jí腚メ/ 2022年10月07日 01:56/ 0 赞/ 626 阅读

相关用VBA批量替换多个Word文档中同一内容

<table> <tbody> <tr> <td> </td> <td> </td> </tr> </tb

拼搏现实的明天。/ 2022年07月16日 22:52/ 0 赞/ 728 阅读