VBA: Paragraph formatting an .RTF doc using a WITH function
I am using a with function to format an RTF document after putting data into it. I am using a WITH statement and have successfully changed the margins and the font size but the paragraph formats dont seem to update.
I am somewhat new to using WITH functions and object manipulation in general.
My code I am using is below.
It does not error out but instead does not apply any of the paragraph formats. I need 5.75 line spacing with exact spacing as opposed to single or double.
Code:
Option Explicit
Sub MyMacro()
Dim TargetPath As String
Dim TargetFile As String
Dim OutputPath As String
Dim PrintableOutputFile As String
Dim PrintOutput As String
Dim PathInput As String
TargetPath = Range("Target_Path").Value
TargetFile = Range("target_file").Value
OutputPath = Range("Output_Path").Value
PrintableOutputFile = Range("printable_output_file").Value
PathInput = Range("target_path").Value & "\" & Range("target_file").Value
PrintOutput = Range("output_path").Value & "\" & Range("printable_output_file").Value
Open PathInput For Input As #1
Open PrintOutput For Output As #2
Print #2, "My Data here"
Set wrdApp = GetObject(PrintOutput)
With wrdApp
.PageSetup.TopMargin = Application.InchesToPoints(2.25)
.PageSetup.BottomMargin = Application.InchesToPoints(2.25)
.Content.Font.Size = 14
.Content.ParagraphFormat.LineSpacingrule = wdlinespaceExactly
.Content.ParagraphFormat.linespacing = 5.75
End With
Close #1
Close #2
End Sub
Any help or tips would be greatly appreciated as I am still learning and appreciate all input. Thanks!