Let me know where you're at in the process.
What does your subroutine look like right now?
Btw, this line of code
Code:
Set new_range = wdDoc.Range(bk.Start, bk.End)
shouldn't give a mismatch error.
This, however, which was posted by guessed,
Code:
Set wdRng = wdDoc.Bookmarks.Exists("D" & Abs(dblC22))
would give you a type mismatch. "wdDoc.Bookmarks.Exists" returns a boolean (true or false) and not a range object. Change it to
Code:
Set wdRng = wdDoc.Bookmarks.("D" & Abs(dblC22)).Range