Word - 自动创建用户窗体文本框

Question

我有一个用户表单，它会自动创建标签和文本框。问题是创建后我不知道文本框 1 的名称。我以为它会是 TextBox1，但事实并非如此。我将如何将它们命名为 TextBox1 然后 TextBox2 等等？有问题的代码在“AddLine”下。

Sub CommandButton1_Click()
Dim TBs(9) As Object
Set TBs(0) = TextBox1: Set TBs(1) = TextBox2: Set TBs(2) = TextBox3
Set TBs(3) = TextBox4: Set TBs(4) = TextBox5: Set TBs(5) = TextBox6
Set TBs(6) = TextBox7: Set TBs(7) = TextBox8: Set TBs(8) = TextBox9
Set TBs(9) = TextBox10:

For i = 0 To Amount
    With ActiveDocument
        If .Bookmarks("href" & i + 1).Range = ".jpg" Then
            .Bookmarks("href" & i + 1).Range _
            .InsertBefore TBs(i)
            .Bookmarks("src" & i + 1).Range _
            .InsertBefore TBs(i)
            .Bookmarks("alt" & i + 1).Range _
            .InsertBefore TBs(i)
        End If
    End With
Next



UserForm1.Hide

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .Text = ".jpg "
        .Replacement.Text = ".jpg"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.HomeKey Unit:=wdLine
    Selection.Find.Execute Replace:=wdReplaceAll



        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .Text = "/ "
        .Replacement.Text = "/"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.HomeKey Unit:=wdLine
    Selection.Find.Execute Replace:=wdReplaceAll



    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .Text = ".jpg.jpg"
        .Replacement.Text = ".jpg"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.HomeKey Unit:=wdLine
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub


Private Sub AddLine_Click()


Dim theTextbox As Object
Dim textboxCounter As Long

For textboxCounter = 1 To Amount
    Set theTextbox = UserForm1.Controls.Add("Forms.TextBox.1", "test" & textboxCounter, True)
    With theTextbox

        .Width = 200
        .Left = 70
        .Top = 30 * textboxCounter
    End With

Next

Dim theLabel As Object
Dim labelCounter As Long

For labelCounter = 1 To Amount
    Set theLabel = UserForm1.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
    With theLabel
        .Caption = "Image" & labelCounter
        .Left = 20
        .Width = 50
        .Top = 30 * labelCounter
    End With

    With UserForm1
        .Height = Amount * 30 + 100
    End With

    With CommandButton1
        .Top = Amount * 30 + 40
    End With

    With CommandButton2
        .Top = Amount * 30 + 40
    End With


Next


End Sub

Answer 1

你的代码已经给它命名了test1、test2等，这是.Add方法中的第二个参数：

Set theTextbox = UserForm1.Controls.Add("Forms.TextBox.1", "test" & textboxCounter, True)

Intellisense 非常清楚地表明了这一点：

如果您不喜欢这样，我认为您可以随时从 .Name 属性中更改它：

在添加时只需为其指定一个名称。

For textboxCounter = 1 To Amount
    Set theTextbox = UserForm1.Controls.Add("Forms.TextBox.1", "test" & textboxCounter, True)
    With theTextbox
        .Name = "TextBox_" & i
        .Width = 200
        .Left = 70
        .Top = 30 * textboxCounter
    End With

Next

评论更新

所以你在这里有这个任务：

Set TBs(0) = TextBox1: Set TBs(1) = TextBox2: Set TBs(2) = TextBox3
Set TBs(3) = TextBox4: Set TBs(4) = TextBox5: Set TBs(5) = TextBox6
Set TBs(6) = TextBox7: Set TBs(7) = TextBox8: Set TBs(8) = TextBox9
Set TBs(9) = TextBox10:

在模块顶部使用Option Explicit 会警告您这些。当你运行它时，如果你已经采取了正常的步骤来调试，你应该看到TBs(0)等都被分配了Nothing。（然后你可以问一个更好的问题：“为什么我的变量都是Nothing？”等等……我提到这些不是为了痛斥你，而是为了向你展示如何解决你自己的问题（或者至少获得相关信息，这样你就可以在未来！

为什么？

因为在作用域内没有TextBox1等对象。

为什么不呢？

因为您直到稍后在代码中才创建文本框，所以在分配时，该数组包含所有 Nothing。

如何解决？

我认为您不能以这种方式引用在运行时创建的控件，因为代码通常不会编译（同样，Option Explicit 会提醒您这一点；您应该始终始终始终 在每个模块的顶部使用它）。

你应该可以像这样分配：

Set TBs(0) = UserForm1.Controls("TextBox_1") 等。确保使用在 .Add 方法中指定的正确名称（或在将文本框添加到表单时在 .Name 属性中指定的名称。

注意您必须在将 TextBox(es) 添加到用户窗体后进行此分配，否则会发生错误。

祝你好运！