I assume you're trying to do this from within Word itself. If so, you're in the wrong forum.

Try something along these lines:


Sub copyClaim()
Dim doc As Document
Dim rng As Range
...