vba - change placed tags from bold to regular

Offline Ingo over 5 years ago

Hi all,

we have several drawings where tags were placed with the bold button activated in the text editor (Word Processor) box.

We would like to reset them to a normal (not bold) textstyle.

Is there a way to do this by vba?

Probably by assigning the active textstye to them - but there is not bold property we could explicitly adress....

Any hint appreciated.

Ingo

Top Replies

Offline Changsong Ling Thu, Sep 13 2018 1:25 AM +1

Hello Ingo, I have a sub to revise the tag font for your reference. Sub ReviseTag() Dim oScanCriteria As New ElementScanCriteria Dim oElementEnum As ElementEnumerator Dim oTag As TagElement…

Parents

0 Offline Changsong Ling Thu, Sep 13 2018 1:25 AM

Hello Ingo,

I have a sub to revise the tag font for your reference.

Sub ReviseTag()
    Dim oScanCriteria   As New ElementScanCriteria
    Dim oElementEnum    As ElementEnumerator
    Dim oTag As TagElement
    Dim MyFont As Font
    
    oScanCriteria.ExcludeAllTypes
    oScanCriteria.IncludeType msdElementTypeTag
    Set oElementEnum = ActiveModelReference.Scan(oScanCriteria)
    
    
    While oElementEnum.MoveNext

          Set oTag = oElementEnum.Current
          'If oTag.Value <> "" Then Debug.Print oTag.Value & "  " & oTag.Font.Name & "   " & oTag.Font.Type
          If oTag.Font.Name = "Tahoma" Then
             Debug.Print oTag.Value & "  " & oTag.Font.Name & "   " & oTag.Font.Type
             oTag.Font = ActiveDesignFile.Fonts.Find(msdFontTypeWindowsTrueType, "Arial Unicode MS")
             oTag.Rewrite
          End If
    Wend
    
End Sub

Reply

0 Offline Changsong Ling Thu, Sep 13 2018 1:25 AM

Hello Ingo,

I have a sub to revise the tag font for your reference.

Sub ReviseTag()
    Dim oScanCriteria   As New ElementScanCriteria
    Dim oElementEnum    As ElementEnumerator
    Dim oTag As TagElement
    Dim MyFont As Font
    
    oScanCriteria.ExcludeAllTypes
    oScanCriteria.IncludeType msdElementTypeTag
    Set oElementEnum = ActiveModelReference.Scan(oScanCriteria)
    
    
    While oElementEnum.MoveNext

          Set oTag = oElementEnum.Current
          'If oTag.Value <> "" Then Debug.Print oTag.Value & "  " & oTag.Font.Name & "   " & oTag.Font.Type
          If oTag.Font.Name = "Tahoma" Then
             Debug.Print oTag.Value & "  " & oTag.Font.Name & "   " & oTag.Font.Type
             oTag.Font = ActiveDesignFile.Fonts.Find(msdFontTypeWindowsTrueType, "Arial Unicode MS")
             oTag.Rewrite
          End If
    Wend
    
End Sub

Children

No Data