Public Sub AutoOpen()
    'ThisDocument.Application.ActiveWindow.View.Zoom.PageColumns = 1
    'ThisDocument.Application.ActiveWindow.View.Zoom.Percentage = 100
    ThisDocument.Application.ActiveWindow.View.Type = wdPrintView
    ThisDocument.Application.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
    
    ThisDocument.Application.Caption = "SIGNOUT"
    'ThisDocument.Application.ActiveWindow.Caption = "SIGNOUT"
    
    With ActiveDocument.Styles(wdStyleNormal).Font
        .Size = 1
    End With
    ActiveDocument.ActiveWindow.View.ReadingLayout = False
    'MsgBox ThisDocument.Application.UsableWidth
    SaveToRelativePath
    Call StartClock
End Sub
Sub RunFormAddPatient()
    Call StopClock
    Set ufAdd = New ufAddPatient
    ufAdd.Show vbModeless
    Call StartClock
End Sub
Sub RunFormSelectPatient()
    Call StopClock
    Dim frm As New ufSelectPatient
    frm.Show
    Call StartClock
End Sub
Sub RunFormDeletePatient()
    Call StopClock
    Dim frm As New ufDeletePatient
    frm.Show
    Call StartClock
End Sub
Sub sortNumbers()
    Call StopClock
    Call main("", "ROOM")
    Call StartClock
End Sub
Sub sortNames()
    Call StopClock
    Call main("", "RESIDENT")
    Call StartClock
End Sub
Sub ShowPrintDialog()
    Dialogs(wdDialogFilePrint).Show
End Sub
Sub resetZoom()
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = 100
End Sub
Sub fitZoom()
    ActiveDocument.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Sub whatPath()
    MsgBox ActiveDocument.FullName
End Sub
Private Sub Document_Close()
    Call StopClock
    ActiveDocument.Save
    Me.Saved = True
End Sub