Help with a basic Word 365 macro

Copper Contributor

I wonder if anyone can help.  I am migrating 45 PC from Office 2013 to 365.

 

I have 3 basic macros that copy and paste some simple word documents.  These were working fine in Word 2013.

 

They all stop at the paste section.  An example of a code is below.  Anyone able to point me in the right direction?

 

G drive is our file print server

---------------------------------------------------------------------------------------------------------------

Sub NEWSMLLETTER1()
'
' NEWSMLLETTER1 Macro
'
'
ChangeFileOpenDirectory _
"G:\Word Office Templates 2013\New SML Letterheads for Macros\"
Documents.Open FileName:= _
"G:\Word Office Templates 2013\New SML Letterheads for Macros\NEW MASTER 1 Without Heading.docx" _
, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
Selection.WholeStory
Selection.Copy
ActiveDocument.Close
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
End Sub

0 Replies