Sub FileOpener()
' Paul Beverley - Version 08.08.20
' Menu system to select and load a file(s)


' On Windows, it will need to be something like:
myFolder = "C:\Documents and Settings\Paul\My Documents\Macro stuff"

' On a Mac, it will need to be something like:
myFolder = "/Users/Paul/My Documents/Macro stuff"

myPrompt = "L = FRedit library, A = Appendices, V = Video list,"
myPrompt = myPrompt & "M = MTR, M2 = MTR 2, MM = MTR_Mac, B = Book,"
myPrompt = myPrompt & "BM = Book + Macros,"

findThis = ""
gotoBM = False
myPrompt = Replace(myPrompt, ", ", vbCr)
myPrompt = Replace(myPrompt, ",", vbCr)
myFile = UCase(InputBox(myPrompt, "FileOpener"))

Select Case myFile
  Case "L"
    Documents.Open FileName:=myFolder & "aFRedit\5_Library.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=1000, Height:=500
    Application.ActiveWindow.View.Zoom.Percentage = 160

  Case "A"
    Documents.Open FileName:=myFolder & "ComputerTools4Eds_Appendices.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=1100, Height:=420
    Application.ActiveWindow.View.Zoom.Percentage = 160
    gotoBM = True

  Case "V"
    Documents.Open FileName:=myFolder & "VideoList.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=500, Height:=700
    Application.ActiveWindow.View.Zoom.Percentage = 160
    findThis = "=="

  Case "M"
    Documents.Open FileName:=myFolder & "Macros_by_the_tourist_route.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=800, Height:=900
    Application.ActiveWindow.View.Zoom.Percentage = 160

  Case "M2"
    Documents.Open FileName:=myFolder & "Macros_by_the_tourist_route_2.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=800, Height:=700
    Application.ActiveWindow.View.Zoom.Percentage = 160

  Case "MM"
    Documents.Open FileName:=myFolder & "Macros_by_the_tourist_route_Mac.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=600, Height:=900
    Application.ActiveWindow.View.Zoom.Percentage = 160

  Case "B"
    Documents.Open FileName:=myFolder & "ComputerTools4Eds.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Resize Width:=1200, Height:=600
    Application.ActiveWindow.View.Zoom.Percentage = 160
    gotoBM = True

  Case "BM"
    Documents.Open FileName:=myFolder & "ComputerTools4Eds.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Move Left:=20, Top:=0
    Application.Resize Width:=1200, Height:=350
    Application.ActiveWindow.View.Zoom.Percentage = 160
    findThis = "1. Bookmarks"

    Documents.Open FileName:=myFolder & "TheMacros.docx"
    ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Application.Move Left:=20, Top:=350
    Application.Resize Width:=1300, Height:=350
    Application.ActiveWindow.View.Zoom.Percentage = 160

  Case Else: Beep
End Select

If findThis > "" Then
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = findThis
    .Replacement.Text = ""
    .MatchCase = False
    .MatchWildcards = False
    .Execute
  End With
End If

If gotoBM = True Then
  If ActiveDocument.Bookmarks.Exists("myTempMark") Then
    ActiveDocument.Bookmarks("myTempMark").Select
  Else
    Beep
  End If
End If
End Sub