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
Bookmarks