请教一下如何把所有文本框内的字体统一

星辰缘

请教一下大神，这些文本框的文字格式不同

1.  选择对象时，如何可以全部选中所有对象？  

2.  字体能不能一次性改成 统一字体模式？ 格式刷话太麻烦，需要每个框内的字体都有点击一下才可以。

附件更新一下， 使用2楼大神的命令可以改第一页，但是改不了第二页，是格式不同导致的么？

413191246se

1. Sub a___TextBoxFont()
   
2.     Dim s As Shape
   
3.     For Each s In ActiveDocument.Shapes
   
4.         With s.TextFrame.TextRange
   
5.             With .Font
   
6.                 .NameFarEast = "宋体"
   
7.                 .NameAscii = "Times New Roman"
   
8.                 .Size = 14
   
9.                 .Bold = True
   
10.                 .Color = wdColorPink
    
11.                 .Kerning = 0
    
12.                 .DisableCharacterSpaceGrid = True
    
13.             End With
    
14.             With .ParagraphFormat
    
15.                 .LineSpacing = LinesToPoints(1.25)
    
16.                 .CharacterUnitFirstLineIndent = 2
    
17.                 .AutoAdjustRightIndent = False
    
18.                 .DisableLineHeightGrid = True
    
19.             End With
    
20.         End With
    
21.     Next
    
22. End Sub

复制代码

星辰缘

413191246se 发表于 2021-11-26 02:59

多谢多谢，可以使用

1.  但是字体会报错？

2. 这个新的附件，好像第一页的文字都可以改，第二页文字就没法自动更改了。 是格式不同么？

413191246se

楼主，请在 声明 前面加上一句代码：（我原来的代码加上此句就没问题，建议把我的代码放到 NewMacros 模块中，不要放在 ThisDocument 里面）
On Error Resume Next