请教大师：VBA如何得出这种往右缩进？

chenlifeng123

我有N段文字，每一段文字格式都是：前面有几个提示语，再跟一个冒号，冒号后面才是主要内容。
举例如下：   

们们的我拉：中三局华人民共和国中华人民共和国连胜三局中三局华人民共和国中华人民共和国连胜三局中三局华人民共和国中华人民共和国连胜三局中三局华人民共和国中华人民共和国连胜三局中三局华人民共和国中华人民共和国连胜三局

   上面的“们们的我拉”是提示语，后面的是内容。

   现在我想对内容进行右缩进，正确和错误的缩进结果我都放在附件。

   请问用VBA代码，让一段段这样的文字都右缩进？感谢~！

chenlifeng123

1. Selection.ParagraphFormat.CharacterUnitFirstLineIndent = -6

复制代码

413191246se

楼主，你所问的问题其实就是：设置悬挂缩进，再用格式刷刷一下其它段落即可。
下面是设置悬挂缩进（以三号字为例。但是如果是Word2003的话，我有专门设置悬挂缩进的热键）代码：

1. Sub 设置段落格式为悬挂缩进()
   
2. '假设字号为三号
   
3.     ActiveWindow.ActivePane.View.Zoom.Percentage = 100 '显示比例：100%
   
4.     With Selection.ParagraphFormat
   
5.         .Parent.Expand 4 '选定段落
   
6.         .CharacterUnitLeftIndent = 3.1 '左缩进
   
7.         .CharacterUnitFirstLineIndent = -5.9 '悬挂缩进
   
8.     End With
   
9. End Sub

复制代码

413191246se

上面 3.1/-5.9都是针对三号字段落来设置的，如果不是三号字，须自己反复调整这两个数值并在100%的显示比例下才正确。

413191246se

楼主如果不设置左缩进，那么段落将是左对齐或两端对齐的，一般正文段落都要首行缩进2字符。

chenlifeng123

413191246se 发表于 2018-7-13 09:01
楼主如果不设置左缩进，那么段落将是左对齐或两端对齐的，一般正文段落都要首行缩进2字符。

老师讲解不但详细而扼要，而且极为严密和周到，效果尝试很好。非常感谢。

201228

楼上都是大神，果断收藏代码