用VBA批量生成合同（求助）

54321shenyong · 发表于 2020-6-2 18:14

vb爱好者洗衣机发表于 2020-6-1 16:33
看看是不是合适。

感谢老师的热心帮助！同问魂断蓝桥老师的问题，日期格式输出能不能转置为****年**月**日的格式，代码该怎么改呢？希望老师费心注释一下代码，让咱菜鸟学习一下。各位老师的代码都有所不同，都是学些的机会，咱也学习一下条条大路通罗马的精神。在此谢过！

魂断蓝桥 · 发表于 2020-6-3 08:13

54321shenyong 发表于 2020-6-2 17:54
感谢老师的热心帮助！运行生成的文件中日期格式为yyyy/m/d ，实际需要格式为****年**月**日，这个需要怎 ...

Sub my()
Dim appWD, doc As Object, f, arr, i, j, r
arr = Sheet1.[b4].CurrentRegion
Set appWD = CreateObject("Word.Application")
f = ThisWorkbook.Path & "\劳动合同范本.doc"
For i = 2 To UBound(arr)
      Set doc = appWD.Documents.Open(f)
      appWD.Visible = 0
      For j = 1 To UBound(arr, 2)
         r = appWD.ActiveDocument.Content.Bookmarks(j).End
            If j = 8 Then
                  appWD.ActiveDocument.Range(r, r).InsertAfter Format(arr(i, j), "yyyy年mm月dd")
            Else
                  appWD.ActiveDocument.Range(r, r).InsertAfter arr(i, j)
            End If
         appWD.ActiveDocument.Range(r, r + Len(arr(i, j))).Font.Underline = 2
      Next
      doc.SaveAs ThisWorkbook.Path & "\" & "劳动合同-" & arr(i, 2) & ".doc"
      doc.Close
Next
appWD.Quit
End Sub

54321shenyong · 发表于 2020-6-3 23:00

魂断蓝桥发表于 2020-6-3 08:13
Sub my()
Dim appWD, doc As Object, f, arr, i, j, r
arr = Sheet1..CurrentRegion

日期问题已解决，老师能注释一下代码吗？

vb爱好者洗衣机 · 发表于 2020-6-4 09:02

54321shenyong 发表于 2020-6-2 18:14
感谢老师的热心帮助！同问魂断蓝桥老师的问题，日期格式输出能不能转置为****年**月**日的格式，代码该怎 ...

和12楼一样，加个判断即可。可以去mircrosoft doc 搜索搜索代码中对象对应的属性及方法，这个比写代码注释靠谱，全面。

sd999cn · 发表于 2021-6-26 22:32

vb爱好者洗衣机发表于 2020-6-4 09:02
和12楼一样，加个判断即可。可以去mircrosoft doc 搜索搜索代码中对象对应的属性及方法，这个比写代码注 ...

请问老师，你在模板里设置的是域还是标签让他自动写得？

vb爱好者洗衣机 · 发表于 2021-6-27 13:20

sd999cn 发表于 2021-6-26 22:32
请问老师，你在模板里设置的是域还是标签让他自动写得？

手动设置的。看需求哪里需要更改数据哪里设置域。

longming3 · 发表于 2021-6-27 14:57

魂断蓝桥发表于 2020-6-3 08:13
Sub my()
Dim appWD, doc As Object, f, arr, i, j, r
arr = Sheet1..CurrentRegion

收藏备用，以后用得着

李桥贵 · 发表于 2021-7-30 20:28

本帖最后由李桥贵于 2021-7-30 20:38 编辑

魂断蓝桥发表于 2020-6-1 16:33

请问老师合同中增加一项加班工资，代码怎么修改。

生成合同.zip (27.55 KB, 下载次数: 42)
谢谢老师！

飞龙1977 · 发表于 2021-9-19 11:09

非常好用！！！

田开秀 · 发表于 2021-10-5 13:11

李桥贵发表于 2021-7-30 20:28
请问老师合同中增加一项加班工资，代码怎么修改。
谢谢老师！

打开合同样本，光标放在“”加班工资为“”为字后面，然后选插入---文档部件----域（选quote）即可关闭，如果还有添加同样操作，代码无需修改

		自动登录	找回密码
密码			免费注册

[求助] 用VBA批量生成合同（求助）

评分

评分