一键卸妆：WPS表格样式太复杂？这样操作立刻恢复极简风

#WPS文字 #WPS文字表格对齐 #表格格式

李攀登

问题的提出

有网友在聊天群提问，在WPS中如何把下面表格的样式变成普通表格样式，如下图所示：

如果我们直接应用普通表格的样式，就会得到下面的结果，并非我们想要的结果，如下图所示：

那么如何把其快速变为普通网格呢？

解决办法

要想解决其实不难，可以采用表格转文本，文本再转表格的方法。

首先，选中所有表格，再依次定位到【插入】——【表格】——【表格转换成文本】。

在弹出的窗口中选择【制表位】，勾选嵌套表格，再点【确定】就可以把当前表格按照制表位分隔，转化为文本。

最后，定位到【插入】——【表格】——【文本转换成表格】，文字分隔位置选择【制表符】，再点确定。

最后，我们就可以得到普通表格的样式，再通过【表格工具】——【自动调整】——【根据窗口调整表格】，这样表格就可以以普通表格形式铺满窗口了。

VBA的方法

当你感觉手动一个个调整格式比较麻烦时，可以考虑使用VBA进行批量操作，而且更重要的是代码也无需要自己写，只需要向DeepSeek描述一下你的应用场景、功能要求就可以了。第一次提问DeepSeek给出的代码只能实现批量表格转文本。

继续向AI提问如下，让其重新生成代码，再放到WPS中进行调试。当发现转化后的表格无法自适应窗口时，就再增加要求。

最终几次迭代后，我们得到以下测试正常的代码。

Sub 表格转文本再转表格_自适应()
    Dim tbl As Table
    Dim i As Integer
    
    ' 逆序遍历表格，避免转换后索引变化
    For i = ActiveDocument.Tables.Count To 1 Step -1
        Set tbl = ActiveDocument.Tables(i)
        
        ' 将表格转换为文本（制表符分隔）
        tbl.ConvertToText Separator:=wdSeparateByTabs
        
        ' 选中转换后的文本
        tbl.Range.Select
        
        ' 将选中的文本再转换为表格（制表符分隔）
        Selection.ConvertToTable Separator:=wdSeparateByTabs, _
                                 AutoFitBehavior:=wdAutoFitWindow
        
        ' 设置表格根据窗口自适应
        With Selection.Tables(1)
            .AutoFitBehavior (wdAutoFitWindow)  ' 根据窗口自动调整表格
            .PreferredWidthType = wdPreferredWidthPercent
            .PreferredWidth = 100  ' 表格宽度占窗口的100%
        End With
    Next i
    
    ' 根据窗口自适应显示整个文档
    With ActiveWindow
        .View.ReadingLayout = False
        .View.Type = wdPrintView
        .WindowState = wdWindowStateNormal
        .View.Zoom.PageFit = wdPageFitBestFit  ' 页面适应窗口宽度
    End With
End Sub

使用以上代码时，可以用快捷键【Alt+F11】进入到VBA代码编辑器，双击【This Document】进入到代码编辑，粘贴上面的代码，再按下 F5运行即可。也可以按照下面视频操作：