Sri Please find The code for Moving from One Keyword to other: I have assigned a Hot Key Crtl+6

Just Add a module and place this code:



Code:
Sub CheckMove()
    
    Dim lngStart   As Long
    Do
        lngStart = Selection.Start
        Selection.Move unit:=wdWord
        Selection.MoveRight unit:=wdWord, Extend:=wdExtend
        If Selection.Bookmarks.Exists("\EndOfDoc") = True Then
            Selection.GoTo what:=wdGoToLine, which:=wdGoToFirst, Count:=1, Name:=""
        End If
        If Selection.Font.Color = wdColorGreen And Selection.Range.HighlightColorIndex = wdYellow Then
            Exit Sub
        End If
        
    Loop
    
End Sub

Regarding the error: either your file is readonly or you don't have write permission.
Or some time it get locked.. So I have suggestion Just Move your Text In the file where code is running fine...



Thanks
Rahul Kumar Singh