
既然是表格,可以使用行列定位,上面的代码测试通过,里面的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
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)