Vba 一步保存所有设置

是否可以在一个命令中保存所有设置

我必须保存许多不同的文本框文本，目前我必须将它们单独保存，如下所示：

Call SaveSetting("Vertrag1", "setting", "Deckblatt", VertragsNrBox.Text)
Call SaveSetting("Vertrag1.1", "setting", "Deckblatt", DatumBox.Text)
Call SaveSetting("Vertrag1.2", "setting", "Deckblatt", ThemaBox.Text)
Call SaveSetting("Präambel1", "setting", "Präambel", TextBox1.Text)
Call SaveSetting("Vertrag2.2", "setting", "Präambel", TextBox2.Text)
Call SaveSetting("Vertrag2.3", "setting", "Präambel", TextBox3.Text)
Call SaveSetting("Vertrag2.4", "setting", "Präambel", TextBox4.Text)

---

现在有可能一步就把它们全部保存起来吗？

也许是这样的吧

Dim c As Control

For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        SaveSetting "Vertrag", "Settings", c.Name, c.Text
    End If
Next

您还可以利用文本框的Tag属性添加一些额外的信息