如何设置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
投稿猜你喜欢
有时候我们会在电脑上下载东西，可是要等很久，这时候就需要设置一下自动关机了，但是很多用户不知道Win8.1系统自动关机设置的方法，为此小编赶- 如何修复Win11无法识别Xbox控住器呢？假如您在计算机上玩游戏时更喜欢游戏手柄而不是鼠标和键盘，则可以使用XboxOne 控制器在计算机
- Win10如何设置磁盘配额？我们在使用电脑的过程中，经常会下载一些视频、音乐文件等，导致把硬盘空间塞得爆满，其实我们可以对磁盘空间进行限制，
- 大家都知道十月初发布的Win10预览版，虽然为我们带来了与win7类似的全桌面化操作环境，但备受用户喜爱的Aero毛玻璃效果却没有出现在Wi
- 我们在写文档的时候，如果有一段文字是用来做总结的，或者特别重要的，我们想给这段文字加上边框，醒目显示，具体要怎么做呢?下面给大家分享word
- 在一份策划文档中，要多次用到新公司的Logo图案。但是，公司刚成立，新Logo还没设计好。怎么办？其实完全可以用简单的标志性字符串代替公司的
- 互联网时代，目标消费者需求变幻莫测与时俱进更加难以捉摸，在产品同质化竞争环境下，谁能率先抓住消费者的心，谁将在销售市场上占有一席之地。以下是
- 我们在使用电脑过程，有时经常会遇到储存卡出错的问题，最近，有Win7系统用户把SD卡插入电脑，双击盘符出现了是否进行格式化的提示，然后再次把
- 在使用U盘过程中，或多或少会出现一些故障，对U盘一窍不通的朋友，只要一出状况就会抓狂吧。当U盘拔出后win7系统自动关机了，这是怎么回事?有
- 电脑在长时间使用之后，就会出现一些问题，那么出现问题之后，你能了解问题出现的原因以及如何将问题给解决了吗？相信一定有朋友遇到中这种情况，自己
- 通过Internet选项来对浏览器进行设置，但是最近一朋友发现电脑中浏览器的Internet选项打不开了，那么要该怎么解决呢？下面就为大家详
- 在使用win7系统的过程中，为了方便使用，我们将创建多个用户帐户以供使用，有时会无意中禁用所有用户帐户，从而导致在复制计算机时所有用户帐户均
- 比预期来得更早，今日苹果就给大家推送了iOS 13.5/iPadOS 13.5 正式版更新。iOS 13.5/iPadOS 13.5 正式版
- Win7系统如何清除运行窗口记录？本文将提供Win7清除运行窗口记录的方法供大家了解，希望可以帮助到大家 Win7清除运行窗口记录
- 本文介绍使用VBA代码来进行excel保护部分单元格的方法。我们在需要进行excel保护部分单元格的工作表标签中，单击右键，选择“查看代码”
- 有些用户发现它只会显示一部分图标，并不会全部显示，如果想要全部显示出来应该怎么设置呢?本文就为大家带来了Win11将右下角图标全部显示方法，
- 在使用Win10系统的过程中难免会出现一些问题，作者的Win10设备近日便意外蓝屏，且伴有错误提示“DPC”。那么，Win10系统蓝屏错误D
- win11亮度调节不起作用怎么办？最近有小伙伴们询问小编说自己觉得电脑太亮想进行亮度调节发现不起作用，想问问小编有没有解决方法。还不清楚的小
- multitip.exe损坏的图像怎么解决？一些朋友的电脑不知何时不断弹出这样的窗口，无法取消，试过很多方法，依然不断弹出，大家想知道这个m
- 联想小新锐7000是一款便携、时尚的笔记本。搭载了i5 7300HQ处理器，配置8GB内存，以及NVIDIA GeForce GTX 105
