Something like this might help to get you started:
Code:
Sub MovetoLit()
Selection.Copy
ChangeFileOpenDirectory "\\path\"
Documents.Open FileName:= _
"\\path\filename.docx", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
Selection.PasteAndFormat (wdPasteDefault)
End Sub
And just assign it to Ctrl+Shift+L when you create it. Do pretty much the same thing with the other macros (all you really need to change is the name of the macro, the key-binding and the path/filename for each category). Hope that helps!