Thanks for your response gmayor...

I intended to convert part of word document file (Specified Page Range) in PDF Format. And I succeeded using below mentioned code.

Sub SavePageRangeasPDF()
'
' SavePageRangeasPDF Macro
'
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=CurrentFolder & "Hello All" & ".pdf", _
ExportFormat:=wdExportFormatPDF, _
Range:=wdExportFromTo, From:=2, To:=11

End Sub

In this similar way I want to save a duplicate copy of a word file (Specified Page Range) in docx format with SaveAs Dialogue box pop up to change the file name.

Please help me in generating a code for this