Sub MMM() ' ' MMM Macro ' 'Call OpenDoc("E:\DOCUMENTS\MMM\LETTER.doc") Selection.MoveDown Unit:=wdLine, Count:=6 End Sub  Sub OpenDoc(StrDoc As String) Documents.Open FileName:="StrDoc", ConfirmConversions:=False, ReadOnly:= _   False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _   "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _   Format:=wdOpenFormatAuto, XMLTransform:=""