一键批量调整文档全部表格.pdf
上传人:文库****品店 上传时间:2024-09-11 格式:PDF 页数:3 大小:162KB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

一键批量调整文档全部表格.pdf

一键批量调整文档全部表格.pdf

预览

在线预览结束,喜欢就下载吧,查找使用更方便

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

1、单击文件-选项-自定义功能区,然后如下图示勾选开发工具选项。2.点击任务栏“开发工具选项”,再点击录制宏。弹出如下窗口,点击确定。然后点击任务栏下方的暂停录制。3、点击任务栏下方的“宏”选项,弹出如下窗口后,再点击编辑,将复制如下代码替换里面的代码关闭即可。代码:Sub全选表格()DimtempTableAsTableApplication.ScreenUpdating=FalseIfActiveDocument.ProtectionType=wdAllowOnlyFormFieldsThenMsgBox"文档已保护,此时不能选中多个表格!"ExitSubEndIfActiveDocument.DeleteAllEditableRangeswdEditorEveryoneForEachtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRangeswdEditorEveryoneActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub4、然后就可以单击“宏”运行之后就可以选中文档里面的所有表格了。111111111111111111111111111111111111111111