Question

我想在Word中选择一些文本，例如＆＃34; abcde fgh jkl＆＃34;并用宏来反转它并将其作为＆＃34; lkj hgf edcba＆＃34;

我在www.textreverse.com找到了一个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;
}

Answer 1

您无需从头开始编写此功能。有一个现成的内置功能。</ p>

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

Answer 2

您可以使用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。

使用vba单词反转所选文本

2 个答案: