Trying to copy formatted text _without_ Style?

[Ed]

I get documents with a mish-mash of styles and formatting applied directly
to the text. I am wondering if there is some way I could copy all of the
text and any direct formatting over into a new doc based on my own template,
but not any styles. I tried FormattedText in VBA, but the style came into
the new document with the text - so did Edit>>Paste Special>>RTF.

I'm beginning to think I would need to crawl through every word of every
paragraph, capture any formatting applied in an array, paste the text over
as unformatted, then read the paragraph word by word and apply any
formatting in the array.

Is there an easier way?

Ed

 

[j.a. de gijsel]

I get documents with a mish-mash of styles and formatting applied directly
to the text. I am wondering if there is some way I could copy all of the
text and any direct formatting over into a new doc based on my own template,
but not any styles. I tried FormattedText in VBA, but the style came into
the new document with the text - so did Edit>>Paste Special>>RTF.

I'm beginning to think I would need to crawl through every word of every
paragraph, capture any formatting applied in an array, paste the text over
as unformatted, then read the paragraph word by word and apply any
formatting in the array.

Is there an easier way?

Ed

Perhaps this will do the trick: in order to carry out macro, first
select all
then carry out macro, of course control All may be integrated into the
macro.

Sub Opmaak4()
'
' Macro8 Macro
' Macro opgenomen op 11-10-2005
'
Selection.PasteAndFormat (wdFormatPlainText)
End Sub