[求助]批量删除选择题题号前(如括号之类)内容的问题

tangqingfu

Sub 批量删除选择题题号前如括号之类的内容()
Dim myRange As Range, myend As Long
'如何没有选定区域则作全文档处理
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
myend = myRange.End  '取得待区域的结束位置
 With myRange.Find
    .ClearFormatting '清除查找框格式
    .Replacement.ClearFormatting '清除替换框格式
    .MatchWildcards = True   '勾选“使用通配符”
    .Text = "^13(*)([0-9]{1,})[.、。．\\^9^32^s　]{1,}(*)^13"
    .Execute replacewith:="^p\2．\3^p", Replace:=wdReplaceAll
 End With
End Sub

在执行以上代码后,发现题号没有对齐,原因是段落缩进造成的,请教如何添加代码(没有选定区域则作全文档处理),段落缩进设置为0?

替换前后效果如下:

 

T58vsThx.rar (4.06 KB, 下载次数: 44)

2008-6-17 18:34 上传

点击文件名下载附件
[求助]批量删除选择题题号前(如括号之类)内容的问题

[此贴子已经被作者于2008-6-17 18:34:36编辑过]

konggs

汤兄，录制个宏看看。

sylun

录制宏是较好的学习方法。也可试试如下查找替换代码（并非绝对适用）：

查找：[!^13]@([0-9]@)[.、。．\\^9^32^s　]{1,}(*^13)

替换：\1．\2

tangqingfu

谢谢sylun兄，测试通过

河坊古道

1. Sub 批量删除选择题题号前如括号之类的内容()
   
2. Dim myRange As Range, myend As Long
   
3. '如何没有选定区域则作全文档处理
   
4. Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5. myend = myRange.End '取得待区域的结束位置
   
6. With myRange.Find
   
7. .ClearFormatting '清除查找框格式
   
8. .Replacement.ClearFormatting '清除替换框格式
   
9. .MatchWildcards = True '勾选“使用通配符”
   
10. .Text = "[!^13]@([0-9]{1,}[.．]{1,1})"
    
11. .Execute replacewith:="\1", Replace:=wdReplaceAll
    
12. End With
    
13. End Sub

复制代码