xudanhui 发表于 2010-8-14 16:47:00

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

<p>求各位大神发点代码给我。。。</p>
<p>我写了一个，删block和dim的样式，总是删不干净。是不是哪里少删了？</p>
<p>代码：</p>
<p><font face="Verdana">&nbsp;On Error Resume Next<br/>filtertype(0) = 0<br/>filterdata(0) = "Dimension,text,Mtext"</font></p><font face="Verdana">
<p><br/>Set SSet = ThisDrawing.SelectionSets.Add("SSet")</p>
<p>SSet.Select acSelectionSetAll, , , filtertype, filterdata<br/>Dim tt As Object<br/>For Each tt In SSet<br/>&nbsp;&nbsp;&nbsp; tt.StyleName = targetType<br/>&nbsp;&nbsp;&nbsp; tt.TextStyle = targetType<br/>&nbsp;&nbsp;&nbsp; tt.Update<br/>Next tt</p>
<p>SSet.Delete<br/>Set SSet = Nothing</font></p>
<p>&nbsp;</p>
<p>求各位大神赐教</p>
<p>&nbsp;</p>

cumtjh 发表于 2010-8-19 18:09:00

<p>定上去，我也想知道</p>

azjmjsj 发表于 2010-8-20 23:28:00

<p>我有代码！</p>
页: [1]
查看完整版本: [求助]VBA写统一文字样式，并删掉无用的样式