[求助]：哪位朋友对多行文字的格式化有研究

r33d

下面是从cad的帮助文件拷贝过来的：
使用大括号 ({ }) 可以仅对括号内的文字应用格式修改。用户最多可以设置八层深度的括号。

用户也可以在行或段落中输入控制代码的 ASCII 等价值来表示格式或特殊字符，例如公差和标注符号。

以下控制字符可用来创建图解中的文字。（关于此字符串的 ASCII 等价值，请参见以下样例。）

{{\H1.5x; 大文字} \A2; 上标文字\A1;/\A0; 下标文字}



现在我想要写一个这样的vba程序，就是把这些控制字符里面的特定的东西去掉，比如说去掉字体。但是其它的还要保留，比如说上标文字还是上标文字。
是个编程问题，跟cad没多大关系了，哪位朋友帮帮忙。

lsjjm

参考:
Sub CreatMtext ()
  Dim pint (0 to 2) as Double
  pint (0)=1#
  pint (1)=1#
  pint (2)=0#
  Dim ts as String
  ts ="{{\H1.5x;Big text}A2;over text\A1;\A0;under text}\P"
  ts=ts &"{\A0;Baseline: 1\S1/2;}\P"
  ts =ts &"{\A1;Center: 1\S1/2;}\P"
  ts=ts &"{\A2;Topline: 1\S1/2;}\P"
  ts =ts &"{Tolerance: \A1;1.000\H.75x;\S+0.010^-0.000;}\P"
  ts=ts &"{Architectural: 9-{\h.666x;\A2;11\A1;/\A0;16}\A2;}\P"
  call thisdrawing.modelspace.addmtext(pint,100,ts)
  zoomextends
end sub

r33d

加格式参照帮助文件就可以了，但是现在是要把已有的格式去掉。比如说一幅图里面Standard字体样式定义的字体是romans.shx，但是现在图里面很多Arial字体的文字，要把这个格式去掉。