word中去表格边框，图文混排，上百个表格

字画手工装裱

Word中每页都有表格，表格外也有文字。

怎样选择或怎样设置可以全部去掉表格边框，而不用一页一页的去。因为每页有表格，所以每页都加有分页符。
单个页面的表格可以用选中，边框和底纹中边框，无，应用于表格，去掉。
但是全选全篇文档，无法找到应用于表格选项。
即使一点一点拉着选择很大一部分页面，去除边框时也无法去完。不会百分百去除。
怎么办在图文表混排几百页的情况下，一次去除掉边框。
有没有什么办法。

zpy2

有附件吗？

字画手工装裱

内容是客户的。没办法上传。

ddmc

看看，只指定一层文件夹 word文件 进行处理

snow653124

Sub 去除表格边框()
    Dim vtab As Table
    For Each vtab In ActiveDocument.Tables
        vtab.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        vtab.Borders(wdBorderRight).LineStyle = wdLineStyleNone
        vtab.Borders(wdBorderTop).LineStyle = wdLineStyleNone
        vtab.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        vtab.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        vtab.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    Next
End Sub

字画手工装裱

snow653124 发表于 2022-6-7 09:05
Sub 去除表格边框()
    Dim vtab As Table
    For Each vtab In ActiveDocument.Tables

略微看懂，好像是写的左右上下水平垂直的线全部等于没有线。没学过代码。只能看懂这么多。自己实验试着跑下。

字画手工装裱

亲测可用。不过在WPS中代码出错。在Word中边框全部不显示了。

字画手工装裱

字画手工装裱 发表于 2023-8-16 16:24
亲测可用。不过在WPS中代码出错。在Word中边框全部不显示了。

1

2

3

shenjianrong163

Sub test()
  Dim t As Word.Table, j As Integer
  On Error Resume Next
  For Each t In ActiveDocument.Tables
    For j = 1 To 12
        t.Borders(j).LineStyle = wdLineStyleNone
    Next
  Next t
End Sub