Sub Test()
dim wo as string
dim par as string
wo = Selection.words(1) 'this is ok
par = Selection.Paragraphs(1) 'this is type mismatch
Msgbox par
End Sub
Thank you very much for your idea, I am really stucked with this one. Have a nice day
dim wo as string
dim par as string
wo = Selection.words(1) 'this is ok
par = Selection.Paragraphs(1) 'this is type mismatch
Msgbox par
End Sub
Thank you very much for your idea, I am really stucked with this one. Have a nice day