[clara]

Hi all,

There are many tables ( each followed by a picture ). Is there any way to
make all these to be left aligned.

Clara
--
thank you so much for your help

[Stefan Blom]

Try this macro on a copy of the document:

Sub AlignAllTablesLeft()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.Alignment = wdAlignRowLeft
t.Rows.LeftIndent = 0
Next t
End Sub

If you need assistance, see
http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


"clara" wrote in message
...
Hi all,

There are many tables ( each followed by a picture ). Is there any
way to make all these to be left aligned.

Clara
--
thank you so much for your help

[clara]

Hi Stefan,

Thank you very much. Your method works very well. On my document, there are
also many pictures which I pasted from Microsoft Paint application.And also I
need to align these pictures with tables on left side. I tried to find
whether there is a collection called pictures in ActiveDocument, but I
failed. Could you help me again.

Clara
--
thank you so much for your help


"Stefan Blom" wrote:

Try this macro on a copy of the document:

Sub AlignAllTablesLeft()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.Alignment = wdAlignRowLeft
t.Rows.LeftIndent = 0
Next t
End Sub

If you need assistance, see
http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


"clara" wrote in message
...
Hi all,

There are many tables ( each followed by a picture ). Is there any
way to make all these to be left aligned.

Clara
--
thank you so much for your help

[Lene Fredborg]

Below you will find two macros that you may use to position the pictures. The
first macro will find all pictures (shapes) that have wrapping style "In line
with text" and align them left with 0 as the left indent. The second macro
will find all pictures (shapes) that have other wrapping styles and set their
left position to 0.

You may only need one of the macros. Note that you may need to adjust the
macro(s) - for example, if your document contains other shapes (e.g.
drawings), the macros will also manipulate their position.

Sub AlignShapesLeft_1()
'Treat pictures that are "In line with text"
Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
With oShape.Range.ParagraphFormat
.Alignment = wdAlignParagraphLeft
.LeftIndent = 0
End With
Next oShape

End Sub

Sub AlignShapesLeft_2()

'Treat pictures that are NOT "In line with text"
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
oShape.Left = 0
Next oShape

End Sub

--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word


"clara" wrote:

Hi Stefan,

Thank you very much. Your method works very well. On my document, there are
also many pictures which I pasted from Microsoft Paint application.And also I
need to align these pictures with tables on left side. I tried to find
whether there is a collection called pictures in ActiveDocument, but I
failed. Could you help me again.

Clara
--
thank you so much for your help


"Stefan Blom" wrote:

Try this macro on a copy of the document:

Sub AlignAllTablesLeft()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.Alignment = wdAlignRowLeft
t.Rows.LeftIndent = 0
Next t
End Sub

If you need assistance, see
http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


"clara" wrote in message
...
Hi all,

There are many tables ( each followed by a picture ). Is there any
way to make all these to be left aligned.

Clara
--
thank you so much for your help