Есть штамп чертежа с фиелдами.
Я для одного фиелда нужно кодом добавить подчеркивание:
Public Sub UndMate2()
Dim dDoc As DrawingDocument
Set dDoc = ThisApplication.ActiveDocument
Dim sSheet As Sheet
Set sSheet = dDoc.ActiveSheet
Dim sBoxs As TextBoxes
Dim sBox As TextBox
Set sBoxs = sSheet.TitleBlock.Definition.Sketch.TextBoxes
For Each sBox In sBoxs
If sBox.Text = "MATE2" Then
sBox.Style.Underline = True
Exit Sub
End If
Next
End Sub
Операция происходит один раз, но подчеркивание появляется еще и у нескольких других фиелдов. Как это может быть? И как с этим бороться?
P.S. При добавлении подчеркивания вручную все проходит нормально.