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에서 "단어"라는 개념에 후행 공백을 포함해야한다는 것입니다. 당신이 다른 정의를 따르는 것처럼 보이기 때문에 자연스러운 갈등이 있습니다.