设置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兼容性也是大家比较关注的点,一个系统设计得再好功能再多强大,没有兼容性也是无人问津的。对于这个问题,就需要来对软件或者游戏运行做下
- 什么是“我的位置”栏?“我的位置”栏是一个位于某些对话框(如“另存为”、“打开”和“插入图片”)左侧的区域。您可以使用“我的位置”栏指定要在
- 那是底纹,底纹有字体底纹和段落底纹。1、选中需要删除底纹的文本;2、单击页面布局---->页面边框;3、弹出边框和底纹对话框,选择底纹
- 问:在编辑Word文档时,总是会在已经输入的文字中插入一些新内容,但有时候输入内容时却改写了原来已经有的内容,请问这是怎么回事?答:如果在你
- 适用Windows系统,Office 2016、2019和Microsoft 365客户端版本1. 按Windows 键+R,输
- Windows1020H1快速预览版1903更新了许多新特性。所以win101903更新了什么,win101903呢?下面小编为大家准备的内
- 福昕PDF阅读器怎么添加用图形标注? 福昕PDF阅读器想要给文件添加图形标注呢?下面我们就来看看详细的教程,需要的朋友可以参考下福昕PDF阅
- 其实在Word中编辑文档,行间距的设置是十分重要的,作为Word的初学者,这一个技巧一定要学会,才有可能设置出美观、整齐的文档。步骤/方法打
- 很多人都懂一些简单的电脑系统问题的解决方案,但是win10系统电脑屏幕显示不全的解决思路却鲜为人知,小编前几天就遇到了win10系统电脑屏幕
- win10系统的功能还是蛮多的,其中就有自带系统日志的,它能让我们查看在自己的电脑系统中发生了些啥事,真是老实又本分的书记官呢。那具体要在哪
- win10系统更新后给大家带来了不少的新功能但是同时也有这许多的问题,今天就给大家带来了win10网络通但不能打开网页的解决方法,一起来看看
- 一般来说我们绝大多数人所使用的最多的就是Word、Excel、PowerPoint等。而其最新版本为也是从一贯以年份命名的规则更改为了Mic
- 1.打开需要预览的Word文档,点击左上角的office按钮,然后点击“打印”→“打印预览”。 2.进入打印预览后
- PPT/WORD/EXCEL/OneNote/Publisher/Access等软件,数量多,占用资源也多,甚至有一些软件可能一两年都用不到
- 1、打开我们需要截图的窗口。2、用Word2013打开一篇文档,将光标定位在我们需要插入截图的地方,并切换到“插入”选项卡,单击“插图”选项
- 在使用电脑的过程中,通知中心总是会弹出各种各样的广告,每次需要手动关闭就很麻烦,那有什么方法可以永久关闭通知中心的广告吗?方法肯定是有的,接
- 1、打开Word2010文档,单击表格任意单元格。2、单击“设计”选项卡。 3、在“表格样式”中单击“其他”按钮。
- 很多使用win10系统的小伙伴在日常上网时,如果计算机出现无Internet网络连接,网络诊断就是默认网关不可用,对于此问题,笔者认为可能是
- 如果你不想使用默认的空格间隔,我们可以在word中进行设置,让中文、英文或中英文之间的空格,所占的距离都一样,下面是方法,请认真阅读。 &n
- LibreOffice表格怎么调整行列间距?LibreOffice表格输入数据后想要调节行列的间距,该怎么调节呢?下面我们就来看看详细的教程