使用vba word反转所选文本

我想在Word中选择一些文本，例如“abcde fgh jkl”，并用宏将其反转，使其成为“lkj hgf edcba”

我在上找到了一个javascript代码，但无法与vba一起使用，有人能帮忙吗？提前谢谢

function reverse() {
   var value = document.myForm.myText.value;
   for (var text = '',i=value.length-1;i>-1;i=i-1)
       text += value.charAt(i);
   document.myForm.myText.value = text;
}

---

你可以使用StrReverse函数，或者如果你想编码的话

Dim strStart as string
    dim strComplete as string
    dim I as integer

    strStart = "TESTING"

    for I = len(strstart) to 1 step -1
        strcomplete=strcomplete& mid(strStart,i,1)
    next I

---

我还没有测试过这个，但是你用VB下一步做的是什么，而不是javascript。

你不必费劲从头开始编写这个函数。有一个现成的内置功能供您使用

Function ReverseText(MyText As String)
    ReverseText = StrReverse(MyText)
End Function

---

此代码是否适用于旧版本的ms word？因为我无法使它在较旧的设置上工作，即使它在word 2013上正常工作。完整的代码版本应该是。我们说的是几岁？选定的文本将是

MyText

，因此，例如

strReversed=ReverseText（selectedtext）

。