各位大虾和斑竹，急救！怎样得到text对象的汉字字符串？

petertian

我利用VBA想得到注记的字符串，但是得到的好像是一个表？如下：


txtstr(i) = telement.TextString


txtstr(i) 的返回值是 {\f宋体|b0|i0|c134|p54;黄河机械厂第二分厂}，但是，我只想要"黄河机械厂第二分厂"怎么办？？多谢！！！！

mikewolf2k

前面那一串应该是mtext中实现上下标功能的字符串,找找规律,去掉这些功能字符.

雪山飞狐_lzh

2. Function Test(String1 As String)
3. a = Split(String1, ";")
4. Test = Left(a(1), Len(a(1)) - 1)
5. End Function

Function Test(String1 As String) a = Split(String1, ";") Test = Left(a(1), Len(a(1)) - 1) End Function

petertian

楼上大虾：我用了这个函数后，工程提示Split函数没有定义，能否告诉我Split函数是怎么回事，多谢大虾相助！

mikewolf2k

没有3楼那么简单,如果你的字符串有";"怎么办.


可以用instr函数得到";"的位置,再用mid函数截取所需的字符串.

雪山飞狐_lzh

2. Private Function Test(ByVal String1 As Variant) As String
3. String2 = ";"
4. a = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
5. Test = Left(a, Len(a) - 1)
6. End Function

Private Function Test(ByVal String1 As Variant) As String String2 = ";" a = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1) Test = Left(a, Len(a) - 1) End Function

petertian

多谢楼上大虾：兄弟我向你致敬！！！多谢！好了！呵呵！