topic Re: Converting RTF to PDF via SAS in SAS Programming

Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 15:38:00 GMT

Hello everyone,,

I am trying to convert an RTF file to a PDF file using SAS 9.4. I am not talking about merely changing the ods output from rtf to pdf. Instead, I have a file in a folder that is in RTF format, and I want SAS to use that and convert it with code into a PDF file into another folder. Attached is a sample rtf file. I have read online that you can use the x command to do this but I am not sure about how to write the code. Thanks.

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 15:57:19 GMT

You need either DDE or VBS for this. I'm going to recommend vbs.

First try this script, by pasting into Notepad and saving it as a file with the vbs extension (not txt).

Modify the sFolder path to be appropriate for your computer and test that the script works first without SAS.

bRecursive = False
sFolder = "C:\_localdata\temp\Test"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWord = CreateObject("Word.Application")
oWord.Visible = True

Set oFolder = oFSO.GetFolder(sFolder)
ConvertFolder(oFolder)
oWord.Quit

Sub ConvertFolder(oFldr)
    For Each oFile In oFldr.Files
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "rtf" Then
            Set oDoc = oWord.Documents.Open(oFile.path)
            oWord.ActiveDocument.SaveAs oFile.path & "x", 17
            oDoc.Close
        End If
    Next

    If bRecursive Then
        For Each oSubfolder In oFldr.Subfolders
            ConvertFolder oSubfolder
        Next
    End If
End Sub

Once it works, then you can call the script from SAS, via x Command.

x "cscript ""path to file\temp.vbs""";

Then once that is working, you can decide if you want to create the vbs file directly from SAS using PUT statements.

This is one way at least, there are probably others...I think there's a one liner if you have Adobe Professional installed.

This is an example of how that may look when fully done, which converts files to a native Excel format.

https://gist.github.com/statgeek/c51f58a009f8d315a200f34912e494b1

@omka_ wrote:

Hello everyone,,

I am trying to convert an RTF file to a PDF file using SAS 9.4. I am not talking about merely changing the ods output from rtf to pdf. Instead, I have a file in a folder that is in RTF format, and I want SAS to use that and convert it with code into a PDF file into another folder. Attached is a sample rtf file. I have read online that you can use the x command to do this but I am not sure about how to write the code. Thanks.

Re: Converting RTF to PDF via SAS

data_null__ — Fri, 04 Oct 2019 16:03:04 GMT

@omka_ wrote:

Hello everyone,,

I am trying to convert an RTF file to a PDF file using SAS 9.4. I am not talking about merely changing the ods output from rtf to pdf. Instead, I have a file in a folder that is in RTF format, and I want SAS to use that and convert it with code into a PDF file into another folder. Attached is a sample rtf file. I have read online that you can use the x command to do this but I am not sure about how to write the code. Thanks.

Are you using a Windows version of SAS? Do you have WORD available on the machine that SAS is running on? If you open the RTF file in WORD is SAVE-AS-PDF an option? Are you allowed to use X command? It can be restricted.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 16:27:41 GMT

How would I test the code without SAS? Also when I try to save it as vbs, vbs does not show in the drop down menu. I just saved it with .vbs and it seemed to work.

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 16:38:42 GMT

Save the program as a .vbs file from NotePad and then run it by double clicking it.
Assumes Windows OS and that you have Word 2010+ installed.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 16:46:39 GMT

Also what is the sFolder supposed to be ? Is that the path where the vbs file is being saved to ?

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 16:52:36 GMT

Input files that need to be converted, in this program the converted PDFs are saved to the same folder.

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 16:54:19 GMT

You may need to modify this line...
oWord.ActiveDocument.SaveAs oFile.path & "x", 17

17 is for PDF, but the x is because I used this initially to convert DOC to DOCX. You'll need to add .pdf instead.

For testing, just change x to .pdf and once you confirm it works you can fix the path and extension to be more of what you want.

Re: Converting RTF to PDF via SAS

data_null__ — Fri, 04 Oct 2019 16:58:46 GMT

CSCRIPT can be executed from a CMD window.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 17:07:56 GMT

I changed what you said and I am still getting this error.

Script: C:\Users\ojoshi\Documents\temp.vbs

Line: 7

Char: 1

Error: Path not found

Code: 800A004C

Source: Microsoft VBScript runtime error

Maybe its the path that is incorrect?

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 17:09:31 GMT

Post the full code you're trying to run.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 17:11:28 GMT

bRecursive = False
sFolder = "C:\Users\ojoshi\Documents\temp\Test"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWord = CreateObject("Word.Application")
oWord.Visible = True

Set oFolder = oFSO.GetFolder(sFolder)
ConvertFolder(oFolder)
oWord.Quit

Sub ConvertFolder(oFldr)
    For Each oFile In oFldr.Files
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "rtf" Then
            Set oDoc = oWord.Documents.Open(oFile.path)
            oWord.ActiveDocument.SaveAs oFile.path & ".pdf", 17
            oDoc.Close
        End If
    Next

    If bRecursive Then
        For Each oSubfolder In oFldr.Subfolders
            ConvertFolder oSubfolder
        Next
    End If
End Sub

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 17:13:22 GMT

And when you double click this file, that's the error you get?

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 17:18:20 GMT

Yes thats the error I am getting. I changed the path and the x to .pdf.

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 17:23:46 GMT

I ran your exact code,changing just the path, in my Windows 10 and it worked perfectly.

The path is to where your rtf files are stored?

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 17:38:13 GMT

So the path to where the rtf is located is this:

C:\Users\ojoshi\Documents\sample

I added that in the line where the path is supposed to go now and it is still giving me the same error.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 18:03:28 GMT

bRecursive = False
sFolder = "C:\Users\ojoshi\Documents\sample"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWord = CreateObject("Word.Application")
oWord.Visible = True

Set oFolder = oFSO.GetFolder(sFolder)
ConvertFolder(oFolder)
oWord.Quit

Sub ConvertFolder(oFldr)
    For Each oFile In oFldr.Files
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "rtf" Then
            Set oDoc = oWord.Documents.Open(oFile.path)
            oWord.ActiveDocument.SaveAs oFile.path & ".pdf", 17
            oDoc.Close
        End If
    Next

    If bRecursive Then
        For Each oSubfolder In oFldr.Subfolders
            ConvertFolder oSubfolder
        Next
    End If
End Sub

This is the code I am using now. I still don't think the path is correct because I am getting the same error. the rtf file is called sample.

Re: Converting RTF to PDF via SAS

omka_ — Fri, 04 Oct 2019 19:02:23 GMT

what did you change the path to??

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 19:29:16 GMT

The folder I had the RTF files in I want to convert and was testing, in my case that was "C:\localdata\"

I tried with and without the \ at the end and it works either way.

I put the script in the same folder but I don't think that usually matters.

Re: Converting RTF to PDF via SAS

Reeza — Fri, 04 Oct 2019 19:29:58 GMT

So when you paste that path into Windows Explorer, does it go to that folder? The path not found is a weird error. You are using Windows?