[已解决]利用邮件合并功能，生成的新WORD文档中日期格式不对的问题

yjwdjfqb

利用邮件合并功能，生成的新WORD文档中日期格式不对的问题
如图：
请老师们帮帮忙，谢谢大家了！




所用到的文件：
附件.rar (15.77 KB, 下载次数: 7)

2015-9-9 08:44 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-9-9 11:31

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim wd, arr, i&, mypath$
   
3. arr = Range("a1").CurrentRegion
   
4. Set wd = CreateObject("word.application")
   
5. mypath = ThisWorkbook.Path & ""
   
6. Application.ScreenUpdating = False
   
7. For i = 2 To UBound(arr)
   
8.     With wd.Documents.Open(mypath & "模板.doc")
   
9.         Set rng = .Range(.Paragraphs(2).Range.Start + 1, .Paragraphs(2).Range.Start + 3)
   
10.         rng.InsertAfter "2015"
    
11.         .Tables(1).Cell(1, 2).Range = arr(i, 2)
    
12.         .Tables(1).Cell(1, 4).Range = arr(i, 8)
    
13.         .Tables(1).Cell(1, 6).Range = arr(i, 9)
    
14.         .Tables(1).Cell(1, 8).Range = arr(i, 11)
    
15.         .Tables(1).Cell(2, 2).Range = arr(i, 6)
    
16.         .Tables(1).Cell(2, 4).Range = arr(i, 18)
    
17.         .Tables(1).Cell(2, 6).Range = arr(i, 14)
    
18.         .Tables(1).Cell(3, 6).Range = arr(i, 16)
    
19.         .Tables(1).Cell(4, 2).Range = arr(i, 3) & " " & arr(i, 12)
    
20.         .Tables(1).Cell(5, 2).Range = arr(i, 20)
    
21.         .SaveAs mypath & arr(i, 2) & ".doc"
    
22.         .Close False
    
23.     End With
    
24. Next
    
25. Application.ScreenUpdating = True
    
26. wd.Quit
    
27. End Sub

复制代码

dsmch

………………

yjwdjfqb

dsmch 发表于 2015-9-9 11:31
………………

        Set rng = .Range(.Paragraphs(2).Range.Start + 1, .Paragraphs(2).Range.Start + 3)
        rng.InsertAfter "2015"
        

老师你好，帮我讲解下，这二句的意思好吧，

       Set rng = .Range(.Paragraphs(2).Range.Start + 1, .Paragraphs(2).Range.Start + 3)　这一句麻烦老师给我讲细点；


rng.InsertAfter "2015"　　这2015　是什么呀

yjwdjfqb

dsmch 发表于 2015-9-9 11:31
………………

感谢老师的帮助与耐心解答！