如何使用宏自动格式化Word中的文本？

假设我有一个单词文档，其中包含Heading1，Heading2等一些文本样式。现在我对每个文本都有特定的格式样式，我想使用宏来应用这些样式。而且我想检查使用宏是否使用了正确的样式。有没有办法我可以做到这些？如何使用宏自动格式化Word中的文本？

来源

2017-07-01 Raj

是的，有办法用VBA宏来做到这一点。但是SO不是在这里提供解决方案来帮助你。也许考虑阅读此：https://stackoverflow.com/help/how-to-ask –

我明白这一点。我也不想要一个解决方案，但也许如果像你这样的人可以指出我正确的方向。 – Raj

哟使用什么版本的Microsoft Word？你知道你可以“记录”宏吗？这将是一个开始。如果发生特定问题，请随时更新您的问题。另外我想知道你为什么要应用特定的格式？我想了解你的用例。 –

好吧，从我的理解你的问题，你想自动替换样式。

这里是一个宏观的，它可以帮助你这样做：

Public Sub SearchReplaceStyles() 

Dim search_style As String ' the style which apparently seem out of style 
Dim replace_style As String ' the desired style 

search_style = "Heading 1" 
replace_style = "Heading 2" 

With Selection.Find 
    .ClearFormatting 
    .Style = ActiveDocument.Styles(search_style) 
    .Replacement.ClearFormatting 
    .Replacement.Style = ActiveDocument.Styles(replace_style) 
    .Wrap = wdFindContinue 
    .Execute Replace:=wdReplaceAll 
End With 

End Sub

来源

2017-07-17 09:30:44

非常感谢！这真的很有帮助。 – Raj

不客气。让我知道你是否想检查格式。但是我确定如果你是VBA开发人员，你会发现它非常快。 –

如何使用宏自动格式化Word中的文本？

回答

相关问题