如何编vb代码选中word指定位置

9532

有好多页的word表格，需要选中每页的第一行第二列单元格并更改字体，一个一个弄太慢，想问下这个vba代码怎么写

9532

每页的表格是一样的，只更改相同位置的单元格内容

lss001

9532 发表于 2020-3-29 14:20
每页的表格是一样的，只更改相同位置的单元格内容

Sub wordexcel() 'word普通表格
   For Each wexcel In ActiveDocument.Tables
        '第1行第2列
       wexcel.Rows(1).Cells(2).Range.Font.Name = "微软雅黑" '字体
       wexcel.Rows(1).Cells(2).Range.Font.Size = 15 '字号
   Next
End Sub

相见是缘8

lss001 发表于 2020-3-29 17:44
Sub wordexcel() 'word表格
   For Each wexcel In ActiveDocument.Tables
        '第1行第2列

老师好！

呀！这个代码，我这里运行不了。

lss001

相见是缘8 发表于 2020-3-30 08:22
老师好！呀！这个代码，我这里运行不了。

请上传附件，，，，，

相见是缘8

lss001 发表于 2020-3-30 08:48
请上传附件，，，，，

好！请看模拟附件！

lss001

相见是缘8 发表于 2020-3-30 11:35
好！请看模拟附件！

Sub wordexcel() '遍历合并单元格
    Dim c As Cell, t As Table
    On Error Resume Next
    For Each t In ActiveDocument.Tables '多个表格
        '第1行第2列
        t.Cell(1, 2).Range.Font.Name = "微软雅黑" '字体
        t.Cell(1, 2).Range.Font.Size = 15 '字号
    Next
End Sub

9532

lss001 发表于 2020-3-30 13:56
Sub wordexcel() '遍历合并单元格
    Dim c As Cell, t As Table
    On Error Resume Next

老师，试了下，只能把第一页的给改了，第二页往后的没有变化

9532

有上百页这个表格，量很大，请教各位老师，这个需求的vba怎么写

lss001

9532 发表于 2020-3-30 14:19
有上百页这个表格，量很大，请教各位老师，这个需求的vba怎么写

Sub wordexcel() '遍历合并单元格
    Dim i As Long, t As Table
    On Error Resume Next
    Set t = ActiveDocument.Tables(1) '1表多页
    For i = 1 To t.Rows.Count Step 25 '每页25行
        t.Cell(i, 2).Range.Font.Name = "微软雅黑" '字体
        t.Cell(i, 2).Range.Font.Size = 15 '字号
    Next
End Sub