vba,ms-word,word-vba,
Используйте другую ссылку для своей «копии»:
Dim selBkUp As Range Set selBkUp = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End)
Или используйте дубликат:
Dim selBkUp As Range selBkUp = Selection.Range.Duplicate
Selection.Range автоматически дублируется, поэтому вы можете просто сделать:
Selection.Range
Dim selBkUp As Range Set selBkUp = Selection.Range