Before table

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Frantisek Horalek - 21 Mar 2005 15:12 GMT

Hello,
I need to place some text just before every table in the document
which (the table) has the first-cell-text like "This example".
Is it possible?
Pushing me forward will be enough, I will complete that script with
your suggestions...

Thank you!

Reply to this Message

Jonathan West - 21 Mar 2005 16:02 GMT

> Hello,
> I need to place some text just before every table in the document
[quoted text clipped - 4 lines]
>
> Thank you!

Something like this should do

Dim oTable as Table
For each oTable in ActiveDocument.Tables
If Instr(oTable.Cell(1, 1).Range.Text, "This example") > 0 Then
With oTable.Range.Paragraphs.First.Previous.Range
.Characters.Last.InsertParagraphBefore
.InsertBefore "Table Caption"
End With
End If
Next oTable

Signature

Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Reply to this Message

Frantisek Horalek - 22 Mar 2005 00:42 GMT

>Something like this should do

Great, it works!

Now I am looking for reason to "group" this to be able to press Back
button just once to get to the situation BEFORE using macro. Now it is
on many clicks on Back button.
I it possible?
I used that in Corel programming vba, but here this:
==========
ActiveDocument.BeginCommandGroup "StredPravyDolni"
.
.
.
ActiveDocument.EndCommandGroup
==========

do not work.

Thank you!

Reply to this Message

Jonathan West - 22 Mar 2005 02:04 GMT

> >Something like this should do
>
[quoted text clipped - 4 lines]
> on many clicks on Back button.
> I it possible?

No, that is not possible.

Signature

Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Reply to this Message

Helmut Weber - 22 Mar 2005 04:29 GMT

Hi Frantisek,

as far as I see, Jonathan's example does the following:
It creates a new paragraph immediately before the table,
leaves that paragraph empty, and inserts "table caption"
at the beginning of the paragraph predecing the newly
created paragraph!

Redoing it all would in my example mean,
delete all paragraphs immediately preceding tables,
and is not a big problem, if I get you right.

' ------
Sub test8948()
Dim oTable As Table
Dim rtmp As Range
For Each oTable In ActiveDocument.Tables
Set rtmp = oTable.Range.Cells(1).Range
rtmp.Select
Selection.SplitTable
rtmp.InsertBefore "table heading"
Next oTable
' redo
For Each oTable In ActiveDocument.Tables
oTable.Range.Paragraphs(1).Previous.Range.Delete
Next oTable
End Sub
' ----

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Reply to this Message

Helmut Weber - 21 Mar 2005 16:09 GMT

Hi Frantisek,

>Pushing me forward will be enough,

If so:

With Selection
.Tables(1).Select
.Collapse
.SplitTable
.InsertBefore "aasdasdskd"
End With

Need help on how to process all tables?

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message