treepayment.blogg.se - Mac pdf word keeps saving multiple files for document

If FileName = "False" Or FileName = "" Then Exit Sub

"(will ask again if you provide an invalid file name)", _ Click to Rename.", vbYesNoCancel)įileName = InputBox("Provide New File Name " & _ UserAnswer = MsgBox("File Already Exists! Click " & _

InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)ĭirFile = CurrentFolder & FileName & ".pdf" 'NOTES: PDF Will Be Saved To Same Folder As Word Document FileĬurrentFolder = ActiveDocument.Path & "\"įileName = Mid(myPath, InStrRev(myPath, "\") + 1, _ 'PURPOSE: Generate A PDF Document From Current Word Document