GHOST系统之家 - Windows系统光盘下载网站！
深度系统|雨林木风|番茄花园|萝卜家园|系统之家|电脑公司
首页Win10系统Win8系统Win7系统WinXP系统
系统文章
当前位置：GHOST系统之家>软件问题 > 如何设置Word表格的VBA代码

如何设置Word表格的VBA代码

来源：Ghost系统之家浏览：时间：2022-09-10 17:25:25
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

　　以上的代码功能为：表格集合中的循环与对单元格边框的设置。

标签：

推荐系统

  • 番茄花园 Windows 10 极速企业版 版本1903 2022年7月(32位) ISO镜像快速下载

    番茄花园 Windows 10 极速企业版 版本1903 2022年7月(32位) ISO镜像快速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    番茄花园 Windows 10 32位极速企业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活

  • 新萝卜家园电脑城专用系统 Windows10 x86 企业版 版本1507 2022年7月(32位) ISO镜像高速下载

    新萝卜家园电脑城专用系统 Windows10 x86 企业版 版本1507 2022年7月(32位) ISO镜像高速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    新萝卜家园电脑城专用系统 Windows10 x86企业版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程

  • 笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(32位) ISO镜像快速下载

    笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(32位) ISO镜像快速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    笔记本台式机专用系统 Windows 10 32位企业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过

  • 笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(64位) 提供下载

    笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(64位) 提供下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    笔记本台式机专用系统 Windows10 64专业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的专业版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动

  • 雨林木风 Windows10 x64 企业装机版 版本1903 2022年7月(64位) ISO镜像高速下载

    雨林木风 Windows10 x64 企业装机版 版本1903 2022年7月(64位) ISO镜像高速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    新雨林木风 Windows10 x64 企业装机版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活

  • 深度技术 Windows 10 x64 企业版 电脑城装机版 版本1903 2022年7月(64位) 高速下载

    深度技术 Windows 10 x64 企业版 电脑城装机版 版本1903 2022年7月(64位) 高速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    深度技术 Windows 10 x64 企业TLSB 电脑城装机版2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程

  • 电脑公司 装机专用系统Windows10 x64 企业版2022年7月(64位) ISO镜像高速下载

    电脑公司 装机专用系统Windows10 x64 企业版2022年7月(64位) ISO镜像高速下载

    语言：中文版系统大小：3.98GB系统类型：Win10

    电脑公司 装机专用系统 Windows10 x64 企业TLSB版2022年7月一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过

  • 新雨林木风 Windows10 x86 企业装机版2022年7月(32位) ISO镜像高速下载

    新雨林木风 Windows10 x86 企业装机版2022年7月(32位) ISO镜像高速下载

    语言：中文版系统大小：3.15GB系统类型：Win10

    新雨林木风 Windows10 x86 专业版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的专业版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活系统，无

相关文章

热门系统

热门文章

常用系统

GHOST系统之家发布的内容均来至互联网或用户投稿,仅供个人学习使用，不得用于任何商业用途并请在下载后24小时内删除,如果满意请联系版权方购买。

Copyright © 2022-2028 Ghost系统之家 www.win864.cn 系统/软件/文章投稿请联系 邮箱：web2028$foxmail.com($换@)

如果您发现本站侵害了您的版权，请立即联系我们，本站将第一时间进行相关处理。