Excel VBA to convert word file to pdf

sorry, that's my fault, forget to change the extension of PDF file

i'd try your code, but error:

Formula:

.SaveAs fileName:=.Range("E" & r).Text, FileFormat:=wdFormatPDF, AddToRecentFiles:=False