Macro to PDF Problem

[JERRY21]

Hi All,

I do have using macro below to save my official receipt in microsoft word as PDF file to be send out to my customer,the problem is when is do have a repetition of same supplier name,the macro cant work it out to save the file individually and error message appear. So can anyone assist me on modify the macro below so that all the same supplier name official receipt can be compile as one pdf file to ease them to see.

Save then resulting document. NOTICE MODIFIED filename
ActiveDocument.SaveAs2 FileName:=Environ("userprofile") + "\Desktop\Output\" + DokName + ".pdf", FileFormat:= _
wdFormatPDF, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=14

Thanks You

 

[JERRY21]

Hi Mr Sergio,
It really work if my invoice number is - but if / the formula Replace does not work in my macro formula and error appear.Can I get your advice?

 

[sergioMabres]

The code I have suggested CHANGES "/" for "-" before you use the receipt as a name to save the PDF like in
filename = Replace(receiptnumber, "/", "-")
You are very close of solving the error but you need to understand your macro better in order to solve the problem by yourself
I cannot give you more advice without the error code/text or the whole macro
Cheers
Sergio