怎么批量修改Word表格的宽度

　　怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度，使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后，所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格，希望宽度全部调整与页宽一样。下面的方法就非常有用啦。

　　第一步、打开Word文档，按下【Alt + F11】

　　第二步、在VBA编辑器窗口的左上方，双击【ThisDocument】

　　第三步、在右侧选择【Document】，再在其右侧下拉选择【Open】

　　第四步、然后在宏代码编辑窗口中，Document_Open()下面输入以下代码

　　Application.Browser.Target = wdBrowseTable

　　For i = 1 To ActiveDocument.Tables.Count

　　ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) ‘根据内容自动调整表格

　　ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) ‘根据窗口自动调整表格

　　ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ‘水平居中

　　ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter ‘垂直居中

　　Next i

　　第五步、点击左上方的保存图标。

　　第六步、在弹出的窗口中，点击【否】，如果文档已经启用了宏，就不会出现这个提示对话框了。

　　第七步、将文档另存为【启用宏的 Word 文档】，然后关闭VBA编辑器和当前文档。

　　第八步、找到你刚刚保存的启用宏的Word文档，双击打开，启用宏的Word文档的图标上，会有一个感叹号。

　　第九步、点击【启用内容】，宏代码开始运行。

　　第十步、您会发现，Word中的所有表格，都会自动调整其宽度与页面宽度一样啦，而且表格中的内容都居中对齐了。如果不希望居中对齐，就将宏代码中的水平居中和垂直居中两行去掉。

注意事项

　　VBA是office软件中强大的自动化语言，可以实现很多自动化的处理。

　　如果不喜欢用宏文件，可以将这个启用宏的Word文档另存为不启用宏的文档。

时间： 2024-12-30 04:42:59

怎么批量修改Word表格的宽度的相关文章

批量修改WORD表格属性

有时候需要对word中很多表格的属性进行修改,而word无法批量修改属性,所有这里记录一个宏 Sub TableFormatter() Dim oTbl As Table, i As Integer For Each oTbl In Selection.Tables With oTbl .Rows.AllowBreakAcrossPages = False .Rows(1).HeadingFormat = True For i = 1 To .Columns.Count If i = 1 The

利用python处理自动化任务之同时批量修改word里面的内容

#同时修改好几个word文档,转换特定的内容 import reimport docxdoc1=docx.Document('example.docx')spam=['后勤','技术','行政']for j in spam: doc2=docx.Document() for i in range(0,len(doc1.paragraphs)): c=re.sub('销售',j,doc1.paragraphs[i].text)#第一个参数表示匹配的项,第二个参数表示要替换成的内容,第三个参数表示要

VBA批量提取word表格中的自我评分

单位里普遍存在各种低效率的办公行为,比如每年的自我评分.评分细目表为word文档,每行一个项目,每个项目要填写得分事项和分值,组长审核之后转成Excel向上递交.主要涉及到问题就是word文档中一列得分要转成Excel一行内容,如果一个人就复制,粘贴到Excel,再复制,转置即可.人一多,显得很麻烦.于是写了一段VBA来处理,在此保留备份. Sub 汇总个人评分() Dim FolderPath$, FileName$, FilePath$ Dim wdApp As Object Dim Doc

使用word中的宏实现选中指定类型表格，并且批量修改样式结构

使用word中的宏实现选中指定类型表格,并且批量修改样式结构 Sub SelectAllTables() ' ' SelectAllTables 宏选中所有表格 ' ' Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" E

python批量修改服务器密码，同时保存execl表格

#!/usr/bin/env python #coding:utf8 #随机生成自定义长度密码 from random import choice import string,pickle def GenPassword(length=8,chars=string.ascii_letters+string.digits): return ''.join([choice(chars) for i in range(length)]) def passlist(r_user,c_user,ip_li

orcad元件属性批量修改及BOM表

本文适合于没有使用CIS的情况下,提高元件属性修改的效率和BOM生成. 第一步:编号首先给元件编好号: 如果是沿用旧工程,用这个编号.如果是创建的新工程,使用第二项,强制从头开始编号.因为编号与PCB是相对应的,如果任意改动旧工程的编号会导致PCB出错,所以添加新元件后通常都是使用自增编号:而新工程不会存在这个问题,从头开始编号正规.美观. 第二步:导出属性表格选择导出的路径,将文件导出来. 在文件上右键,选择用EXCEL打开: 它里面有好多默认属性,这个不用管,右键插入列,将自定义的属性加

详解MathType中如何批量修改公式字体和大小

MathType应用在论文中时,有时会因为排版问题批量修改公式字体和大小,一个一个的修改不仅费时费力,还容易出现错误,本教程将详解如何在MathType公式编辑器中批量修改公式字体和大小. MathType公式编辑器中批量修改公式字体和大小的操作步骤: 步骤一双击论文中的任意一个公式,打开MathType公式编辑器软件. 步骤二点击菜单栏中的大小->定义,打开“定义尺寸”对话框.如果使用的是英文版MathType,点击size->define即可. 步骤三在“定义尺寸”对话框中,通过更改

C# 利用WORD模板和标签（bookmark）批量生成WORD

前言: 由于对C#操作WORD不熟悉,也就留下这么一篇水文,别吐糟...=_=||| 利用Microsoft.Office.Interop.Word (2003版也就11版)——因为部分客户端还是用Office2003,所以保险起见应该引入低一点的版本我的需求很简单,从DataTable里面循环取数据批量生成Word文档,解决方案是利用Word模板.dot插入书签并保存为程序使用的模板, 用C#打开word模板修改书签的值并批量生成Word. 遇到的问题: 我的思路是打开模板,然后循环修改书签

Ubuntu Linux 批量修改图片大小以及文件重命名

0x00 本文属于随笔, 仅供作者学习记录. 0x01 批量修改图片大小: [email protected]:~/$ find ./ -name '*.jpg' -exec convert -resize 220X520! {} {} \; 备注: 上述命令中, find 路径 -name 匹配.jpg后缀的文件 -exec 对find结果执行convert命令后面是convert参数, 如果没有安装convert, sudo apt-get install convert安装即可. -re