Word用户VBA设置TextBox边框样式

下面是一个示例代码，演示如何在Word用户VBA中设置TextBox的边框样式：

Sub SetTextBoxBorderStyle()
    Dim tb As Shape
    
    ' 获取当前所选中的TextBox
    Set tb = Selection.ShapeRange(1)
    
    ' 设置边框样式为实线
    tb.Line.Style = msoLineSingle
    
    ' 设置边框颜色为红色
    tb.Line.ForeColor.RGB = RGB(255, 0, 0)
    
    ' 设置边框粗细为2点
    tb.Line.Weight = 2
    
    ' 设置边框透明度为50%
    tb.Line.Transparency = 0.5
End Sub

运行这个宏后，它将应用于当前所选中的TextBox，并设置边框样式为实线，边框颜色为红色，边框粗细为2点，边框透明度为50%。你可以根据需要修改这些属性值。