Auto Text Entry

[DKG]

Sir,

I have a macro with the following code:

Dim t As Table, c As Cell, i As Long
Set t = ActiveDocument.Tables(1)
For i = t.Columns(1).Cells.Count To 1 Step -1
t.Columns(1).Cells(i).Select
Selection.InsertRowsBelow 1
Next i
Selection.Collapse wdCollapseStart

End Sub

I want to modify this code in spite of insertion of a row
with insertig a auto text entry. How can I do this?

Thanks & Regards

 

[Word Heretic]

G'day "DKG" <[email protected]`>,

You open the VBE and start typing.

Sir,

I have a macro with the following code:

Dim t As Table, c As Cell, i As Long
Set t = ActiveDocument.Tables(1)
For i = t.Columns(1).Cells.Count To 1 Step -1
t.Columns(1).Cells(i).Select
Selection.InsertRowsBelow 1
Next i
Selection.Collapse wdCollapseStart

End Sub

I want to modify this code in spite of insertion of a row
with insertig a auto text entry. How can I do this?

Thanks & Regards

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
Email (e-mail address removed)
Products http://www.geocities.com/word_heretic/products.html

Replies offlist may require payment.

 

[Cindy Meister -WordMVP-]

Hi Dkg,

Impossible to tell you anything without knowing

1) What the current macro is doing (inserting new rows, yes,
but in what manner)?

2) What the AutoText entry contains, and how this should
change the result of the current macro

We should also know which version of word we're dealing
with.

I have a macro with the following code:

Dim t As Table, c As Cell, i As Long
Set t = ActiveDocument.Tables(1)
For i = t.Columns(1).Cells.Count To 1 Step -1
t.Columns(1).Cells(i).Select
Selection.InsertRowsBelow 1
Next i
Selection.Collapse wdCollapseStart

End Sub

I want to modify this code in spite of insertion of a row
with insertig a auto text entry. How can I do this?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep
30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail