Hi,



I want a macro for the below requirements :

1. Convert the current page of word document into pdf

2. Should take me by default to Desktop

3. Should allow me to give a file name

***

I have the below code, however i have the below challenges:

a. entire word document is getting convert instead of current page
b. by default taking me to My documents folder on my system

Sub PDF()
With Dialogs(wdDialogFileSaveAs)
.Name = "Draft_[Topic]_[Date]"
.Format = wdFormatPDF
.Show
End With
End Sub


Can some help me in editing the above code or give me a new code with above requirements

Thanks in advance....