Create and Execute in Word Visual Basic For Application

by Sam Blagoslovenskiy (5 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 14^th March 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Create and Execute in Word Visual Basic For Application



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

Download this snippet Add to My Saved Code

Create and Execute in Word Visual Basic For Application Comments

No comments have been posted about Create and Execute in Word Visual Basic For Application. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty