word中试卷填空题的整理（括号型、横线型）

最新推荐文章于 2024-11-17 19:35:54 发布

温暖如冰

最新推荐文章于 2024-11-17 19:35:54 发布

阅读量810

点赞数

分类专栏： Word插件 word VBA 文章标签： vba 正则表达式

本文链接：https://blog.csdn.net/weixin_44090668/article/details/117201979

版权

在试卷整理中，我们从网上找来的填空题往往直接带有答案，一个一个删除实在太难了，几十页几百页得删除很久，我们可以做一段VBA代码：
**

一、括号型题目：

**
整理完要求删掉所有的横线上的所有内容（删除前备份文件）
整理钱是这样的
在这里插入图片描述
整理后这样子：

1.先看看VBA代码怎么做？

sub  填空题（）
Selection.Find.ClearFormatting()
        Selection.Find.Replacement.ClearFormatting()
        With Selection.Find.Replacement.Font
            .Underline = wdUnderlineThick
            .Color = -603914241
        End With
        With Selection.Find
            .Text = "（*）"
            .Replacement.Text = ""
            .Replacement.Font.Underline = wdUnderlineSingle
            .Replacement.Font.UnderlineColor = wdColorBlack
            .Wrap = wdFindContinue    '搜索全部
            .MatchAllWordForms = False
            .MatchWholeWord = False      '全字匹配
            .MatchSoundsLike = False    '同音【英文】
            .MatchWildcards = True '使用通配符
        End With
        Selection.Find.Execute(Replace:=wdReplaceAll)
        MsgBox("处理完毕")
    End</