Help, Remove all tables borders As of here, don't work

Cendrinne · #1 03-29-2023, 03:19 PM

I've tried to remove all the tables borders, as of this point with a range, and odd, It doesn't work.

I wish to keep the tables borders before my selection. I thought a selection of Tables range would only affect those table.

Anyway, here is my script, but it touches ALL TABLES

Here is the script I've created:

HTML Code:

    Dim xTbl As Table, oRng As Range
 
      Application.ScreenUpdating = False
    
        For Each xTbl In ActiveDocument.Range.Tables
           Set oRng = ActiveDocument.Range(Selection.Range.Start, ActiveDocument.Range.End)
     
    With xTbl.Borders

      xTbl.Borders.InsideLineStyle = wdLineStyleNone
      xTbl.Borders.OutsideLineStyle = wdLineStyleNone
    End With

    Next

  Application.ScreenUpdating = True

What am I doing wrong?
or it's not doable.

Please any insights would be greatly appreciated

C

gmayor · #2 03-29-2023, 09:01 PM

Try the following

Code:

Sub Macro1()
Dim oTable As Table
Dim oBorder As Border
    For Each oTable In ActiveDocument.Tables
        For Each oBorder In oTable.Borders
            oBorder.LineStyle = wdLineStyleNone
        Next oBorder
    Next oTable
End Sub

Cendrinne · #3 03-29-2023, 10:34 PM

I guess I didn't specify in this box, I wish to not touch the tables done before.

I could have lots of tables fixed, and a bunch not fixed. So I wish to remove the borders as of this point forward, that is what I've attemted to write in the title. And leave the tables done before my cursor, intact.

Think it's doable? I've tried a number of ways, it doesn't work.

I ended up removing them manually, well one table at the time.

Sorry if I wasn't clear, but thank you for trying

C.

gmayor · #4 03-30-2023, 02:14 AM

If you want to process tables from the cursor position, then set a range to the area you wish to process e.g.

Code:

Sub Macro2()
Dim oRng As Range
Dim oTable As Table
Dim oBorder As Border
    Set oRng = ActiveDocument.Range
    oRng.Start = Selection.Start
    For Each oTable In oRng.Tables
        For Each oBorder In oTable.Borders
            oBorder.LineStyle = wdLineStyleNone
        Next oBorder
    Next oTable
End Sub

Cendrinne · #5 03-30-2023, 11:58 AM

OMG thank you soooooo much.
That is brilliant. I've tried many ways, and I almost thought it was hopeless, but you pull a rabbit out of the hat!!!! Like Magic

Thank you from the bottom of my heart, you saved me tons of frustrating work, doing it one table at the time, if I didn't want to lose what I've done previously that was fixed.

I thought I could save the borders, that is why I didn't removed them from the start, but you have a wonderful plan B if I'm in the middle of my long long document.

Thank you a whole bunch.

C.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Tables in All Headers in Every Section - Remove cell's padding	Cendrinne	Word VBA	6	03-06-2022 04:26 AM
Count numer of areas between boarders	tdody	Excel Programming	4	08-13-2015 01:02 PM
Does anyone know how to remove breaks between tables?	chrisd2000	Word Tables	18	07-02-2014 02:48 PM
How to remove background when copy and paste, no fill doesn't work.	mingo	Word	1	07-29-2010 02:25 PM
How to remove background in word. 'No Fill' does not work!	mingo	Word	0	07-27-2010 01:15 AM