When this option is enabled, the only change that anyone else can make to this document is the filling in of form fields.
Click the Restrict Editing button on the Developer tab. In this video we show you How to Create Filable Form Microsoft Word 2013-2016 This video tutorial will show you.When you’re ready to distribute a form so others can fill it out, you can restrict the form so that content controls cannot be removed or changed by those filling it out. Users select a date and the control automatically formats the date’s appearance.Ĭontains the form controls from previous versions of Word. When the form is visible in excel I cannot save the file or do anything other than use it to populate the table. Users choose from several selections that appear by clicking the list arrow. I followed the steps to create a fillable form in excel but when I encountered this step: The form can be now emailed to your Outlook recipients as needed. Shows a gallery of formatted design choices from the Quick Parts gallery.Ĭreates a list that users can edit directly. text input field that allows for rich text formatting.Ī text field limited to plain text, so no formatting can be included. Set xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd) XCurPageEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=xCurPageEnd + 1).Start XCurPageStart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=xCurPageStart).Start XPages = Selection.Information(wdNumberOfPagesInDocument) XFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'attached file is the attachment file name,change to your need XFilePath = CreateObject("WScript.Shell").SpecialFolders(16) To deal with your task, please apply the below code,in the code, you should change the start page and end page to your own:ĭim xCurPageStart As Long, xCurPageEnd As Long, xCurPageRange As Rangeĭim xCurPage As Integer, xPages As Integerĭim xDoc As Document, xNewDoc As Document At last, you just need to click Send button to send this message. Now, when clicking the command button you have created, an email will be created with the current Word document as attachment, see screenshot:Ħ. Then, save and close this code, click Design Mode to turn off the design mode. Note: In the above code, you should change the subject, body text or sent address to your need.ĥ. Set 圎mail = xOutlookObj.CreateItem(olMailItem) Set xOutlookObj = CreateObject("Outlook.Application")
And then, in the displayed Microsoft Visual Basic for Applications window, copy and paste the below code between the original scripts, see screenshot: Dim xOutlookObj As Object Then, close the Properties pane, now, right click the button, and choose View Code, see screenshot:Ĥ. Select the button, and click Properties under the Developer tab, in the Properties pane, type the caption text you need into the Caption field, see screenshot:ģ. First, you should create a command button, please click Developer > Legacy Tools > Command Button(ActiveX Control), see screenshot:Ģ. Please do with the following steps for solving this job in Word file:ġ. This article, I will introduce how to deal with it quickly and easily.Īpply a button to send email with current Word file attached If you need to send an email message from a Word document via Outlook, and attach the current Word file as well, you can create a command button, and then, send the message by clicking this button without opening the Outlook. How to apply a button to send email with current Word file attached?