15 YouTube views, likes subscribers in 10 minutes. Free!
Get Free YouTube Subscribers, Views and Likes

How to create a fillable form with a submit button in Word

Follow
Melissa Compton

​In this tutorial you’ll learn how to create a fillable form with a submit button in Word. I've included the visual basic script in the description below so you can use it during that step.

SOFTWARE:
https://melcompton.com/recommends/adobe/

GEAR:
Lenovo ThinkPad Laptop: https://amzn.to/2NvXTGU
Dell Monitors: https://amzn.to/3r0iwte
VIVO Dual Monitor Mount Stand: https://amzn.to/3bBmJ0f
Logitech Wireless Mouse and Keyboard: https://amzn.to/2OX7V4g
Powered USB Hub: https://amzn.to/3bBmCBR
Focusrite Scarlett Solo: https://amzn.to/3aMzIwV
AudioTechnica Headset: https://amzn.to/2Np3Qpl
WC Wicked Cushions Replacement Earpads: https://amzn.to/3uoihuh

LET’S CONNECT:
Facebook:   / therealmelcompton  
Twitter:   / melissaecompton  
LinkedIn:   / melissacompton17701240  
Instagram:   / melissaacompton  



NOTE: This description contains affiliate links, which means at no additional cost to you, I will receive a small commission if you make a purchase using the links. This helps support the channel and allows me to continue making videos like this. Thank you for your support!


***VISUAL BASIC CODE FOR SUBMIT BUTTON**

Be sure to change the .subject, .body and .to so it will work for you.

Dim xOutlookObj As Object

Dim xEmail As Object

Dim xDoc As Document

Application.ScreenUpdating = False

Set xOutlookObj = CreateObject("Outlook.Application")

Set xEmail = xOutlookObj.CreateItem(olMailItem)

Set xDoc = ActiveDocument

xDoc.Save

With xEmail

.Subject = "Test Email"

.Body = "This is a test email for submit button"

.To = "[email protected]"

.Importance = olImportanceNormal

.Attachments.Add xDoc.FullName

.Display

End With

Set xDoc = Nothing

Set xEmail = Nothing

Set xOutlookObj = Nothing

Application.ScreenUpdating = True

End Sub

posted by tensasen7f