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

zhanglei1371 · 发表于 2012-9-29 09:53

本帖最后由 zhanglei1371 于 2012-9-29 09:56 编辑

各位大侠好！
近来整理一些从网上下载的文章，汇集到一个word文档上，有些段落前面是首行缩进，有的是几个空格人为的缩进，还有的是全角空格，非常不规则，我想将其统一整理为首行缩进2的形式，但是逐段地去找太麻烦了。假如全选全文的话，我设置的居中的标题又会受到影响；
各位达人能否提供个vba，能够判断段落是否首行缩进2，不是的话就去掉段首空格并自动调整为首行缩进2，同时将段落行距调整为1.5倍行距，字体大小统一为小4（作用范围：正文文本，我设置的标题、和一二级大纲文本不受影响）。谢谢了...

sylun · 发表于 2012-9-29 15:59

可试试如下代码：

Sub test()
Application.ScreenUpdating = False
With ActiveDocument.Content.Find
.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText
Do While .Execute
With .Parent
Do While .Text Like "[ 　]*"
.Characters.First.Delete
Loop
.Font.Size = 12
With .ParagraphFormat
.LeftIndent = 0
.RightIndent = 0
.FirstLineIndent = 0
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 2
.LineSpacingRule = wdLineSpace1pt5
End With
If .End = ActiveDocument.Content.End Then Exit Do
.Collapse wdCollapseEnd
End With
Loop
End With
Application.ScreenUpdating = True
End Sub

复制代码

sqhsqhli · 发表于 2012-9-29 16:42

学习一下，。。。

zhanglei1371 · 发表于 2012-9-29 20:30

sylun 发表于 2012-9-29 15:59
可试试如下代码：

太感谢您了！解决了大问题！！！谢谢！！！{:soso_e128:}

tangqingfu · 发表于 2012-9-30 21:57

sylun 发表于 2012-9-29 15:59
可试试如下代码：

学习ing，谢谢sylun兄的分享！

geryjun · 发表于 2012-10-2 21:24

sylun 发表于 2012-9-29 15:59
可试试如下代码：

不错的代码。

zhanglei1371 · 发表于 2012-10-11 13:09

sylun 发表于 2012-9-29 15:59
可试试如下代码：

想再问下，如果想在选定段落中而非全文发生作用，该怎么写代码？
这段代码在数百页的大文档执行时常发生程序不动，但在短文档中非常好用。非常感谢...

fypc2004 · 发表于 2012-10-12 16:17

学习了谢谢哦

zhang3618 · 发表于 2017-4-11 00:12

我的文档没有设置什么标题大纲，第一行就是标题，以上代码怎样把第一行排除呢？即保持第一行不变格式。
期望上面的老师能帮助！

努牛 · 发表于 2017-4-29 14:51

牛人好多，真心不错！

		自动登录	找回密码
密码			免费注册

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