vba设置段落和表格格式的问题

leedun · 发表于 2017-3-22 18:00

本帖最后由 leedun 于 2017-3-22 18:23 编辑

vba 对含有表格的word文档排版
上面是一个对含有表格的word文档排版，@413191246se已经做出了解答；

现在我想，有没有办法实现除固定样式和表格外段落的格式？

111.rar (11.87 KB, 下载次数: 35)
上传一个样本，想设置除标题1、标题2和表格以外段落设置文字四号字体、首行缩进2字符。

duquancai · 发表于 2017-3-23 00:11

Sub shishi()
Dim par As Paragraph
For Each par In ActiveDocument.Paragraphs
      If Not (par.Style = "标题 1" Or par.Style = "标题 2" Or par.Range.Information(12)) Then
         par.Range.Font.Size = 14
         par.CharacterUnitFirstLineIndent = 2
      End If
Next
End Sub

duquancai · 发表于 2017-3-23 00:19

：》》》》》》》》》》》》》》》》》》》》》》》》》

leedun · 发表于 2017-3-23 19:40

duquancai 发表于 2017-3-23 00:19
：》》》》》》》》》》》》》》》》》》》》》》》》》

感谢杜先生半夜为我解答问题，问题已经完美解决，在下感激不尽！！

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

[求助] vba设置段落和表格格式的问题

评分