Question

我正在尝试创建一个宏来搜索我的word文档，找到任何居中的文本并将其应用于此格式。

With Selection
.Paragraphs.Alignment = wdAlignParagraphCenter
.Font.Bold = wdToggle
.Font.AllCaps = True
End With

我试过

Selection.Find.Style = wdAlignParagraphCenter

但我认为这并不容易。

然后我给了他一个镜头，

Dim p As Paragraph

For Each p In ActiveDocument.Paragraphs
    If p.Alignment = wdAlignParagraphCenter Then
        With Selection
            .Font.Bold = wdToggle
            .Font.AllCaps = True
        End With

    End If
Next p

但遗憾的是没有运气。

Answer 1

试试这个：

Sub Bold_All_Caps()
    Dim p As Paragraph

    For Each p In ActiveDocument.Paragraphs
        If p.Alignment = wdAlignParagraphCenter Then
            With p
                .Range.Font.Bold = True
                .Range.Font.AllCaps = True
            End With

        End If
    Next p
End Sub

问题是，您仅应用了更改（With部分）。如果您将其更改为适用的段落。

如果您想要更改粗体字体而不是始终应用粗体字体，请将部件.Range.Font.Bold = True更改为.Range.Font.Bold = wdToggle。 wdToggle将使粗体文本不粗体，反之亦然。

在Word中搜索并格式化居中文本。 - Macro / VBA

1 个答案: