如何将难度填写到每道题的下面？谢谢

kingtau

.Pattern = "(^【难度】\d\.\d{2})(?=\r)"
改成：
.Pattern = "(^【难度】\d\..+?)(?=\r)"

kingtau

如果只是小数位数改变，并且只是一位或两位，别的不变

也可以改成：

.Pattern = "(^【难度】\d\.\d{1,2})(?=\r)"

文人慕

kingtau 发表于 2019-12-19 11:34
如果只是小数位数改变，并且只是一位或两位，别的不变

也可以改成：

你好，刚刚我在用的时候发现一个问题，这样子会把难度填写好了，但是会无辜的删除文档中的图片，请问如何解决呢？我重新上传一份带有图片的文档，还麻烦你帮忙看一下。谢谢

tcdatongye

1. Sub 查找()
   
2. With Selection
   
3.   .HomeKey unit:=wdStory
   
4.   With .Find
   
5.     .MatchWildcards = True
   
6.     .Wrap = wdFindStop
   
7.     .Text = "【难度】[0-9.]{1,}"
   
8.     .Forward = True
   
9.     If .Execute Then
   
10.      .Parent.EndOf unit:=wdStory, Extend:=wdExtend
    
11.      arr = Split(.Parent, vbCr)
    
12.      .Parent.HomeKey unit:=wdStory
    
13.      s = 0
    
14.      .Text = "【难度】^13"
    
15.      Do While .Execute
    
16.        .Parent = arr(s)
    
17.        s = s + 1
    
18.        .Parent.Move
    
19.      Loop
    
20.     End If
    
21.   End With
    
22. End With
    
23. End Sub

复制代码

文人慕

tcdatongye 发表于 2020-2-17 16:05

你好，提示：“运行时错误“5623”，替换文本包含一组超出范围的数字。”请教如何修改？

tcdatongye

文人慕 发表于 2021-5-12 13:57
你好，提示：“运行时错误“5623”，替换文本包含一组超出范围的数字。”请教如何修改？

我这里一切正常