mdifrm.frm

Simple Word Document...

         Caption         =   "&New"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuOpen 
         Caption         =   "&Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuClose 
         Caption         =   "&Close"
         Enabled         =   0   'False
      End
      Begin VB.Menu MnuFilesep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSave 
         Caption         =   "&Save"
         Enabled         =   0   'False
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuSaveAs 
         Caption         =   "Save &As"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuFilesep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPageSetup 
         Caption         =   "Page Set&up"
      End
      Begin VB.Menu mnuPreview 
         Caption         =   "Print Pre&view"
      End
      Begin VB.Menu mnuPrint 
         Caption         =   "&Print"
      End
      Begin VB.Menu mnuFileSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuexit 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuUndo 
         Caption         =   "&Undo"
      End
      Begin VB.Menu mnuRedo 
         Caption         =   "Redo"
      End
      Begin VB.Menu mnuEditsep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Cu&t                  Ctrl+X"
      End
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy               Ctrl+C"
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "&Paste              Ctrl+V"
      End
      Begin VB.Menu mnuEditsep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "Cle&ar"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu mnuSelectAll 
         Caption         =   "Select A&ll"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuEditsep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFind 
         Caption         =   "&Find"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuReplace 
         Caption         =   "R&eplace"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "&View"
      Begin VB.Menu mnuHeaderFooter 
         Caption         =   "&Header and Footer"
      End
      Begin VB.Menu mnuToolbar 
         Caption         =   "&Toolbars"
         Begin VB.Menu mnuTool 
            Caption         =   "&Standard"
            Checked         =   -1  'True
            Index           =   0
         End
         Begin VB.Menu mnuTool 
            Caption         =   "&Edit"
            Checked         =   -1  'True
            Index           =   1
         End
         Begin VB.Menu mnuTool 
            Caption         =   "&Formatting"
            Checked         =   -1  'True
            Index           =   2
         End
      End
   End
   Begin VB.Menu mnuInsert 
      Caption         =   "&Insert"
      Begin VB.Menu mnuBreak 
         Caption         =   "&Break"
      End
      Begin VB.Menu mnuDateTime 
         Caption         =   "Date and &Time"
      End
      Begin VB.Menu mnuAutoText 
         Caption         =   "&Auto Text"
         Begin VB.Menu mnuAttentionLine 
            Caption         =   "Attention Line"
            Begin VB.Menu mnuAttn 
               Caption         =   "Attention:"
               Index           =   0
            End
            Begin VB.Menu mnuAttn 
               Caption         =   "ATTN:"
               Index           =   1
            End
         End
         Begin VB.Menu mnuClosingM 
            Caption         =   "Closing"
            Begin VB.Menu mnuClosing 
               Caption         =   "Best Regards,"
               Index           =   0
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Best wishes,"
               Index           =   1
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Cordially,"
               Index           =   2
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Love,"
               Index           =   3
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Regards,"
               Index           =   4
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Respectfully yours,"
               Index           =   5
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Respectfully,"
               Index           =   6
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Sincerely yours,"
               Index           =   7
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Sincerely,"
               Index           =   8
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Take care,"
               Index           =   9
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Thank you,"
               Index           =   10
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Thanks"
               Index           =   11
            End
            Begin VB.Menu mnuClosing 
               Caption         =   "Yours truly,"
               Index           =   12
            End
         End
         Begin VB.Menu mnuMailingI 
            Caption         =   "Mailing Instructions"
            Begin VB.Menu mnuMailing 
               Caption         =   ""
               Index           =   0
            End
         End
         Begin VB.Menu MnuReferenceL 
            Caption         =   "Reference Line"
            Begin VB.Menu MnuReference 
               Caption         =   ""
               Index           =   0
            End
         End
         Begin VB.Menu mnuSalute 
            Caption         =   "Salutation"
            Begin VB.Menu mnuSalutation 
               Caption         =   ""
               Index           =   0
            End
         End
         Begin VB.Menu mnuSubjectL 
            Caption         =   "Subject Line"
            Begin VB.Menu mnuSubject 
               Caption         =   "Subject:"
            End
         End
      End
      Begin VB.Menu mnuSymbol 
         Caption         =   "&Symbol"
      End
      Begin VB.Menu mnuInsertSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPicture 
         Caption         =   "&Picture"
         Begin VB.Menu mnuFromFile 
            Caption         =   "From &File"
         End
         Begin VB.Menu mnuFromScanner 
            Caption         =   "From &Scanner"
            Visible         =   0   'False
         End
      End
      Begin VB.Menu mnuInsertFile 
         Caption         =   "&File"
      End
   End
   Begin VB.Menu mnuFormat 
      Caption         =   "F&ormat"
      Begin VB.Menu mnuFonts 
         Caption         =   "&Fonts"
      End
      Begin VB.Menu mnuParagraph 
         Caption         =   "&Paragraph"
      End
      Begin VB.Menu mnuBulletNumber 
         Caption         =   "Bullets and &Numbering"
      End
      Begin VB.Menu mnuAlignment 
         Caption         =   "&Alignments"
         Begin VB.Menu mnuAlign 
            Caption         =   "&Left Align"
            Index           =   0
         End
         Begin VB.Menu mnuAlign 
            Caption         =   "&Right Align"
            Index           =   1
         End
         Begin VB.Menu mnuAlign 
            Caption         =   "&Center Align"
            Index           =   2
         End
      End
      Begin VB.Menu mnuFormatSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuChangeCase 
         Caption         =   "Change Cas&e"
      End
   End
   Begin VB.Menu mnuTools 
      Caption         =   "&Tools"
      Begin VB.Menu mnuSpellGrammer 
         Caption         =   "Spelling and Grammer"
         Shortcut        =   {F7}
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin VB.Menu mnuNewwindow 
         Caption         =   "&New window"
      End
      Begin VB.Menu mnuHorizon 
         Caption         =   "Tile &Horizontal"
      End
      Begin VB.Menu mnuVertical 
         Caption         =   "Tile &Vertical"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuAboutus 
         Caption         =   "&About Abhilasha Mywordy"
      End
   End
End
Attribute VB_Name = "MDIfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Private Sub comFont_Change()
    If Not ComFont.ListIndex < 0 Then
        MDIfrm.ActiveForm.Document_.SelFontName = ComFont.Text
    End If
End Sub

Private Sub ComFont_Click()
    comFont_Change
End Sub

Private Sub comSize_Change()
    If Not IsNumeric(comSize.Text) Then Exit Sub
    If comSize.Text = 0 Then Exit Sub
    MDIfrm.ActiveForm.Document_.SelFontSize = comSize.Text
End Sub

Private Sub comSize_Click()
    comSize_Change
End Sub

Private Sub EditTools_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "CUT"
            mnuCut_Click
        Case "COPY"
            mnuCopy_Click
        Case "PASTE"
            mnuPaste_Click
        Case "UNDO"
        Case "REDO"
    End Select
End Sub

Private Sub FileTools_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case UCase(Button.Key)
        Case "NEW"
            mnuNew_Click
        Case "OPEN"
            mnuOpen_Click
        Case "SAVE"
            mnuSave_Click
        Case "PREVIEW"
        Case "PRINT"
    End Select
    
End Sub

Private Sub FormatTools_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "BOLD"
            MDIfrm.ActiveForm.ActiveControl.SelBold = Not MDIfrm.ActiveForm.ActiveControl.SelBold
        Case "ITALIC"
            MDIfrm.ActiveForm.ActiveControl.SelItalic = Not MDIfrm.ActiveForm.ActiveControl.SelItalic
        Case "UNDERLINE"
            MDIfrm.ActiveForm.ActiveControl.SelUnderline = Not MDIfrm.ActiveForm.ActiveControl.SelUnderline
        Case "LEFTALIGN"
            mnuAlign_Click (0)
        Case "CENTERALIGN"
            mnuAlign_Click (2)
        Case "RIGHTALIGN"
            mnuAlign_Click (1)
        Case "BULLET"
            mnuBulletNumber_Click
    End Select
End Sub

Private Sub MDIForm_Load()
    
    SetAutotextMenu