如何Word内多个表格统一设置中英文字体?

coleman_lee

如何Word内多个表格统一设置中英文字体?
Word内有二十几个表格，需要进行以下设置：

• 统一设置中文字体为宋体，英文字体为Times New Roman，字号均为小四。
  

如何一次性进行这样的设置呢？

413191246se

1. Sub 表格全选()
   
2.     Dim t As Table
   
3.     With ActiveDocument
   
4.         .DeleteAllEditableRanges wdEditorEveryone
   
5.         For Each t In .Tables
   
6.             t.Range.Editors.Add wdEditorEveryone
   
7.         Next
   
8.         .SelectAllEditableRanges wdEditorEveryone
   
9.         .DeleteAllEditableRanges wdEditorEveryone
   
10.     End With
    
11. End Sub

复制代码

coleman_lee

413191246se 发表于 2019-8-20 18:22

感谢，只能用宏来解决了。

ggwfoigebb

好象WORD2010不能使用。

413191246se

1. Sub LoopTables()
   
2.     Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range.Font
   
5.             .NameFarEast = "宋体"
   
6.             .NameAscii = "Times New Roman"
   
7.             .Size = 12
   
8.             .Bold = False
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码

相见是缘8

413191246se 发表于 2019-8-20 22:22

老师好！
如单修改表格内的字符格式，表格内段落符的字体格式不修改，这个代码怎么改？谢谢！

413191246se

相见，你好！一般都是整段设置格式（包括段落标记），你不设置段落标记有什么用呢？
我感觉没什么意义，也增加了麻烦。

相见是缘8

413191246se 发表于 2020-4-3 23:13
相见，你好！一般都是整段设置格式（包括段落标记），你不设置段落标记有什么用呢？
我感觉没什么意义，也 ...

老师好！
之所以想排除设置段落符的格式，是会影响到文档中其它字符的查找替换，如段落符以为红色，在查找替换文档中其它红色字符时就……

413191246se

1. Sub aaaa???????????????_?????????()
   
2. '??????????б??
   
3. '??????????????????е????
   
4. '????????????????????ж????ж??????????1????????=1?????????????
   
5.     Dim t As Table, c As Cell, i As Paragraph
   
6.     For Each t In ActiveDocument.Tables
   
7.         t.Range.Rows.WrapAroundText = False '???????
   
8.         For Each c In t.Range.Cells
   
9.             For Each i In c.Range.Paragraphs
   
10.                 '?ж???????????????
    
11.                 If i.Range.Characters.Count > 1 Then
    
12.                     With ActiveDocument.Range(Start:=i.Range.Start, End:=i.Range.End - 1).Font
    
13.                         .NameFarEast = "????"
    
14.                         .NameAscii = "Times New Roman"
    
15.                         .Size = 12 'С??
    
16.                         .Bold = False '???棨=??????
    
17.                         .Color = wdColorRed '???(???д???????/????)
    
18.                     End With
    
19.                 End If
    
20.             Next
    
21.         Next
    
22.     Next
    
23. End Sub
    

复制代码

相见是缘8

413191246se 发表于 2020-4-5 01:47

测试OK，完美达愿！衷心感谢老师！