word中如何利用vba实现多个表格相同位置相同内容的录入？

cqlpjxx

Sub 批量填表()  '采用查找替换的办法
    Dim i
    For i = 1 To 5 '5为准考证的张数
        With Selection.Find
            .Text = "考试时间"
            .Forward = True
            .Wrap = wdFindContinue
        End With
        If Selection.Find.Execute Then
            Selection.MoveRight Unit:=wdCell
            Selection.TypeText Text:="2016年5月9日 下午2:30"
        End If
        With Selection.Find
            .Text = "考试地点"
            .Forward = True
            .Wrap = wdFindContinue
        End With
        If Selection.Find.Execute Then
            Selection.MoveRight Unit:=wdCell
            Selection.TypeText Text:="红旗小学301教室"
        End If
        Next
    End Sub

little_babe

cqlpjxx 发表于 2016-5-10 15:58
Sub 批量填表()  '采用查找替换的办法
    Dim i
    For i = 1 To 5 '5为准考证的张数

太厉害了  佩服的五体投地啊

cqlpjxx

little_babe 发表于 2016-5-10 16:58
太厉害了  佩服的五体投地啊

'精简一下代码
Sub 批量填表()  '采用查找替换的办法
    Dim i
    For i = 1 To 5 '5为准考证的张数
        With Selection.Find   '查找关键字 考试时间
            .Text = "考试时间"
            .Forward = True
            .Wrap = wdFind
        End With
        If Selection.Find.Execute Then  '如果找到
            Selection.MoveRight Unit:=wdCell  '移动一格
            Selection.TypeText Text:="2016年5月9日 下午" & i '插入指定的文本
            Selection.MoveRight Unit:=wdCell, Count:=2 '移动两格
            Selection.TypeText Text:="红旗小学301教室"
         End If
      Next
End Sub

little_babe

cqlpjxx 发表于 2016-5-10 17:19
'精简一下代码
Sub 批量填表()  '采用查找替换的办法
    Dim i

真心佩服啊~~！受教的同时再次感谢，能否留个联系方式，也好在以后的日子里跟你学习请教

loquat

邮件合并。。。

skp669

最好用邮件合并功能，可以上网查查步骤，多练习几遍就掌握了

little_babe

skp669 发表于 2016-5-13 16:15
最好用邮件合并功能，可以上网查查步骤，多练习几遍就掌握了

好的呢  谢谢啊   我研究下  之前一直不知道还有这功能

little_babe

loquat 发表于 2016-5-11 10:18
邮件合并。。。

恩  谢谢啊