对齐 Microsoft Word 中的所有文本 VBA

Justify All Text in Microsoft Word VBA

我正在尝试创建一个单词 VBA,如果字体大小为 10,它可以调整所有文本,忽略所有表格和形状。 不知何故,它不适用于包含数千段的大型文档,因为它会挂起。 不管怎样,我可以简化这段代码,使其 运行 更快更高效。

Sub JustifyAllTheText()
    On Error Resume Next
    Dim para   As Paragraph
    Dim searchRange As Range
    Set searchRange = Selection.Range
    searchRange.End = ActiveDocument.Content.End
    For Each para In searchRange.Paragraphs
        If para.Range.Font.Size = 10 And para.Range.Font.ColorIndex = wdBlack And Not para.Range.InlineShapes.count > 0 And Not para.Range.Information(wdWithInTable) Then
            para.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        End If
    Next para
Sub JustifyAllTheText()
On Error Resume Next
Dim para   As Paragraph
Dim searchRange As Range
Set searchRange = Selection.Range
searchRange.End = ActiveDocument.Content.End
For Each para In searchRange.Paragraphs
    If para.Range.Font.Size = 10 Then
    If para.Range.Font.ColorIndex = wdBlack Then
    If Not para.Range.InlineShapes.Count > 0 Then
    If Not para.Range.Information(wdWithInTable) Then
    para.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
    End If
    End If
    End If
    End If
Next para

结束子