横线长短不一，要求统一替换成 <FILL.TAG>此处填答案</FILL.TAG>

yoshuya

1. Friday is the _____________ (six) day of a week.

2. Xiaomeng is a popular ____________________(report)at CCTV Station.

3. ---How do you know that autumn has arrived?

---One way is that the tree ______________(leaf),become yellow or red.

4. Mary becomes _____ (healthy) than before because she exercises every day.

5. My friends and I may not have time to chat at school. But we can do it on QQ. It's very _________________ (help) to our friendship.

6. People often say that money can't buy happiness(幸福).But some scientists think _____________ (different).They say it can make us happy, but only if we spend it on someone else.

横线长短不一，要求统一替换成  <FILL.TAG>此处填答案</FILL.TAG>

如下：

1. Friday is the<FILL.TAG>此处填答案</FILL.TAG>(six) day of a week.

替换长短不一的横线.zip (2.68 KB, 下载次数: 21)

2020-3-1 16:05 上传

点击文件名下载附件

duquancai

一句代码足以！！！》》》》》》》》》》》》》》》》》》》》》

1. Sub WordVBA_Demo()
   
2.     ThisDocument.Content.Find.Execute "^95{1,}", , , -1, , , , , , "<FILL.TAG>此处填答案</FILL.TAG>", 2
   
3. End Sub

复制代码

yoshuya

duquancai 发表于 2020-3-1 17:45
一句代码足以！！！》》》》》》》》》》》》》》》》》》》》》

弱弱地问一下，执行后无反应

相见是缘8

Sub 替换()
    With ActiveDocument.Content.Find
        .Execute "[_]{1,}", , , 1, , , , , , "<FILL.TAG>此处填答案</FILL.TAG>", 2
    End With
End Sub

yoshuya

相见是缘8 发表于 2020-3-2 14:31
Sub 替换()
    With ActiveDocument.Content.Find
        .Execute "[_]{1,}", , , 1, , , , , , "_",  ...

完美，谢谢！！！！！

wdpfox

不明白，这也不太美观呀。