如何设置Word表格的VBA代码
发布时间：2023-01-12 05:16:14
今天小编教大家如何设置Word表格的VBA代码，用得着的朋友可以一起看看。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
以上的代码功能为：表格集合中的循环与对单元格边框的设置。
0
投稿猜你喜欢
- word文档密码如何破解呢?有时我们可以会因为大意而忘记了之前所设置的密码，对此我们该如何破解呢?今天，小编就教大家如何破解密码!word设
许多使用Windows系统的用户Werfault.exe文件应用程序错误，无法正常打开应用程序，情况如何？实际上，我们只需要打开window- 在电脑出现问题的时候，我们可以在安全模式下尝试解决问题，实在没有办法才会进行系统重装。近来有用户反馈他的Win10系统在开机时点击F8一直无
- 怎么使用Win10电脑自带的磁盘分区功能进行磁盘分区？许多用户在使用电脑的时候经常觉得自己的电脑磁盘空间不够使用，而另一个磁盘空间又多的用不
- 鼠标右键的新建功能是Windows系统中非常方便的功能，我们通常会使用它来创建文件，无需开启指定软件。近来有用户反馈他的Win10系统鼠标右
- 下面脚本之家小编为大家介绍在word中输入20以上带圈数字序号且印刷后不乱的方法，相信很多朋友都碰到这样的问题吧，不用担心，有需要的朋友一起
- 随着5G网络的快速发展，越来越多的老年人开始接触智能手机，老年人一般不太会使用拼音输入，如果你过年送爸妈iPhone14 Plus，记得要给
- Word虽然不难，但是其中也包含着很多超好用的操作技巧，如果学会了，工作效率分分钟超越公司其他人。今天小编就来分享几个超实用的Word技巧，
- WORD文档中图片插入的“四周型环绕”操作，就是让文字紧密的围绕在图片四周，今天，小编就教大家在Word中文档图片插入四周型环绕的操作方法。
- Win10 网卡驱动异常怎么办？我们在使用电脑的过程中经常出现网卡驱动异常，导致我们的电脑无法正常的上网。许多小伙伴在遇到这个问题的时候不知
- CSGO是现在很多玩家都在玩的射击竞技游戏，相信很多用户在玩这个游戏的时候总是出现一些卡顿、掉帧、闪退的情况。对于这些情况小编认为有可能是系
- 要想将Word中图片文字提取出来，必须靠专业的图片文字识别工具。捷速图片文字识别软件采用先进识别技术，能够对图片文字内容进行瞬间识别，只要图
- 有时候我们的word出现了无法正常打开，自动进入word安全模式的情况时，其实不用慌张，我们可以自行解除，下面是小编整理的word安全模式解
- 1.打开文档，点击工具栏的“插入”→“页眉”，然后选择“编辑页眉”。 2.在编辑页眉选项里，选择“日期和时间”。
- 对于这个问题，小编发现：word2010本身是没有功能将界面转换成word2003的界面的！只能通过第三软件将其转换！
- 设置方法：1、将光标放在第4页的首部，单击页面布---->分隔符---->分节符---->下一节，如图所示；2、在第4页的
- word中的插入联系人怎么将性别改成称谓？之前录入的时候对联系人写的是男女，但是称呼的时候需要用先生或者女士，所以想将性别改成称谓，下面我们
- Win10系统的分辨率基本上都是默认设置好的，许多人对默认分辨率设置看着很不习惯，想要自己调整分辨率的大小，那么win10分辨率应该如何设置
- 当用户面对office365和office2019时，该选择哪个呢？哪个更好呢？也许看完本文，大家心里就会有答案了。Office365和Of
- 在用Word编辑文档时，我们有可能会需要输入带钩方框。在Word2010中，有三种输入带钩方框的方法。方法一点击“插入→符号→其他符号”，打
