word里面统一表格内的文字格式-夜雨聆风

word里面统一表格内的文字格式

遇到问题：

word里面的表格内容，手动调整为“中文宋体，英文新罗马，5号字，居中对齐，无首行或悬挂缩进”，保存文件后再打开，表格排版出现异常，word自带的样式功能，无法调整，无法更新样式以匹配所选内容。

解决方案，在win10+新版office可用，记录一下操作步骤：

1. 打开有问题的word。

2. 按 Alt + F11 打开 VBA 编辑器。

3. 点击插入（Insert） -> 模块（Module），粘贴以下代码：

Sub UniformAllTables_Compatible()    Dim tbl As Table    Dim para As Paragraph    For Each tbl In ActiveDocument.Tables        For Each para In tbl.Range.Paragraphs            With para.Format                ' ===== 对齐 =====                .Alignment = wdAlignParagraphCenter                ' ===== 缩进（兼容写法）=====                .LeftIndent = 0                .RightIndent = 0                .FirstLineIndent = 0                .CharacterUnitLeftIndent = 0                .CharacterUnitRightIndent = 0                .CharacterUnitFirstLineIndent = 0                ' ===== 行距 =====                .LineSpacingRule = wdLineSpaceSingle                .SpaceBefore = 0                .SpaceAfter = 0            End With        Next para        ' ===== 字体 & 单元格 =====        With tbl.Range            .Font.Name = "宋体"            .Font.NameFarEast = "宋体"            .Font.NameAscii = "Times New Roman"            .Font.Size = 10.5            .Cells.VerticalAlignment = wdCellAlignVerticalCenter        End With    Next tbl    MsgBox "表格格式已统一", vbInformationEnd Sub

4. 按 F5 运行。

5. 看到弹窗显示”表格格式已统一”，结束