Crie uma macro no Word usando o seguinte código:
Sub SelectAllTables()
Dim tbl As Table
Application.ScreenUpdating = False
For Each tbl In ActiveDocument.Tables
tbl.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
Execute a macro para selecionar todas as tabelas e, em seguida, modifique suas bordas de uma só vez:
Editar: Ok, isso deve ser capaz de lidar de forma recursiva com tabelas aninhadas, bem como com qualquer nível:
Sub SelectAllTables()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
DelTableBorder tbl
Next
End Sub
Function DelTableBorder(tbl As Table)
Dim itbl As Table
tbl.Borders(wdBorderLeft).Visible = False
tbl.Borders(wdBorderRight).Visible = False
tbl.Borders(wdBorderTop).Visible = False
tbl.Borders(wdBorderBottom).Visible = False
tbl.Borders(wdBorderVertical).Visible = False
tbl.Borders(wdBorderHorizontal).Visible = False
tbl.Borders(wdBorderDiagonalUp).Visible = False
tbl.Borders(wdBorderDiagonalDown).Visible = False
For Each itbl In tbl.Tables
DelTableBorder itbl
Next
End Function