1. You could try changing:
.InsertAfter "Drafted" & " Something" & vbCr
to:
.InsertAfter "Drafted" & " Something" & Chr(11) & vbCr

2. A Section is an object spanning a Range. In a document without Section breaks, the first Section spans the whole document.

3. The insertion point, which has 0 length, or a 0-length range (e.g. MsgBox Len(ActiveDocument.Range(1, 1)))

4. .Paragraphs(i).Range refers to the entire paragraph i.

5. About the only such books I've ever used (and still have in my posession) are the manuals that came with Office Version 4 in 1993...

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]