Okay, so I have solved my UserForm not placing the text on the page.

Missed the second line as per below in bold.

For Each occ In oDoc.ContentControls
            Set oRng = occ.Range
Just struggling to get the text to format correctly.

This line makes every word capitalize.

oRng.Text = StrConv(.txtPPN1.Text, vbProperCase)