关于下划线替换括号

bown2022

排版的时候遇到一个新问题，文字下面有条黑线，但不下划线，怎么处理


先把有黑线部分的文字替换成（），并把文字放到“答案：”的后面，相应字段用“|”隔开

下划线替换.rar (9.61 KB, 下载次数: 13)

2022-10-14 10:53 上传

点击文件名下载附件

常扬帆

它叫“粗下划线”。
你选定它，在开始、在下划线U上点二下就知道了。
                     

蜀中草莽

Sub test()
   
    Selection.HomeKey 6
    Selection.Find.ClearFormatting
    Selection.Find.Font.Underline = wdUnderlineThick
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Execute "*", , , 1, , , 1, 1, , "（^&）", 2
    Selection.Find.Execute "）（", , , 1, , , 1, 1, , "", 2
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    For i = 1 To 10
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Execute "（([!（]@)）(*答案：*)^13", , , 1, , , 1, 1, , "（）\2\1|^p", 2
    Next
    Selection.Find.Execute "|^13", , , 1, , , 1, 1, , "^p", 2
    Selection.WholeStory
    Selection.Font.Underline = wdUnderlineNone
    Selection.HomeKey 6
End Sub

bown2022

蜀中草莽 发表于 2022-10-15 09:04
Sub test()
   
    Selection.HomeKey 6

非常感谢，给孩子排版，导入题库。你的代码我试过了，很好使。但您回帖前，我把下划线格式换了，我对比了一下带代码应该是“wdUnderlineDash”的问题，试着改了，但不对。

bown2022

蜀中草莽 发表于 2022-10-15 09:04
Sub test()
   
    Selection.HomeKey 6

谢谢，这是给孩子作业题库排版遇到的问题，谢谢您的代码，我试了，很好，但是在未解答前，我把下划线格式换了，运行不出结果，求助。

bown2022

蜀中草莽 发表于 2022-10-15 09:04
Sub test()
   
    Selection.HomeKey 6

非常感谢，给孩子排版，导入题库。你的代码我试过了，很好使。但您回帖前，我把下划线格式换了，我对比了一下带代码应该是“wdUnderlineDash”的问题，试着改了，但不对。

bown2022

蜀中草莽 发表于 2022-10-15 09:04
Sub test()
   
    Selection.HomeKey 6

一直提醒宏被禁止，用不成了

蜀中草莽

bown2022 发表于 2022-10-17 16:29
一直提醒宏被禁止，用不成了

文件 选项  信任中心  启用宏就可以了

蜀中草莽

bown2022 发表于 2022-10-17 08:40
非常感谢，给孩子排版，导入题库。你的代码我试过了，很好使。但您回帖前，我把下划线格式换了，我对比了 ...

   Selection.Find.Font.Underline = wdUnderlineThick
改为：
Selection.Find.Font.Underline = wdUnderlineSingle

   For i = 1 To 10
改为  For i = 1 To 100
就可以了

笨小孩1999

查找替换好像也可以