Set up your new text style with the correct font. Then use this
Public Sub AttsTYLE()
On Error Resume Next
Dim tempBlock As AcadBlock
Dim tempRef As AcadBlockReference
Dim blkObj As AcadObject
Dim tempObjectName As String
Dim objSelSet As AcadSelectionSet
Dim intType(0) As Integer
Dim varData(0) As Variant
Dim varAtts As Variant
Dim intCnt As Integer
Dim pref As String
Dim addon As Integer
Dim aString As String
Dim oEnt As AcadEntity
Dim oSSobjs(0) As AcadEntity
Dim vPick As Double
'Get the prefix we are looking for from the user
pref = InputBox("Name of new TextStyle", "Attribute TextStyle", "Default")
ThisDrawing.SelectionSets("ATTADD").Delete
Set objSelSet = ThisDrawing.SelectionSets.Add("ATTADD")
objSelSet.Select acSelectionSetAll
'Look through everything for block references
AllNotSome:
For Each tempRef In objSelSet
For Each blkObj In tempRef
If TypeOf blkObj Is AcadText Then
blkObj.StyleName = pref
blkObj.Height = 0.1
End If
Next
'Found one but, does it have attributes
If tempRef.HasAttributes Then
'It does, so now go through each one
varAtts = tempRef.GetAttributes
For intCnt = LBound(varAtts) To UBound(varAtts)
With varAtts(intCnt)
.StyleName = pref
.Height = 'You can enter your desired height or erase this line
End With
'Go to the next attribute
Next intCnt
End If
'next block please
Next
End Sub
This will do all blocks in a drawing. If you need to only select certain blocks let me know and I will modify the code for you.
