粘贴后如何在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是一个内置命令。你可以在这里找到它。

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