有很多Word文件中的表格需要设置一样的格式,如何使用VBA宏程序实现自动设置,不用手动设置。多谢指导!

有很多Word文件中的表格需要设置一样的格式,如何使用VBA宏程序实现自动设置,不用手动设置。多谢指导!,第1张

既然是表格,可以使用行列定位,上面的代码测试通过,里面的Array(Array(1, 3), Array(1, 5))表示需要设置格式的行、列组,代码的文本为:

Option Explicit

Sub X()

    Dim t

    For Each t In Array(Array(1, 3), Array(1, 5))

        ActiveDocumentTables(1)Cell(t(0), t(1))Select

        SelectionFontSize = 105

    Next t

End Sub

另外,几百个文件可以放在一个文件夹下,使用dir+while循环扫描,依次打开、处理、保存、关闭。

在Word中用cell来表示单元格。要选择表格中的区域B3:D6的话,那么应该是如下代码:

Sub 选择表格中的区域()

With ActiveDocument

Range(Tables(1)Cell(3, 2)RangeStart, Tables(1)Cell(6, 4)RangeEnd)Select

End With

End Sub

With Selection

'移动当前光标到第N行,如要选定当前行,则下一句不需要

GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=N

'选定光标所在行:

Expand Unit:=wdLine

'删除选定内容:

Delete

End With

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/bake/12172145.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-21
下一篇2023-05-21

发表评论

登录后才能评论

评论列表(0条)

    保存