• Home
 · 
• Miscellaneous
 · 
• Create and Execute in Word Visual Basic For Application

Create and Execute in Word Visual Basic For Application

Create and Execute in Word Visual Basic For Application

Rate Create and Execute in Word Visual Basic For Application

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim objWord As New Word.Application
Dim objVBComp
Dim objDoc As Document
Set objDoc = objWord.Documents.Add
    Set objVBComp = objWord.VBE.VBProjects(1).VBComponents.Add(1)
    objVBComp.Activate
    objVBComp.CodeModule.AddFromString "Public Function msg(sMsg as string,optional lMsg as  vbmsgboxstyle )" & vbCrLf & "msg = msgbox(sMsg,lMsg)" & vbCrLf & "End Function"
    Debug.Print objWord.Run("msg", "Hello Buddy", VbMsgBoxStyle.vbDefaultButton1 + VbMsgBoxStyle.vbOKCancel)
    objWord.VBE.VBProjects(1).VBComponents.Remove objVBComp
    objDoc.Close False
    Set objDoc = Nothing
    objWord.Quit False
    Set objWord = Nothing
 
End Sub