Converting Excel Sheet to PDF & then that PDF to Word

[SaifnJeans]

Hi Respected All Excel Experts, I need to convert Excel Sheet to PDF and then that PDF to Word. I have somehow managed to make and get following code through which my PDF file is getting saved in specific Folder with Specific name and even opening Word File But getting error in last 2 lines of the Code. Any help in this regard will really be appreciated;


Sub SaveAspdf()

Dim Path As String
Dim Deal As String
Dim Agent As String
Dim DocType As String
Dim dt_issue As Date
Dim FName As String

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Document")

Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Dim wa As New Word.Application
Dim doc As Word.Document
wa.Visible = True

Dim pdf_path As String
Dim word_path As String


Path = Range("D4")
Deal = Range("C3")
Agent = Range("C4")
DocType = Range("C5")
dt_issue = Range("B6")

FName = Deal & " " & Agent & " " & DocType
Sheets("Document").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FName, OpenAfterPublish:=False

pdf_path = sh.Range("D4").Value
word_path = sh.Range("D5").Value


Set doc = wa.Documents.Open(f.Path)
doc.SaveAs2 (word_path & "\" & Replace(f.Name, ".pdf", ".docx"))

 

[6StringJazzer]

getting error in last 2 lines of the Code. Any help in this regard will really be appreciated;

You can only get an error on one line because then execution stops. When asking for help with a runtime error always give the error number and error description.

Set doc = wa.Documents.Open(f.Path)

I don't know what error you are getting but the variable f is never assigned a value in your code so it will cause an error when you try to refer to f.path. I am not quite sure what you are trying to open so I don't know how to correct this code.

Also, do you need that PDF file? Or are you just using it as an intermediate step to get Excel content into a Word file? If so you can just copy from Excel and paste to Word.