Обратное текстовое слово по слову

Question

Я хочу перевернуть слова в документе Word следующим образом: «elpmaS texT» становится «Sample Text».

Я пытался что-то вроде этого:

For Each word In ActiveDocument.Words 
    word = StrReverse(word) 
Next word 

Однако это не работает.

Как это сделать?

Answer 1

При использовании для каждого цикла, вы не можете изменить слово, поэтому используйте для цикла:

Dim i As Integer 

For i = 1 To ActiveDocument.Words.Count Step 1 

    ActiveDocument.Words(i) = StrReverse(ActiveDocument.Words(i)) & " " 
Next i 

Answer 2

Sub ReverseSelectedWords() 
    Dim i As Integer 
    Dim oWords As Words 
    Dim oWord As Range 

    Set oWords = Selection.Range.Words 

    For i = 1 To oWords.Count Step 1 

     Set oWord = oWords(i) 

     ''Make sure the word range doesn't include a space 
     Do While oWord.Characters.Last.text = " " 
      Call oWord.MoveEnd(WdUnits.wdCharacter, -1) 
     Loop 

     Debug.Print "'" & oWord.text & "'" 
     oWord.text = StrReverse(oWord.text) 

    Next i 

End Sub