求一个能自动判断段落并首行缩进2的vba

jiminyanyan

学习一下。。。。。。。

jiminyanyan

zhang3618 发表于 2017-4-11 00:12
我的文档没有设置什么标题大纲，第一行就是标题，以上代码怎样把第一行排除呢？即保持第一行不变格式。
期 ...

标题设置"标题1"之类的就可以跳过,用上面的代码....

zhanglei1371

这个就弥补了我当年的第二个问题，选中的操作：

1. Sub 自动干掉空格()
   
2.     Dim rg As Range, re As Object
   
3.     Set re = CreateObject("vbscript.regexp")
   
4.     With re
   
5.         .Global = 1
   
6.         .MultiLine = 1
   
7.         .ignorecase = 1
   
8.         .Pattern = "^[\s\u3000]+|[\u3000\s]+(?=[\r\n])$"
   
9.     End With
   
10.     Set rg = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Range, Selection.Range)
    
11.     Set ma = re.Execute(rg)
    
12.     For i = ma.Count - 1 To 0 Step -1
    
13.         st = ma(i).firstindex: en = ma(i).firstindex + ma(i).Length
    
14.         ActiveDocument.Range(st, en) = ""
    
15.         'if instr(ActiveDocument.Range(st, en).Style,"正文")  Then 自定义动作
    
16.         '    If ActiveDocument.Range(st, en).ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText Then 自定义动作
    
17.     Next
    
18. End Sub
    

复制代码

duquancai

zhanglei1371 发表于 2017-5-1 21:45
这个就弥补了我当年的第二个问题，选中的操作：

张磊，这么老的贴啊！写得不错！！！

zhanglei1371

duquancai 发表于 2017-5-1 22:21
张磊，这么老的贴啊！写得不错！！！

看到帖子还有人看，就写了下。分组和段首匹配正是通配符的短处。那时sylun懒得回复第二个问题，我是无论如何也解决不了。

ma_rui888

回来了。好久没来了。
应该有用， 还没试。