'DavidCoupe Macro
'
'
ChangeFileOpenDirectory "E:\DOCUMENTS\COUPE\"
Documents.Open FileName:="D_C.dotm", ConfirmConversions:=False, ReadOnly:= _
    False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
    "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
    Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.MoveDown Unit:=wdLine, Count:=6
End Sub
 
Sub HDDJtPaper()
'
' HDDJtPaper Macro
'
' ChangeFileOpenDirectory "E:\DOCUMENTS\"
Documents.Open FileName:="HDDjt.docx", ConfirmConversions:=False, ReadOnly _
    :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
    :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
    , Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.MoveDown Unit:=wdLine, Count:=8
End Sub
 
Sub QUESTA()
'
' QUESTA Macro
'
'
ChangeFileOpenDirectory "E:\DOCUMENTS\QUESTA\"
Documents.Open FileName:="CHRIS.doc", ConfirmConversions:=False, ReadOnly _
    :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
    :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
    , Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.MoveDown Unit:=wdLine, Count:=7
End Sub
 
Sub HDDR()
'
' HDDR Macro
'
'
ChangeFileOpenDirectory "E:\DOCUMENTS\"
Documents.Open FileName:="HDDRpaper.docx", ConfirmConversions:=False, _
    ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
    PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
    WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub