Hi All,

I have a procedure that works fine when copying data from Excel to word.

[vba]Public wdApp As New Word.Application
Public wdDoc As Word.Document
Public t As Word.Range
Public wsSource As Worksheet
Set t = wdDoc.Bookmarks("Example 1").Range

Set wsSource = ActiveWorkbook.Sheets("Example 1")
wsSource.Activate

Range("A1").CurrentRegion.Copy
t.Paste

[/vba]

After the table has been entered into Word I want to adjust the cell padding. I've tried the following but this has no affect on the final table:

[vba]With t
With .Cells(1)
.TopPadding = 3
.BottomPadding = 3
.LeftPadding = 2
.RightPadding = 2
.FitText = False
End With
End With[/vba]


Does anyone have a quick fix for this? thanks.