在Word VBA中查找字符串数组中的位置

时间:2013-08-01 14:40:39

标签: vba ms-word match

我有一系列字符串"alpha", "beta"...,如果string2 = string2,我想测试另一个字符串"alpha"以返回1如果它等于"beta"等等。

如果是使用application.match的Excel,我可以这样做,但这在Word中不存在。

最终目标是从字母的名称返回相应希腊字母的unicode值,因此,如果有更好的方法,我可以接受建议。也许我已经编写了太多的python,并且列表似乎很简单。

1 个答案:

答案 0 :(得分:1)

您需要遍历数组并根据搜索到的值测试每个值。

这里有一些伪代码可以帮助你入门。

Dim greek() As String
Dim x As Integer
Dim searchString As String
Dim match As Integer

For x = LBound(greek) To UBound(greek)
    If greek(x) = searchString Then
        match = x
        Exit For
    End If
Next x