如何将VBA中的样式应用于用户窗体上的文本框

Question

我有一个文本框的代码。

Dim TextBox15 As Range
ActiveDocument.Variables("bmagicf").Value = Me.TextBox15.Value
Me.TextBox15.Value = Me.TextBox15.Text

With ActiveDocument
.Fields.Update
End With

如何将样式应用到与下面代码相同的意义上？

Dim ComboBox9 As Range
Set ComboBox9 = ActiveDocument.Bookmarks("bmagich").Range
ComboBox9.Text = Me.ComboBox9.Value

If Me.ComboBox9.Value = "No" Then
ComboBox9.Text = "Appendices"
ComboBox9.Style = ActiveDocument.Styles("Style 22")
End If

我尝试了下面的代码，但没有成功：

Dim TextBox15 As Range
ActiveDocument.Variables("bmagicf").Value = Me.TextBox15.Value
Me.TextBox15.Value = Me.TextBox15.Text
Textbox15.Style = ActiveDocument.Styles("Style 22")
With ActiveDocument
.Fields.Update
End With

Answer 1

您的问题极具误导性，并且您的代码令人困惑。

从你的代码来看，你似乎是而不是试图将样式应用于用户表单上的文本框，尽管问题的标题说你是。

您的代码令人困惑，因为您对几个不同的东西使用了相同的名称。

您的代码无法工作，因为您漏掉了一行代码。再看一下组合框的例子。第二条线至关重要。

Set ComboBox9 = ActiveDocument.Bookmarks("bmagich").Range

对于文本框示例，您需要一行类似的代码，否则Range变量TextBox15不会指向任何内容。