word中如何批量改多个表格中的内容

CX577477

一个Word中有多个表格，如何批量更改表格里的内容，希望有大神帮忙

duquancai

Sub shishi()
    a = Array("需填写1", "需填写2", "需填写3", "需填写4", "需填写5", "需填写6", "需填写7")
    b = Array(48, 50, 52, 54, 56, 58, 60)
    For Each t In ActiveDocument.Tables
        For i = 0 To UBound(b)
            With t.Range.Cells(b(i)).Range
                .End = .End - 1: .Text = Empty: .Text = a(i)
            End With
        Next
    Next
End Sub

CX577477

您好，很感谢您的帮助，可能是我开始做的模板没按这边的要求，现在我重新给您一个模板，因为WORD里下面那些表格里有几个格式是软件自动生成的，所以您看下能不能再帮忙给改下那个程序语言，感激不尽！！！

CX577477

duquancai 发表于 2017-10-26 20:12
Sub shishi()
    a = Array("需填写1", "需填写2", "需填写3", "需填写4", "需填写5", "需填写6", "需填 ...

您好，我刚刚已经把文件上传了，模板二，希望您能帮忙看下，谢谢了

duquancai

CX577477 发表于 2017-10-26 22:26
您好，我刚刚已经把文件上传了，模板二，希望您能帮忙看下，谢谢了

Sub shishi()
    a = Array("广州华能测绘工程有限公司上海分公司", "张立友", "刘永刚", "刘永刚", "2017年10月26日", "刘永刚", "2017.10.26")
    b = Array(48, 50, 52, 54, 56, 58, 60)
    For Each t In ActiveDocument.Tables
        For i = 0 To UBound(b)
            With t.Range.Cells(b(i)).Range
                .End = .End - 1: .Text = Empty: .Text = a(i)
            End With
        Next
    Next
End Sub

duquancai

CX577477 发表于 2017-10-26 22:26
您好，我刚刚已经把文件上传了，模板二，希望您能帮忙看下，谢谢了

对应  需填写1、需填写2 ..............

duquancai

CX577477 发表于 2017-10-26 22:26
您好，我刚刚已经把文件上传了，模板二，希望您能帮忙看下，谢谢了

你的意思：你自己手动先把 “第一个表格” 中相应的内容填好后，运行程序，后面的表格对应的进行修改？？？
你的需求不明确。。。。。。。。。。。。。。。。。

Sub shishi()
    Dim b, a(), i&, j&
    If ActiveDocument.Tables.Count < 2 Then Exit Sub
    b = Array(48, 50, 52, 54, 56, 58, 60): ReDim a(UBound(b))
    With ActiveDocument.Tables(1).Range
        For i = 0 To UBound(b)
            With .Cells(b(i)).Range
                .End = .End - 1: a(i) = .Text
            End With
        Next
    End With
    For j = 2 To ActiveDocument.Tables.Count
        With ActiveDocument.Tables(j).Range
            For i = 0 To UBound(a)
                With .Cells(b(i)).Range
                    .End = .End - 1: .Text = Empty: .Text = a(i)
                End With
            Next
        End With
    Next
End Sub

CX577477

duquancai 发表于 2017-10-26 23:00
你的意思：你自己手动先把 “第一个表格” 中相应的内容填好后，运行程序，后面的表格对应的进行修改？？ ...

您好，感谢您的帮忙，我可能没说的很清楚，就是只需要改表格下面的红色字体对应的单元格内容，内容全部固定改成我第一页写好的那些红色字体内容就行，麻烦您了，十分感谢！！！