[求助]VBA写统一文字样式，并删掉无用的样式

xudanhui

求各位大神发点代码给我。。。

我写了一个，删block和dim的样式，总是删不干净。是不是哪里少删了？

代码：

 On Error Resume Next
filtertype(0) = 0
filterdata(0) = "Dimension,text,Mtext"

Set SSet = ThisDrawing.SelectionSets.Add("SSet")

SSet.Select acSelectionSetAll, , , filtertype, filterdata
Dim tt As Object
For Each tt In SSet
    tt.StyleName = targetType
    tt.TextStyle = targetType
    tt.Update
Next tt

SSet.Delete
Set SSet = Nothing

 

求各位大神赐教

 

cumtjh

定上去，我也想知道

azjmjsj

我有代码！