vba 对含有表格的word文档排版

wkxxxr

同一文档中含有文本和表格，用vba进行格式设置，会同时调整设置比如调整段落对齐、缩进、字体、字号等。请教：如何才能进行分别设置格式。先谢谢！

duquancai

你说了一堆话，等于没说。判断  Information(wdWithInTable)

wkxxxr

duquancai 发表于 2016-11-28 11:33
你说了一堆话，等于没说。判断  Information(wdWithInTable)

意思是说分别对文本和表格进行格式设置

duquancai

wkxxxr 发表于 2016-11-28 14:03
意思是说分别对文本和表格进行格式设置

不是说了，用判断  Information(wdWithInTable)

413191246se

不需 杜先生 出手，我提供一个简单的例子代码：（TRUE在表格内，FALSE在表格外）

1. Sub 设置文本和表格()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range.Information(wdWithInTable) = True Then
   
5.             i.Range.Font.Color = wdColorRed '红色（在表格中）
   
6.         Else
   
7.             i.Range.Font.Color = wdColorBlue '蓝色（不在表格中）
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

wkxxxr

413191246se 发表于 2016-11-28 20:10
不需 杜先生 出手，我提供一个简单的例子代码：（TRUE在表格内，FALSE在表格外）

se大神：代码确实简练，如果要对整篇文档，进行段落格式排版，文档中的表格另外排版（与文档排版格式不同），代码怎么改，谢谢！

413191246se

楼主，大神不敢当！杜先生 才是大神哩！
i.range 代表任一段落，我所用的方法就是使用 For Each ... Next 循环遍历集合（段落）法。楼主只须录制两段字体/段落格式的宏，就会对代码扩充了！另外，楼主并未说出具体要怎么设置普通文本和表格中文本，我再给出一段代码示例吧！

1. Sub 设置文本和表格222()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range.Information(wdWithInTable) = False Then '不在表格中
   
5.             With i.Range
   
6.                 With .Font '字体格式
   
7.                     .Name = "黑体"
   
8.                     .Name = "Times New Roman"
   
9.                     .Size = 16 '三号
   
10.                     .Bold = True '加粗
    
11.                     .Color = wdColorBlue '蓝色
    
12.                 End With
    
13.                 With .ParagraphFormat '段落格式
    
14.                     .LineSpacing = LinesToPoints(1.25) '1.25倍行距
    
15.                     .CharacterUnitFirstLineIndent = 2 '首行缩进2字符
    
16.                 End With
    
17.             End With
    
18.         Else '在表格中
    
19.             i.Range.Font.Color = wdColorRed '红色
    
20.         End If
    
21.     Next
    
22. End Sub

复制代码

wkxxxr

413191246se 发表于 2016-11-29 19:53
楼主，大神不敢当！杜先生 才是大神哩！
i.range 代表任一段落，我所用的方法就是使用 For Each ... Next  ...

多谢，大致这个样子的，就是文本各个段落格式设置要求不同，另外怎么对表格设置，vba不太懂。再一次感谢！