如何清除Word文档中的特定表格样式

在本文中,我们很高兴为您提供清除Word文档中特定表样式的方法。

通常,在一个文档中,可以有很多文档,应用不同的样式。在之前的文章中,我们已经解释了清除所有表样式的方法。有关详细资料,请参阅以下连结:3个有效的方法批量清除Word文档中的所有表格样式

现在让我们看看如何从Word文档中清除特定的表样式。清除Word文档中的特定表格样式

方法一:清除一个文档中特定的表格样式

  1. 首先,按“Alt+ F11”在Word中触发VBA编辑器。
  2. 然后在编辑器的左栏,点击“Normal”项目。
  3. 下一步点击菜单栏上的“插入”。
  4. 在下拉菜单中选择“模块”。Click "Insert"->Click "Module"" src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20266%20185'%3E%3C/svg%3E" alt="点击“正常”->点击“插入”->点击“模块”" width="266" height="185" data-lazy-src="//www.circareview.com/download/blogs/wp-content/uploads/2017/07/Click-Normal-then-Click-Insert-then-Click-Module-30.jpg">
  5. 现在您已经插入了一个模块。双击打开它的编码区,并将这些代码粘贴在那里:
Sub ClearASpecificTableStyle()将objTable作为表将objDoc作为文档将strStyleName作为字符串应用程序。ScreenUpdating = False Set objDoc = ActiveDocument strStyleName = InputBox("Enter the name of table style which you want clear: ", "Specify table style ")如果是objTable。Style = strStyleName则objTable。Style = "Table Normal" objTable. manbetx万博登录borders . enable = True结束如果下一个objTable应用程序。ScreenUpdating = True Set objDoc = Nothing结束Sub
  1. 然后点击“运行”或按“F5”执行代码。粘贴宏->点击“运行”
  2. 现在在“指定表样式”框中,输入要从文档中删除的样式的名称。
  3. 然后点击“确定”继续。输入表格样式名称->单击“确定”

以下是可能的结果:清除特定的表样式

方法二:在多个文档中清除特定的表格样式

现在,如果有一批文件要处理,您可以利用下面的宏。

  1. 首先,将所有目标文档放在同一个文件夹中。
  2. 然后重复方法1中的步骤来安装和运行宏。
  3. 但是请记住将macro替换为下面这个:
Sub ClearASpecificTableStyleInMultiDoc() Dim objTable As Table Dim objDoc As Document Dim StrFolder As String Dim strFile As String Dim strStyleName As String Dim dlgFile As FileDialog Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker) With dlgFile如果. show = -1那么StrFolder = . selecteditems (1) & "\" Else MsgBox "首先选择一个文件夹。"退出子结束If End With strStyleName = InputBox("Enter name of table style which you want clear: ", "Specify table style ") strFile = Dir(StrFolder & "*.docx", vbNormal) While strFile <> "" Set objDoc = Documents. "打开(FileName:=StrFolder & strFile)在objDoc中为每个objTable设置objDoc = ActiveDocument。如果是objTable。Style = strStyleName则objTable。Style = "Table Normal" objTable. manbetx万博登录borders . enable = True结束拯救objDoc。关闭strFile = Dir() End Sub
  1. 接下来,打开了“浏览”窗口。只需选择保存目标文档的文件夹,然后单击“确定”继续。选择文件夹->单击“确定”
  2. 然后是“指定表样式”框。输入样式名称并点击“确定”继续。

处理文档错误

破解Word的可能性总是存在的。而最毁灭性的事情可能就是你丢失了宝贵的文件。因此,你必须抓紧时间找到工具解决单词一旦灾难发生。

作者简介:

Vera Chen是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家,该公司是数据恢复技术的世界领导者,包括xls复苏以及PDF修复软件产品。万博体育app官方网下载欲了解更多信息,请访问www.circareview.com

留下回复

你的电邮地址将不会公布。必填字段已标记