使用 swModel.CreateText 用于带复选框的多行注释

Using swModel.CreateText for multiline notes with checkboxes

我正在编写一个宏,它接受多个复选框并循环遍历它们以将标准注释插入到单个注释中。这是我的代码:

这就是我的。它应该做的是获取每个复选框的标题并将其添加到单个注释中的新行。它正在做的是为每个标题创建一个新注释,并在末尾添加 space。我试过移动那行代码,但这是我第一次使用 VBA,我已经 运行 没主意了。我该怎么做才能让它创建一个注释并自适应地将所有选定的标题添加到其中?

CreateText 不应在 For 循环中

试试这个:

Dim MyStr As String
For Each ThisControl2 In Prompt.Controls
   If TypeName(ThisControl2) = "CheckBox" Then
      If ThisControl2.Value = True Then
         MyStr = Mystr & ThisControl2.Caption & vbCrLf
      End If
   End If
Next
swModel.CreateText MyStr, 0.02, 0.02, 0, 0.003175, 0