CODEWITHSUNDEEP
vbams-word
Maciek Wojciechowski
Maciek Wojciechowski

Reputation: 41

Undesired bullet format change after pasting (Word 2016)

I am loosing bullet formatting copying it from specific files.

There is a VBA code which is copying whole word documents and pasting it into one word document. There is a problem that in some of the source files We have a squared bullets, which change into circle after pasting to main document. I was trying to copy and paste it manually using "keep source formatting" but without any luck. Strange thing is that pasting from some of the documents doesn't lose the format on bullets. Maybe there is some workaround to have exactly the same formatting as it is in source. 

doc.Range.Copy
Set pasteBriefAt = template.Range
pasteBriefAt.InsertAfter (vbCrLf)
pasteBriefAt.End = pasteBriefAt.End - 1
pasteBriefAt.Collapse wdCollapseEnd
pasteBriefAt.Paste

source document

how it look like after pasting

Upvotes: 0

Views: 176

Answers (1)

macropod
macropod

Reputation: 13515

You should consider using the FormattedText method. For example:

With DocTgt.Range
  .Range.InsertAfter vbCr
  .Range.Characters.Last = DocSrc.Range.FormattedText
End With

Upvotes: 0

Related Questions