[已解决]VBA,根据EXCEL花名册，生成word文档的年度考核表

hwc2ycy

yjwdjfqb 发表于 2014-1-6 13:15
老师这儿，再帮我修改下好吧

关于回车符，你改下模板.doc中那个单元格的对齐方式。

工作单元中的空格
找到 .bookmarks("工作单位").Range.Text = arr(i, 3) & arr(i, 12)
改为 .bookmarks("工作单位").Range.Text = arr(i, 3) & " " & arr(i, 12)

hwc2ycy

yjwdjfqb 发表于 2014-1-6 13:22
老师，

单位和职务，之间用　空格　隔开，我知道改了

你打开模板.doc,定位到出生年月右边的单元格，右键，单元格右键对齐方式

hwc2ycy

保存后再重新运行代码生成WORD文件。

hwc2ycy

重新生成前，记得关闭打开的WORD文档。

yjwdjfqb

hwc2ycy 发表于 2014-1-6 13:33
重新生成前，记得关闭打开的WORD文档。

老师你好！

Option Explicit
Sub ToWord()
    Dim arr, i As Integer
    arr = Range("a1").CurrentRegion.Value
    Dim strPath$
    strPath = ThisWorkbook.Path & Application.PathSeparator
    Dim objWord As Object
    Set objWord = CreateObject("word.application")
    With objWord
        For i = 2 To UBound(arr)
            With .documents.Add(Template:=strPath & "模板.doc")
                Application.StatusBar = "正在处理 " & arr(i, 2)
                .bookmarks("姓名").Range.Text = arr(i, 2)
                .bookmarks("性别").Range.Text = arr(i, 8)
                .bookmarks("出生年月").Range.Text = arr(i, 9)
                .bookmarks("参加工作时间").Range.Text = arr(i, 11)
                .bookmarks("政治面貌").Range.Text = arr(i, 6)
                .bookmarks("文化程度").Range.Text = arr(i, 18)
                .bookmarks("技术等级").Range.Text = arr(i, 15)
                .bookmarks("起聘时间").Range.Text = arr(i, 16)
                .bookmarks("本人述职").Range.Text = arr(i, 19)
                .bookmarks("工作单位").Range.Text = arr(i, 3) & "　" & arr(i, 12)
                .bookmarks("分管工作").Range.Text = arr(i, 20)
                .bookmarks("年度").Range.Text = arr(i, 21)
                  
                .bookmarks("年龄").Range.Text = arr(i, 10)
                .bookmarks("专业技术类别").Range.Text = arr(i, 14)
               
                .SaveAs strPath & arr(i, 2) & ".doc", FileFormat:=0
                .Close True
            End With
        Next
        .Quit
    End With
    Application.StatusBar = ""
    MsgBox "整理完成"
End Sub

红色部分是我加上的，怎么不行呀，提示，没有打到对象

开心妙妙

用了一个比较简单的方法，不用VBA代码，就用WORD的功能，邮件合并，点击几个鼠标，即可完成

hwc2ycy

yjwdjfqb 发表于 2014-1-6 13:44
老师你好！

Option Explicit

模板里的书签都是我自己加的，你原来的模板里没有，肯定要报错。

hwc2ycy

你直接学好用邮件合并吧，不会代码的话就学技巧。

开心妙妙

忘了，你的是03版了

hwc2ycy

yjwdjfqb 发表于 2014-1-6 13:22
老师，

单位和职务，之间用　空格　隔开，我知道改了

偶不是说了嘛，是单元格的对齐方式造成的，你改成水平垂直全居中，就OK了。不是还截了图怎么改嘛。