I would like to export my Word Doc as pdf file and send it as an attachment in Outlook email?

You can easily add the following to your QAT.

.

The E-Mail as PDF Attachment creates the pdf and attaches it to an email ready to be addressed and sent. It uses the default email program.

.

You want to choose commands from under the File Tab. The command/menu is Send.

If you want you can save the QAT modification in a document or template rather than in the default on your computer. This will mean it would be available for anyone using the template even if not on your computer. See step (6) in the screenshot.

Modifying the Quick Access Toolbar (QAT) in Microsoft Word

Note: The default text for that button is Send but you could change it to Send E-Mail if you want.

I assume that by button, you meant an ActiveX button which requires macros. This does not require any macro and would not have to be saved in a .docm/.dotm file. It likely will also work on a Mac while ActiveX would not.

First, have you done:

File > Share > Email > PDF Attachment?

You want something shorter?

i used the following and still getting an error when i try to complete.

Compile error:

Expected End Sub

I don't know how to fix the bug can you help me.

Private Sub CommandButton1_Click()

Sub SendAsPDF()

Dim strFileName As String 

Dim objOutlook As Object 

Dim objMailItem As Object 

' Replace .docx with .pdf

strFileName = Replace(ActiveDocument.FullName, ".docx", ".pdf") 

' Export the document as PDF

ActiveDocument.ExportAsFixedFormat OutputFileName:=strFileName, \_ 

    ExportFormat:=wdExportFormatPDF 

' Create a new mail item

Set objOutlook = CreateObject("Outlook.Application") 

Set objMailItem = objOutlook.CreateItem(0) ' 0 = olMailItem 

With objMailItem

    .Subject = "New Threat Assessment" 

    .Body = "Attached is a new threat assessment" 

    .To = "******@gmail.com" 

    .Attachments.Add strFileName 

    .Display  ' or . Send 

End With 

' Clean up

Set objMailItem = Nothing 

Set objOutlook = Nothing 

End Sub

Hello Victor,

I'm Shalom and I'd happily help you with your question. In this forum, we are Microsoft consumers just like yourself.

Sure, I can help with that. Here’s a VBA code snippet that you can use to create a button called “Send Email” in Word. This code will export your Word document as a PDF and send it as an attachment in an Outlook email.

Sub SendAsPDF() Dim strFileName As String Dim objOutlook As Object Dim objMailItem As Object

' Replace .docx with .pdf strFileName = Replace(ActiveDocument.FullName, ".docx", ".pdf")

' Export the document as PDF ActiveDocument.ExportAsFixedFormat OutputFileName:=strFileName, _ ExportFormat:=wdExportFormatPDF

' Create a new mail item Set objOutlook = CreateObject("Outlook.Application") Set objMailItem = objOutlook.CreateItem(0) ' 0 = olMailItem

With objMailItem . Subject = "Your Subject" . Body = "Your Message" . To = "Recipient's Email Address" . Attachments.Add strFileName . Display ' or . Send End With

' Clean up Set objMailItem = Nothing Set objOutlook = Nothing End Sub

You can replace "Your Subject", "Your Message", and "Recipient's Email Address" with your actual subject, message, and recipient’s email address.

Please note that this code requires Microsoft Outlook to be installed on your computer.

Best Regards, Shalom

Open your Word File, go to File Save As and select PDF as your file type.