Question

在Word 2011中，我有一个基本宏，提示用户输入，然后格式化输入并将其放入文档。例如：

Sub AddNewName()
'
' AddNewName Macro
'
'
    Dim FirstName As String
    FirstName = InputBox("Enter First Name", "")
    Dim LastName As String
    LastName = InputBox("Enter Last Name", "")
    Selection.TypeText Text:="First Name : "
    Selection.TypeText Text:=FirstName
    Selection.TypeParagraph
    Selection.TypeText Text:="Last Name : "
    Selection.TypeText Text:=LastName
End Sub

我想在最后询问用户：“另一个名字？y / n”如果用户回答“y”，则再次启动宏。我已经用Google搜索并搜索了stackoverflow，但我要么没有使用正确的搜索字词，要么问题就是不存在。

Answer 1

将代码包装在循环中，如果用户单击“否”，则会中断;

do
   Dim FirstName As String
   .
   .
   .

   if (msgbox("Another Name?", vbyesno) = vbno) then exit do
loop

询问用户是否要再次执行此操作

1 个答案: