left indent button in a table giving me nightmares and bad sleep..

[Guest_imported]

Hi friends, Bija here..
I am trying to make a toolbar button macro in word 2000 which "increases" the left indent of the selected cells in a table by a fixed value (e.g. 0.3 cm). I am writing the following code to achieve this.

With Selection.Paragraphformat
.LeftIndent = .LeftIndent + 8.5
End With

This macro seems to work only once for the selected cells in the table.. after that it gives the error. When i change the code to :

With Selection.Paragraphs
.LeftIndent = .LeftIndent + 8.5
End With

All the cells in the table are affected.. instead of the selected cells.

Now i really require help from some of you gentlemen out there. Thanks in advance..

 

[JohnYingling]

Left?

Do you mean right?

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Guest_imported]

I do mean left indent
.LeftIndent + 8.5 means i wanna increase the left indent of the para by 0.3 cm.
Thanks.

 

[JustinEzequiel]

instead of trying to set the left indent of the entire selection in one go, try setting it for each cell in the selection.

Dim oCell As Cell

if Selection.Cells.count > 0 then
  For Each oCell In Selection.Cells
    With oCell.Range.ParagraphFormat
      .LeftIndent = .LeftIndent + 8.5
    End With
  Next oCell
end if