在Word单元格中自动添加相应的文字

zhangingu

要求：在Word中每页“家长签字”自动到Excel提到相对应的名字。如第一页：王*慧在家长签字右边签上：王*虎。

duquancai

比如有2个同学的名字都叫 “王*慧”，第一位同学 “王*慧”的家长名字叫“王*虎”，第二位同学 “王*慧”的家长名字叫“王老虎”。那问题来了：当在word中第一页找到了 “王*慧”同学，那么该叫“王*虎”来签名呢还是叫“王老虎”来签名？这种情况应该是存在的吧？

duquancai

还有一种情况存在：同一班的 两位同学 名字相同，但是这个同学不是一个人吧！嘿嘿：恰好这个同名的同学的家长 也是同名的，这下可能要乱套了！！！
我就是想告诉你一个事实：程序是 对现实事物 的 抽象。不能违背 现实的。
我的意思：同学的名字 不能作为 关键字，而且同学的家长也不能用名字作为关键字。一个同学的标识要唯一性，并且他对应的家长也必须是唯一的，否则要乱套的！！！

duquancai

Sub 家长签名()
    Dim doc As Document, sql$, conn As Object, pf$, arr, d As Object, cn&, r As Range, sr$
    Set doc = ActiveDocument
    If doc.Tables.Count < 3 Then Exit Sub
    pf = doc.Path & "\家长信息.xls"
    sql = "select 学生姓名,家长姓名 from [" & pf & "].[Sheet1$] where 学生姓名 is not null"
    Set conn = CreateObject("adodb.connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=EXCEL 12.0;data source=" & pf
    arr = conn.Execute(sql).GetRows
    Set d = CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(arr, 2)
        d(arr(0, i)) = arr(1, i)
    Next
    For i = 1 To doc.Tables.Count Step 3
        cn = doc.Tables(i + 1).Range.Cells.Count
        Set r = doc.Tables(i).Range.Cells(2).Range
        r.End = r.End - 1: sr = r.Text
        doc.Tables(i + 1).Range.Cells(cn).Range = d(sr)
        doc.Tables(i + 1).Range.Cells(cn - 2).Range = d(sr)
    Next
End Sub

almas22

插入VBA 哪里写的代码吗这个

zhangingu

duquancai 发表于 2017-11-14 18:30
还有一种情况存在：同一班的 两位同学 名字相同，但是这个同学不是一个人吧！嘿嘿：恰好这个同名的同学的家 ...

您好，学号是唯一的，麻烦老师帮我写到附件里面，因我对VAB看不懂。另家长信息中“学籍号”可改为学号对应Word中的学号，谢谢！

zhangingu

我有很多个班，每班大概40多人，学号是唯一的，家长有可能重复。我试运行到第9句就不行了。

duquancai

zhangingu 发表于 2017-11-16 15:48
我有很多个班，每班大概40多人，学号是唯一的，家长有可能重复。我试运行到第9句就不行了。

下载附件，打开Word文档，点击按钮》》》》》》》》》》》》》》》》》》》》》》》》》》

zhangingu

duquancai 发表于 2017-11-16 22:40
下载附件，打开Word文档，点击按钮》》》》》》》》》》》》》》》》》》》》》》》》》》

您好，我试点击按钮，无反应。

duquancai

zhangingu 发表于 2017-11-17 07:46
您好，我试点击按钮，无反应。

无反应，那就算了。