Microsoft Office Forums - View Single Post - Help, Remove all tables borders As of here, don't work

Cendrinne · 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