求vba控制修改word文档中所有表格的行距为单倍行距代码

一抹浮云andy 2019-05-17 05:00:55

求vba控制修改word文档中所有表格的行距为单倍行距代码

...全文

550 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

脆皮大雪糕 2019-05-17

打赏
举报

回复


    For Each t In ThisDocument.Tables
        t.Select
        Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
    Next

脆皮大雪糕 2019-05-17

打赏
举报

回复

单个表格设置一下，录制一个宏。然后for each tables 轮一遍

利用VBA，配合快捷键，减少重复劳动

Set glkDoc = Application.ActiveDocument '设置为当前文档 With glkDoc '设置文档参数 With .PageSetup '设置【页面设置】参数 .Orientation = wdOrientPortrait '页面方向为纵向 .TopMargin = CentimetersToPoints...

VBA宏实现Word论文自动排版

因为有校验文档的工作，其中有一个大几百页的文档，有三四百张表格，要求是调整他们的行高，保持美观的同时尽可能减少页数。手动来改实在是鼠标都点烂了，所以就想到了宏的方法。使用宏的使用方法我是这样操作的：...

如果文档中的代码表格时，感觉还是很快速有用的。 Sub HangHao() ' ' hanghao 宏 ' ' Dim parag As Paragraph Dim nLineNum: nLineNum = 0 Dim selRge As Range Set selRge = Selection.Range For ...

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章