Changing ALL Tables to have a border

[Scott Matthewman]

Crafty Lover <soft...@globalnet.co.uk> wrote in message
news:MPG.10fda9d6c...@news.globalnet.co.uk...
>Here's my problem...

Reply posted to microsoft.public.word.tables

Try to avoid cross-posting - it gets very annoying for those of us who
subscribe to many newsgroups

Thanks

[Victor Heijke]

U can use this macro

Sub SetBordersOn()
Dim MyTable As Table
For Each MyTable In ActiveDocument.Tables
MyTable.Borders.Enable = True
Next MyTable
End Sub

--
Victor Heijke
Flores Automatisering

Remove nospam. from my e-mail address
http://www.flores.nl

[Aidan]

Oh, I do love Microsoft - some of us are complaining about the fact that a
table CREATED in Word 97 MUST start with borders when we don't want them -
and now we have someone telling us that an imported document does the
opposite. Though I guess it MAY be due to the formatting of the document.
I guess that a macro could be written which would work down the document
line by line and test to see if it is in a table (WordBasic would be [I
think] the SelText function) - if so, select the table and format
accordingly. I could probably have a go at knocking this up if it would
help!
Crafty Lover wrote in message ...
>Here's my problem...
>
>
>I have an imported program which saves a Lotus Notes document into
>Microsoft RTF format.
>
>This document contains several tables.
>
>However when I open this up In Word 97 the tables appear but the Borders
>are set to NONE.
>
>
>Is there an easy Way either via Menu Command or via some simple Macro or
>even VBScript to Turn on the Bordering of all Tables.
>
>
>Please send me an email as well as a followup here.
>
>Mnay thanks in advance.
>
>
>Best regards
>
>Andy Page
>
>andy...@unipower.net