如何根据表内信息一键生成wor公示任职文件。谢谢

qinhuan66

求助如何根据表内信息一键生成wor公示任职文件。谢谢 数据库.rar (8.12 KB, 下载次数: 7)

2019-10-9 15:49 上传

点击文件名下载附件

qinhuan66

期待高手们

legend127

可以用邮件合并功能

xuemei0216

Sub 生成公示文件()
Dim arr, i&, j&, s$
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        s = IIf(s = "", arr(i, j), s & arr(i, j))
    Next
    s = s & "；" & Chr(10)
Next
Dim Wordapp As Object
Set Wordapp = CreateObject("word.application")
With Wordapp
    .Documents.Add
    .Selection.TypeText s            '输入内容
    .ActiveDocument.SaveAs ThisWorkbook.Path & "\生成结果.docx"           '位置及名字
End With
Wordapp.Quit
Set Wordapp = Nothing
MsgBox "生成完毕"
End Sub

qinhuan66

xuemei0216 发表于 2019-10-9 18:45
Sub 生成公示文件()
Dim arr, i&, j&, s$
arr = [a1].CurrentRegion

太强大了，谢谢兄弟