Word 2013將插入點移動到單詞的末尾

Question

有沒有簡單的直接方法將插入點移動到Word 2013中單詞的末尾？在單詞的末尾，我的意思是該單詞的最後一個字符是插入點的左側，尾部空格或標點符號位於右側，並且沒有選擇任何內容。我相信Word 2002能夠在沒有宏的情況下做到這一點。我已經創建了下面的宏來做到這一點，但我確信必須有內置的方法來做到這一點，或者至少宏可以變得更簡單。

Sub MoveCursorEndWord() 
Selection.MoveRight Unit:=wdWord, Count:=1 
Selection.MoveLeft Unit:=wdCharacter, Count:=1 

If Selection.Text <> " " Then 
Selection.MoveRight Unit:=wdCharacter, Count:=1 
End If 

End Sub 

Answer 1

其實，我提出的程序與你的程序沒有太大的不同。

Sub EndOfWord() 

    Dim Rng As Range 

    With Selection 
     .Words(1).Select 
     .Collapse wdCollapseEnd 
     Do While .Start 
      Set Rng = .Range 
      Rng.MoveStart wdCharacter, -1 
      If Asc(Rng.Text) = 32 Then 
       .Move wdCharacter, -1 
      Else 
       Exit Do 
      End If 
     Loop 
    End With 
End Sub 

問題在於Word堅持在其「概念」中包含尾隨空格。由於您似乎遵循不同的定義，所以存在自然衝突。