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が末尾のスペースを「単語」の概念に含めることを主張することです。あなたは異なる定義に従っているように見えるので、自然な葛藤があります。