For me, this does not work, in that the numbered list of the style that I copy does not retain the number when pasted:
Code:
Set oRng = Selection.Range
Options.PasteOptionKeepBulletsAndNumbers = True
oRng.PasteSpecial DataType:=wdPasteText
It seems like it should work, but it does not. In other words, when I copy:
1. Some text...
When I paste using the above code, what gets pasted in is:
Some text...
So, that means I have to add back in the numbering.