🚀 go-pugleaf

reyman--

You cannot simply copy the object. Instead, you have to copy every property
of the object. Something like this:

doc_style = application.Documents.open(styles_file)
nb = doc_style.ParaStyles.count
For i = 1 To nb
If docStyle.ParaStyles.Item(i).Name <> "[No paragraph style]" Then
set myStyle = docStyle.ParaStyles.Item(i)
style = new_document.ParaStyles.add()
style.Name = myStyle.Name
style.Font = myStyle.Font
style.FontStyle = myStyle.FontStyle
style.PointSize = myStyle.PointSize
Rem And so on, through each property.
Rem You'll have to create colors that correspond to the colors assigned to
Rem FillColor and StrokeColor, as you cannot simply assign
Rem a color object from one document to another.
next i

I think exporting text using the tagged text export method would be faster.

Thanks,

Ole