Apply "Space Before 18 pt" on all the paragraph immediately following

Dear Experts,

I would like to achieve the following using Word VBA:

I would like to apply an "18 pt space before" to the paragraph
immediately following a table.

For example:

Table cell Table cell Table cell
Table cell Table cell Table cell
Table cell Table cell Table cell
Paragraph immediately following the table (spacing before: 18 pt)

The macro should loop through the document and apply this to all
occurrences.

Help is much appreciated. Thank you very much in advance. Regards,
Andreas

Doug
Sat Jun 28 00:34:13 PDT 2008

Use

Dim atable As Table
Dim arange As Range
For Each atable In ActiveDocument.Tables
Set arange = atable.Range
arange.Collapse wdCollapseEnd
arange.ParagraphFormat.SpaceBefore = 18
Next atable


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"andreas" <andreas.hermle@gmx.de> wrote in message
news:c011b769-1f3d-4c84-88a8-1d5bcec792d8@m45g2000hsb.googlegroups.com...
> Dear Experts,
>
> I would like to achieve the following using Word VBA:
>
> I would like to apply an "18 pt space before" to the paragraph
> immediately following a table.
>
> For example:
>
> Table cell Table cell Table cell
> Table cell Table cell Table cell
> Table cell Table cell Table cell
> Paragraph immediately following the table (spacing before: 18 pt)
>
> The macro should loop through the document and apply this to all
> occurrences.
>
> Help is much appreciated. Thank you very much in advance. Regards,
> Andreas

andreas
Sun Jun 29 04:50:40 PDT 2008

On 28 Jun., 09:34, "Doug Robbins - Word MVP" <d...@REMOVECAPSmvps.org>
wrote:
> Use
>
> Dim atable As Table
> Dim arange As Range
> For Each atable In ActiveDocument.Tables
> =A0 =A0 Set arange =3D atable.Range
> =A0 =A0 arange.Collapse wdCollapseEnd
> =A0 =A0 arange.ParagraphFormat.SpaceBefore =3D 18
> Next atable
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "andreas" <andreas.her...@gmx.de> wrote in message
>
> news:c011b769-1f3d-4c84-88a8-1d5bcec792d8@m45g2000hsb.googlegroups.com...
>
>
>
> > Dear Experts,
>
> > I would like to achieve the following using Word VBA:
>
> > I would like to apply an "18 pt space before" to the paragraph
> > immediately following a table.
>
> > For example:
>
> > Table cell =A0Table cell =A0Table cell
> > Table cell =A0Table cell =A0Table cell
> > Table cell =A0Table cell =A0Table cell
> > Paragraph immediately following the table (spacing before: 18 pt)
>
> > The macro should loop through the document and apply this to all
> > occurrences.
>
> > Help is much appreciated. Thank you very much in advance. Regards,
> > Andreas- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -

Dear Doug,

great. It works fine. thank you very much for your kind help. Regards,
Andreas