自动调整word内所有表格内容行间距的VB脚本

将下面的代码复制到word文档中宏->查看宏->编辑/创建的视图中，粘贴即可运行。

剩余价值学说山东理工大学商学院Sub 调整表格内容行间距()

Dim tableNew As Table

宁波px事件For i = 1 To ActiveDocument.Tables.Count

'根据内容自动调整表格

ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)

'根据窗口自动调整表格

逐步回归分析

ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow)

山东省劳动厅 '水平居中

ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

'垂直居中

ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment

= wdCellAlignVerticalCenter

On Error Resume Next

For j = 1 To ActiveDocument.Tables(i).Rows.Count

ActiveDocument.Tables(i).Cell(1 + j, 1).Range.Select

Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly

Selection.ParagraphFormat.LineSpacing = 15

Next j

东方快译

Next i

本文发布于:2024-09-25 15:18:12，感谢您对本站的认可！

标签：居中视图调整表格粘贴文档

留言与评论（共有 0 条评论）