我正在尝试简化在单词中创建一些几乎相同的宏的过程,并想知道是否有办法使用宏来完成它!
我想要的: 我有一个宏来创建一个注释与预定文本在word文档中的一些选定文本。我需要在每个文本中使用不同的文本制作一些这些文本,每个文本都有自己独立的按钮。所以,我想要的是一个单独的宏按钮,它会打开一个创建这些按钮的对话框,并允许我填写以下三个变量:
如果重要,我用于评论框的当前宏如下(注意其中一些用于自动关闭使用评论宏时保持打开的审阅窗格):
Dim n As Long
n = ActiveWindow.Panes.Count
'Adds Comment and text
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="comment text here"
'Auto-closes Reviewing Pane
With ActiveWindow
If .Panes.Count = n + 1 Then
.Panes(n + 1).Close
End If
End With
End Sub
任何和所有的帮助表示赞赏!谢谢。