Application VisualBasic Script

Sub map()
    ActiveWindow.DocumentMap = True
End Sub