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

gmayor · #1 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 · #2 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
Switch to Linear Mode 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