Hello Champs!!

I am transferring some data from excel to word and using the code below:

Everything is working fine but only issue is Paragraph Right Indent is not working, means there is no error for this but is not doing what it supposed to do, kindly look into it and let me know what I am doing wrong.

The problematic line is "wdDoc.Tables(1).Range.ParagraphFormat.RightIndent = 0.15" which is not working.

Sub Create_WordDoc()

Dim WdObj As Word.Application, wbNam As String, wb As Workbook, wsF As Worksheet, Fpath As String, Fname As String
Dim lr As Long, nPath As String, objRange As Word.Range, Ftext As String, hf As HeaderFooter, s As Section
Dim TtlPgs As Integer, wdRng As Word.Range, wdDoc As Word.Document


wbNam = ActiveWorkbook.Name
Set wb = Workbooks(wbNam)
Set wsF = wb.Worksheets("Format")
lr = wsF.Range("B" & Rows.Count).End(xlUp).Row
Fpath = wb.Path
Fname = wsF.Range("AD3").Value
nPath = Fpath & "\Invoices\"
Ftext = wsF.Range("AD3").Value
Const wdPageBreak = 7

Set WdObj = CreateObject("Word.Application")
WdObj.Visible = True
Range("A3:D" & lr + 25).Select
Selection.Copy 'Your Copy Range
Set wdDoc = WdObj.Documents.Open(Fpath & "\" & "Billing Template.doc")

'WdObj.Visible = True
'WdObj.Activate
WdObj.Selection.Paste
Application.CutCopyMode = False

wdDoc.Tables(1).Select
wdDoc.Tables(1).Rows.HeightRule = wdRowHeightAuto
'On Error Resume Next
wdDoc.Tables(1).Range.ParagraphFormat.RightIndent = 0.15
wdDoc.Tables(1).Columns(3).SetWidth ColumnWidth:=11.8, RulerStyle:= _
        wdAdjustNone
wdDoc.Tables(1).AllowAutoFit = False
wdDoc.Tables(1).Columns(3).SetWidth ColumnWidth:=5.2, RulerStyle:= _
        wdAdjustNone

'wdDoc.Tables(1).Rows.Height = InchesToPoints(0)

On Error Resume Next
For Each wdRng In wdDoc.StoryRanges

With wdRng.Find
.Text = "LasioeBill17Mar1"
.Replacement.Text = Ftext
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Next wdRng


If Fname <> "" Then 'make sure fname is not blank
With WdObj
.ChangeFileOpenDirectory nPath 'save Dir
.ActiveDocument.SaveAs Filename:=Fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
.ActiveDocument.Close
.Quit
End With
Set WdObj = Nothing


End Sub