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

【问题标题】：How to apply Style in VBA to a textbox on a userform?如何将 VBA 中的样式应用于用户窗体上的文本框？
【发布时间】：2021-12-18 22:28:12
【问题描述】：

我有这个文本框的代码。

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

【问题讨论】：

你不能 - 大多数用户窗体控件甚至没有样式属性。如果是这样（如组合框），您肯定必须设置除 word 文档中定义的样式之外的其他值 - 请参阅：docs.microsoft.com/de-de/office/vba/language/reference/…

标签： vba ms-word combobox textbox userform

【解决方案1】：

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

从查看您的代码看来，您不试图将样式应用于用户表单上的文本框，尽管您的问题标题表明您是。

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

您的代码无法正常工作，因为您错过了一行代码。再次查看组合框示例。第二行很关键。

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

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

【讨论】：