[求助]如何让下面的代码重复多次运行？

守柔

QUOTE:

以下是引用ssq1109在2006-12-3 10:24:39的发言：

谢谢守柔大侠！

上面我改后的代码的确在我单位的机上通过得到，因今天未上班，我在另一机上再试确实如您所言不能PASS，我检查并修改函数部分（见下），在WIN XP+OFFICE 2003上PASS，结果如今天的附件（结果中的蓝色是为清晰起见标的色）。

还记得我最初问你为何不使用Unicode呢？可是时间长了，我也记不住了，今天又温故了一下，你看一下这个：

Function GetUnicode(myString As String) As String
    GetUnicode = "|G" & VBA.Hex(AscW(myString)) & "|"
End Function

ssq1109

非常谢谢守柔大侠！

是的，我要用的的确还是要转成GBK内码，但只是想学一下函数的几种用法。

我用您在22楼的函数，21楼附件中的分式运行结果其他全角字符都是对的，但“÷”的结果是“|GF7|”，我查出它的Unicode码为“00F7”。

这怎么可能呢？我下午再换2台机子测试一下。

守柔

确实如此，试试这个：

Function GetUnicode(myString As String) As String
    GetUnicode = VBA.Hex(AscW(myString))
    If Len(GetUnicode) = 2 Then
        GetUnicode = "00" & GetUnicode
    ElseIf Len(GetUnicode) = 3 Then
        GetUnicode = "0" & GetUnicode
    End If
    GetUnicode = "|G" & GetUnicode & "|"
End Function

ssq1109

That's OK! 3x!!

ssq1109

That's OK! Thanks a lot!

ssq1109

QUOTE:

以下是引用守柔在2006-12-4 12:14:40的发言：

确实如此，试试这个：

Function GetUnicode(myString As String) As String
    GetUnicode = VBA.Hex(AscW(myString))
    If Len(GetUnicode) = 2 Then
        GetUnicode = "00" & GetUnicode
    ElseIf Len(GetUnicode) = 3 Then
        GetUnicode = "0" & GetUnicode
    End If
    GetUnicode = "|G" & GetUnicode & "|"
End Function

这是守版主写的函数，连同前面的代码我一直用的很好，但今天发现一新问题，即对附件文档中的EQ域如含有Symbol字体（该字体是先输入成英文，再将它们设为Symbol字体，而不是通过插入Symbol字符得到的），运行它会将它些Symbol字体又变回原英文符号（如附件中的α、β又变成了a、b)。能否修改代码使其中的Symbol字体不发生改变。

tZMecGv8.rar (2.27 KB, 下载次数: 16)

2007-6-7 11:04 上传

点击文件名下载附件
[求助]如何让下面的代码重复多次运行？

[此贴子已经被作者于2007-6-7 11:05:33编辑过]