vba - 粘贴后如何在Word中运行宏？

Question

如何让 Microsoft Word 在每次用户粘贴文本时都运行一个宏？

我录制了这个宏:

Sub AdjustFontSize()
'
' AdjustFontSize Macro
' Adjusts font size
'
    Selection.WholeStory
    Selection.Font.Size = 24
End Sub

这会更改文档中所有内容的字体大小，我希望在用户粘贴文本时发生这种情况。

Answer 1

试试这段代码。

Sub EditPaste()
    Selection.Paste
    Selection.WholeStory
    Selection.Font.Size = 24
End Sub

EditPaste 是一个内置命令。你可以在这里找到它。

我所做的是覆盖现有命令并将我的代码添加到其中。