Insert Word Document with a macro, retain original formatting

**dwhims** · 11-26-2013, 02:42 PM

Hi all,

I am trying to create a macro that will insert a separate Word document into the one I'm working on, but retain the original formatting of the separate document.

Confused yet? Let me explain. I have a master form that folks are filling out. If they need to add an additional page of contacts, I have them clicking a checkbox, which runs a macro to insert the new page. The contact page is a separate document. The contact page is set up with a font size of 11. However, when my macro inserts the contact page, it changes the font size to 12, which totally screws up the layout.

Here's the code I currently have:

Selection.EndKey Unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
ChangeFileOpenDirectory "N:\Attachments\"
Selection.InsertFile FileName:= _
"N:\Attachments\Mailing List Intake Form.docm" _
, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

What should I add to this code to make it keep the font size of 11? Any ideas would be greatly appreciated!

Thanks!

**macropod** · 11-26-2013, 05:34 PM

You can only do that using the InsertFile method when the source document honours the Style definitions found in the destination document. If the Style definitions are not the same, or are not honoured in the source document, the results cannot be guaranteed when using the InsertFile method. Your choices, therefore, are to (a) ensure the Style definitions are the same and are honoured in the source document; or (b), open, copy & paste the source document, using 'PasteAndFormat (wdFormatOriginalFormatting)'.

**dwhims** · 11-26-2013, 06:05 PM

Thanks for the reply! I was afraid that was going to be the case, so I changed the layout of my inserted document to be a little more forgiving of font size. Not the ideal solution, but it's working.

Thanks again!