设置Word表格的VBA代码
发布时间:2023-12-13 03:56:54
VBA代码设置Word表格属性。
Dim i As Table, N As Integer
On Error Resume Next ’忽略错误
Application.ScreenUpdating = False ’关闭屏幕更新
For Each i In ActiveDocument.Tables ’在表格中循环
With i
.Style = "列表型 4" ’将所有表格设置为"列表型4"的样式
With .Borders ‘边框
.InsideLineStyle = wdLineStyleSingle ’设置内部边框线条
End With
With .Rows(1).Borders(wdBorderBottom) ‘第一行的底边框
.LineStyle = wdLineStyleDouble ‘双线型
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
If .Rows.Count > 1 Then ’ 如果表格行数大于1
If Len(.Cell(2, 1).Range) <= 2 Then ’如果第二行第一列不为空
With .Rows(2).Shading ’设置底纹
.Texture = wdTextureNone ’无底底纹
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorGray125
End With
End If
End If
For N = 2 To .Columns.Count ’从第二列到最后一列
.Columns(N).Select ’单元格对齐方式为中部居中
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next N
End With
Next i
Application.ScreenUpdating = True
以上的代码功能为:表格集合中的循环与对单元格边框的设置。


猜你喜欢
- 使用win10系统的时候,有用户升级win101909过程中出现错误0x800f0986的情况,win101909系统更新0x800f098
- 这几天有网友求助,在操作win10系统的时候,由于误操作导致电脑右下角win10通知中心不见了怎么办?看不到一些相关的通知信息。其实不见了的
- Win10无法打开迅雷提示DownloadKernel.dll丢失怎么办?迅雷是一款很实用的下载软件,但是很多Win10用户在运行迅雷时,系
- 要如何卸载IE浏览器?要怎么才能将IE浏览器给彻底卸载掉呢?这就有许多的小伙伴都在问小编怎么的一个问题,所以小编今天就利用着空余的时间来将w
- 现在的数据庞大,制作一个ET表格,动不动就几十几百兆,很是烦人。其实这里面是有原因的,有些纯数字,复制粘贴的时候把格式带进来了,占了体积,自
- 你还在为Excel中rank函数怎么用而苦恼吗,今天小编教你Excel中rank函数怎么用,今天,小编就教大家在Excel中rank函数的运
- 在忘记了自己网易邮箱账号的情况下,许多人都会选择通过微信来登录网易云音乐。不过,需要注意的是,在使用微信登录后,网易云账号便会与之绑定!那么
- 日常生活中,我们可以经常看到各种各种的需要,比如1st,2nd,3rd,4th,5th等,通常情况下我们看到的这些序号的简写字母都是上标显示
- 如果您拥有一批MKV电影。(或其他视频,例如AVI,MOV,MP4,FLV等),希望能够在电视和DVD播放器上观看它们,那就进来看看吧,本教
- 现在win10已经是家家户户都有在使用的,有用户反映他使用win10电脑觉得自己c盘空间太小了,别的有分了好几个盘存又很多就想着进行硬盘分区
- mmc无法创建管理单元是一个不常见的问题,一般都是卸载系统组件和软件冲突的问题,但是很多用户不知道怎么解决,今天小编就给大家带来了详细的解决
- 有时由于版权或者工作的需要,我们需要为文档添加背景图片,以达到文档版权的保护,那么如何在Excel中添加并设置背景图片呢,下面让小编为你带来
- xp系统如何关闭messenger服务?使用过xp系统的用户都清楚,该系统是默认开启messenger服务的,那如果想要messenger服
- 我们在共享工作表给别人的时候,一部分区域不想别人修改该如何设置。下面让小编为你带来excel2007如何锁定工作表区域的方法。excel20
- wps根据身份证号提取年龄的方法公式是什么?身份证号码第7~14位数字表示:出生年、月、日。如上图例,A列输入身份证号码。提取生日的方法:B
- 微软的 Project Madeira 是一项专为中小企业推出的商业管理解决方案,它可以自动化并简化业务流程,并帮助中小企业管理他们的业务。
- Win11开始菜单无法使用怎么办?近期有部分用户反映自己电脑的开始菜单使用不了了,这导致很多操作都无法正常进行。对于这种情况我们应该如何解决
- 目前,Win10系统仍然是用户最多的系统,而在使用的过程中依旧会遇到不少的问题。例如最近有不少用户反应自己的电脑在使用的时候,发现电脑的任务
- 有不少用户使用Win11的时候发现网络延迟高,尤其是玩游戏,非常影响游戏体验感。那么Win11网络延迟太高怎么办?Win11玩游戏延迟高怎么
- word文本框链接怎么设置?有两个文本框的时候,在一个文本框中输入内容,之后不会连接到另一个文本框中,我们可以设置连接后,就能自动将内容填充