Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Cut
Selection.TypeText Text:="{{c1::"
Selection.PasteAndFormat (wdFormatPlainText)
Selection.TypeText Text:="}}"
Selection.TypeParagraph
End Sub


it fails at the pasting stage
i tried the automatic paste and plainText paste but same failed result