VBA Snippets

InsertPicture

Public Sub Doc_AutoTextInsert(sAutoTextName As String)
   On Error GoTo AnError
   
   If gbDEBUG = False Then Exit Sub
AnError:
   Call Error_Handle("Doc_AutoTextInsert", msMODULENAME, 1, _
        "add the autotext entry """ & sAutoTextName & """")
End Sub