Convert MS-Word document to PDF and email

macropod · #2 04-03-2018, 06:54 PM

Simply change:

Code:

    If ActiveDocument.FullName = "" Then
        MsgBox "activedocument not saved, exiting"
        Exit Sub
    Else
        If MsgBox("Save Document?", vbYesNo, "Error") <> vbYes Then Exit Sub
    End If
    strAtt = ActiveDocument.FullName

to:

Code:

    With ActiveDocument
      If .FullName = "" Then
        MsgBox "activedocument not saved, exiting"
        Exit Sub
      ElseIf .Saved = False Then
        If MsgBox("Save Document?", vbYesNo, "Error") <> vbYes Then Exit Sub
        .Save
      End If
      strAtt = Split(.FullName, ".doc")(0) & ".pdf"
      .SaveAs FileName:=strAtt, FileFormat:=wdFormatPDF, AddToRecentFiles:=False
    End With

(I've added a couple of minor enhancements)

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Why is a Word document coming up as this? How do I convert?	zooeyhall	Word	2	10-01-2015 06:22 AM
Convert word document to pdf	Catty	Word VBA	1	12-11-2013 03:57 PM
Convert a word document in an empty one with backgrounds	Esgrimidor	Word VBA	11	12-03-2012 03:44 PM
PDF to Word(.doc) document not convert correctly	gonner	Word	1	09-10-2011 03:25 AM
Convert word document to JPEG. The word document may contain headerfooters	vijayaram	Word	1	12-30-2009 08:25 AM