-
2021-09-02 17:00:28
--表格整体居中 Sub SetTableCenter() Dim doc As Document, myTable as Table Set doc = ActiveDocument If doc.Tables.Count = 0 Then Exit Sub For Each myTable In doc.Tables myTable.Range.Rows.Alignment = wdAlignRowCenter Next End Sub
更多相关内容 -
WPS(word)中批量设置表格根据窗口居中对齐
2019-10-08 09:17:47Attribute VB_Name = "CreateNewMacros" ... Dim oDoc As Document Dim oTable As Table Set oDoc = Documents....注意:这种批量修改后最好再检查一下,有可能部分表格因为某种原因未实现居中效果,需要手动调整。Attribute VB_Name = "CreateNewMacros" Sub www() Dim oDoc As Document Dim oTable As Table Set oDoc = Documents.Open("C:\Users\测试用例\1.doc") '文档路径 For Each oTable In oDoc.Tables oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容 Next MsgBox "完成!" End Sub
注:代码来自网络
1.打开word
2.点击开发工具-----宏( 如果【宏】显示为灰色,需参考https://mp.csdn.net/postedit/102366698开启宏功能。)
3.随便输入宏名称点击创建
4.将开头的代码粘贴到代码框中,注意修改路径为要修改的文件路径
5.点击执行,等待完成即可
以上就是批量让word中的所有表格统一根据窗口自动调整的方法。
注意:这种批量修改后最好再检查一下,有可能部分表格因为某种原因未实现居中效果,需要手动调整。
-
word文档批量处理表格
2021-09-29 19:55:00可以使用宏,编写脚本代码来进行批量修改。...全选word中所有的表格 Sub SelectAllTable() Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.Pro可以使用宏,编写脚本代码来进行批量修改。需要在“开始”-“选项”页将开发工具放入快捷工具栏,点击“开发工具”,选择“宏”,可以看到有很多预设的宏代码,这里不用自带的,点击创建,敲入代码能达到想要的功能。
- 全选word中所有的表格
Sub SelectAllTable() Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next '选中所有可编辑区域 ActiveDocument.SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub
- 对每个表格做相同的处理
Sub Change() Dim tempTable As Table For Each tempTable In ActiveDocument.Tables '做要做的操作,下面是举例1 tempTable.Rows(3).Delete '做要做的操作,下面是举例2 tempTable.Cell(4, 3).Select With Selection Selection.Font.ColorIndex = wdWhite End With Next '做要做的操作,下面是举例3 For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Style = "常用格式" Next End Sub
所有表格居中
所有表格居中 Private Sub 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 End Sub
其它参考链接:
访问绘制表格中单独的行或列,而表格不统一
使用word中的宏实现选中指定类型表格,并且批量修改样式结构
微软官方的Font.ColorIndex等属性注解 -
【vba-3】vba操作word所有表格居中
2021-09-02 17:01:54Word.Application.ScreenUpdating = False Dim oRng As Range Dim oDoc As Document Dim oCL As CaptionLabel Dim oIS As InlineShape Set oDoc = Word.ActiveDocument With oDoc Set oCL = Word....Sub addTz() Word.Application.ScreenUpdating = False Dim oRng As Range Dim oDoc As Document Dim oCL As CaptionLabel Dim oIS As InlineShape Set oDoc = Word.ActiveDocument With oDoc Set oCL = Word.CaptionLabels.Add("图") '设置新增的题注样式 With oCL .ChapterStyleLevel = 1 .IncludeChapterNumber = True .NumberStyle = wdCaptionNumberStyleArabic End With i = 1 For Each oIS In .InlineShapes Set oRng = .Range(oIS.Range.End + 1, oIS.Range.End + 1) With oRng '防止影响下段格式 .InsertAfter (vbCrLf) '将oRng对象按照整个段落选中,oRng对象自动变为整个段落的Range对象 oRng.Expand wdParagraph '如果有自动编号 删除 oRng.ListFormat.RemoveNumbers '读取标题的文本内容 sText = VBA.Replace(oRng.Text, Chr(13), "") .Delete '插入题注 .InsertCaption "图", sText '插入xx如yy所示的交叉引用 .InsertAfter "所示" & Chr(13) '重新定义区域 .SetRange .Start, .Start .InsertCrossReference "图", wdOnlyLabelAndNumber, i oRng.Expand wdParagraph .SetRange .Start, .Start .InsertBefore sText & "如" End With i = i + 1 Next End With Word.Application.ScreenUpdating = True End Sub
-
Word 批量调整表格样式
2020-11-17 13:21:30使用工具生成的 Word 表格格式经常会不整齐、两边页边距超出等问题,这时候表格又非常多,一个个的调整显然是不可行的,那如何批量调整呢? 表格超出页边距范围,如果只有一两个表格,可以手动调整。方法是选中表格... -
信创办公--基于WPS的Word最佳实践系列(图片批量居中对齐)
2022-05-09 09:42:28当我们进行Word排版的时候,一次性插入过多图片后,每张进行居中设置需要的重复动作较多,花费的时间也较长,因此我们可以用到WPS软件自带的工具——“查找替换”。 操作步骤 单击【开始】选项卡,找到【查找与替换... -
怎么批量修改Word表格的宽度
2020-12-18 13:18:57怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度全部... -
Word中怎么批量修改所有表格样式
2019-11-08 17:46:381.先把开发工具菜单调出来,开发工具菜单默认情况下不在WORD中菜单栏显示,需要自己调。 文件 > 选项 > 自定义功能区 > 勾选开发工具 就有了 2.利用 宏 选择所有表格 点击 开发工具 > Visual ... -
WORD取消表格首行缩进
2021-01-13 06:36:20更多关于WORD取消表格首行缩进内容请关注好文网篇一:Word表格不能输入文字的情况Word表格不好文网为大家准备了关于WORD取消表格缩进的文章,好文网里面收集了五十多篇关于好WORD取消表格缩进好文,希望可以帮助大家。... -
Python自动化办公,根据excel表格批量获取图片插入word
2022-03-27 16:51:34Python自动化办公,根据excel表格批量获取图片插入word -
VBA实现不同模板WORD表格内容的批量转移
2021-04-16 10:44:36VBA实现欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右... -
python 办公常用二:批量提取 word 表格中信息
2021-06-27 16:14:33python 办公常用 二、批量提取 word 表格中信息 -
Word VBA(批量复制Excel表格和Word表格到Word中)
2018-05-11 11:01:00Set MyWord = New Word.Application MyWord.Application.ScreenUpdating = False MyWord.Application.Visible = True MyWord.Application.DisplayAlerts = wdAlertsNone Set myDoc = MyWord.Documents.Add ... -
如何批量处理word中的表格
2019-08-03 13:52:05如何批量处理word中的表格 如何批量处理word中的表格 1 .批量设置word中的表格宽度 比如,我这有一个word文档有200多个表格(全部是3列的),现在要求第一列宽度3cm,第二列4cm,第三列5cm。一个一个改不太... -
WORD文档中的宏代码操作(表格批量操作))
2022-06-13 16:26:57word中利用宏代码,快速统一调整表格 -
python记录-excel批量数据导出为word表格
2021-02-02 09:28:43目前问题:调整表格中的字段对齐方式,不能自动居中 from docx import Document #功能是打开文档 from docx.enum.text import WD_ALIGN_PARAGRAPH # 功能是对齐 from docx.shared import Pt #设置磅数 from doc. -
批量修改Word表格的宽度
2019-08-20 21:36:39怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度全部... -
word宏 批量删除含有关键字的表格列
2019-10-03 22:42:02工作中,由于每次修改word文档,都需要进行繁琐的修改,删除多余的列或者调节表格的宽度。 使用列word宏编程的方式对word文档进行对应的操作。 宏: 1 Sub del_key() 2 Dim str As String 3 Dim table_... -
WORD宏模板(包含都多种操作,例如批量打印)
2018-09-03 07:41:47利用WORD 宏进行多种操作,大大提高工作效率。例如此模板包含批量打印、公文自动排版、图片批量改大小、图片批量居中。 -
Python批量创建word文档(2)- 加图片和表格
2020-11-26 09:35:191 '''2 #python批量创建word文档2,向word文档增加图片和文字3 #图片在文档的最上方4 #价格放在表格里5 #word文档的第二页为广告页面6 '''7 #导入所需库8 from docx import Document #word文档处理库9 from docx.... -
【学习笔记4】excel批量输出数据到Word中的表格
2021-12-24 10:50:09需要从图1表格中将一个项目的数据分条录入图2中word中的表格。 我的思路是先遍历表格,将项目名存为一个集合,这样就得到了不重复的项目名信息。 这里遇到了一个问题,读取数据的时候需要保留部分字段数字的文本... -
word文档中表格顶头怎么调整_word使用技巧之-Word文字处理技巧,学会不求人!...
2020-10-27 00:49:09假期最后一天,明天就要上班了,今天给大家分享20个Word实用技巧,希望你们能够喜欢。01、一键选择同样的内容编辑Word时,如果需要将相同样式的内容全选复制出去该怎么办...02、表格文字自适应我们在Word里面插入表... -
Word批量设置表格宽度自动适应页面宽度
2019-07-29 22:41:03怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。 当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度... -
利用python-docx批量处理Word文件——表格(二)样式控制
2018-10-28 23:24:40表格样式可以分为两种:一要表格的自身的样式,比如边框,对齐方式、... - 表格的对齐方式:居中、居左、居右 - 表格的亮度和高度 - 表格边框 2. 表格内容的样式 - 字体、字号 - 文字的对齐方式 - 文字颜色 -
python批量处理word中的表格
2021-01-12 02:15:43def word_table_formater():from win32com import clientword = client.Dispatch('Word.Application')doc = word.Documents.Open('C:\\Users\\Administrator\\Desktop\\test.docx')i = 1for table in doc.Tables:pri... -
利用VBA向Word中批量添加图片以及整理成Excel数据的图片名
2019-03-01 07:58:58今天女朋友工作上出了点麻烦,就是要向Word中批量添加图片以及整理成Excel数据的图片名。其中图片名需要设置段落和文字格式,有些图片还是共享一个图片名。这可是个繁琐而枯燥的工作。我一直相信重复劳动是对人这... -
word选中所有表格,宏的使用
2022-02-11 16:29:15需求文档有上百个表格,最后要统一居中对齐,一个一个选太麻烦而且容易漏,怎样才能快些呢? 解决方案 使用word的宏是可以的。 打开宏: 视图 | 宏 | 查看宏。 ( 快捷键是 alt+f8 ) 宏名 输入 SelectAllTables,点...
收藏数
1,209
精华内容
483