关于段落缩进

buxiaodea

各位大神：小弟想设置表格中的段落：如果段落首字母为一、二、这种序号，不缩进；如果是（一）、（二） 或者直接是文字，则缩进2字符，现有的代码可以实现缩进2字符，但是无法设置不缩进，请帮忙改一下，谢谢

buxiaodea

求哪位高手指点一下 谢谢

Enocheasty

Word的格式控制挺麻烦的，保险起见，你在设置之前，最好将所有的缩进先设置一遍比如，左对齐，把各种indent（左缩进，首行缩进，首行按字符缩进什么的）设置为0，再设置你要的值。不用Paragraph下的range的格式，直接用Paragraph的格式。
另外为啥要从Excel的VBA去调用Word操作呢？Word不也有VBA，还方便调试！另外你的判断比较简单，要确认就是用一个顿号就可以区分，不然会容易误操作。

1. Sub 段落缩进()
   
2.     Dim worddoc As Object '定义文档
   
3.     Set worddoc = Application.ActiveDocument
   
4.     dls = worddoc.Tables(1).Rows(2).Cells(1).Range.Paragraphs.Count '段落数
   
5.     For t = 1 To dls
   
6.     With worddoc.Tables(1).Rows(2).Cells(1).Range.Paragraphs(t)
   
7.     s = .Range.Text
   
8.     If Mid(s, 2, 1) = "、" Then
   
9.        .Format.CharacterUnitFirstLineIndent = 0
   
10.        .Format.CharacterUnitLeftIndent = 0
    
11.        .Format.LeftIndent = 0
    
12.        .Format.FirstLineIndent = 0
    
13.     Else
    
14.        .Format.CharacterUnitLeftIndent = 0
    
15.        .Format.LeftIndent = 0
    
16.        .Format.FirstLineIndent = 0
    
17.        .Format.CharacterUnitFirstLineIndent = 2
    
18.     End If
    
19.     End With
    
20.     Next
    
21. End Sub

复制代码

buxiaodea

Enocheasty 发表于 2024-5-9 17:19
Word的格式控制挺麻烦的，保险起见，你在设置之前，最好将所有的缩进先设置一遍比如，左对齐，把各种indent ...

感谢感谢，我试试