word vba清除格式

您可以使用以下代码清除 Word 中选定文本的格式：

Selection.ClearFormatting

如果您想要清除整个文档的格式，可以使用以下代码：

ActiveDocument.Content.Select
Selection.ClearFormatting

这会选定整个文档内容，然后清除所有格式。

您也可以使用以下代码清除指定段落的格式：

ActiveDocument.Paragraphs(1).Range.Select
Selection.ClearFormatting

这会选定文档中的第一个段落，并清除其格式。

请注意，清除格式将删除文本的所有格式设置，包括字体、字号、颜色、段落格式等。如果您只想删除特定的格式设置，可以使用更具体的 VBA 代码来实现。

相关问题

Word VBA调出清除所有格式按钮

你可以在Word中创建一个宏，并将其分配给自定义按钮，以清除所选文本中的所有格式。以下是一个示例VBA代码：

Sub ClearFormatting()
    Selection.ClearFormatting
End Sub

要创建自定义按钮，请执行以下操作：

1. 在Word中打开“开发工具”选项卡，如果没有，请启用它。
2. 点击“插入”菜单，然后选择“按钮”控件。
3. 在文档中单击并拖动鼠标，以绘制按钮的大小和形状。
4. 在弹出的“Assign Macro”对话框中，选择上面创建的宏，并单击“确定”。
5. 现在，单击该按钮，即可清除所选文本中的所有格式。

希望这可以帮助你。

Word vba段落设置必须运行2次

这可能是因为你的 VBA 代码中未完全应用段落格式设置。在 VBA 中设置段落格式需要在段落对象上执行两次操作。第一次操作将段落格式应用于段落，第二次操作清除段落中任何残留的格式。以下是一个示例代码，展示了如何正确设置段落格式：

Sub SetParagraphFormat()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        With para.Range
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            ' 第一次应用段落格式
            .ParagraphFormat.SpaceBefore = 6
            .ParagraphFormat.SpaceAfter = 6
            .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.LineUnitBefore = 0
            .ParagraphFormat.LineUnitAfter = 0
            ' 第二次应用段落格式
            .SetRange .Start, .End
            .ParagraphFormat.SpaceBefore = 6
            .ParagraphFormat.SpaceAfter = 6
            .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.LineUnitBefore = 0
            .ParagraphFormat.LineUnitAfter = 0
        End With
    Next para
End Sub

在上面的代码中，我们首先使用 `With` 语句块将段落对象的范围设置为 `para.Range`，然后在第一次操作中应用段落格式。接下来，我们使用 `SetRange` 方法将范围重新设置为 `para.Range`，然后在第二次操作中应用相同的段落格式。这样可以确保所有之前的格式都被清除，从而使段落格式设置能够正确应用。