vba to set left table margin

[weeze2]

Hi

How can one set the left margins og all tables in a document using VBA?

I tried the record macro trick but inforuanately you cant move the table when recording :-(

thanks

 

[mp9]

Try somethin like:

Sub LeftTableMargin()

Dim lngT As Long
For lngT = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(lngT).Rows.SetLeftIndent 50, wdAdjustNone
Next lngT

End Sub

http://www22.brinkster.com/accessory/

 

[weeze2]

Works fine.

Thank you!