JSA操作word将excel中的数据以邮件合并的方式转为固定模板格式

1we123

function test(){
        const doc = ActiveDocument;
        const path = doc.Path + '\\邮件合并数据源.xls';       
       
        doc.MailMerge.OpenDataSource(path);
       
        doc.MailMerge.Execute(0);
}
改成这样也是可以运行的，对比vba的代码，好像差了用数据源的那个表格作数据这一段，还有差另存为其他文件名了

File1 = ThisWorkbook.Path & "\模板\" & Sheet1.Cells(i, 26) & "封面.doc"
   Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(File1)
    Set MMerge = WordDoc.MailMerge
    With MMerge
       .OpenDataSource Name:=SEFile, SQLStatement:="SELECT * FROM  `Sheet3$`"  \\差这一句怎么改为JSA了,楼主加油
       .Execute: WordDoc.Close
   
    With WordApp
      .Visible = True: .Application.WindowState = xlNormal:
     
           .ActiveDocument.SaveAs Filename:= _
           ThisWorkbook.Path & "\" & arr(2, 1) & "第" & arr(2, 2) & "学期" & "\" & arr(i, 16) & "\" & arr(i, 16) & arr(i, 9) & ")" & "封面.doc"
              WordApp.Quit
              
                End With
              End With

spaghetti8

之前的代码不够清晰通用,今天重新写了一遍,更简单一点的.

董番茄

太牛了，这个邮件合并功能真的是太需要了。