標(biāo)題: 計(jì)量標(biāo)準(zhǔn)自查表批量生成 [打印本頁(yè)] 作者: iceriver 時(shí)間: 2025-4-29 14:11 標(biāo)題: 計(jì)量標(biāo)準(zhǔn)自查表批量生成 計(jì)量標(biāo)準(zhǔn)自查表批量生成VBA思路
在Excel表中列出計(jì)量標(biāo)準(zhǔn)名稱、計(jì)量標(biāo)準(zhǔn)考核證書編號(hào)，打開word自查表,在表格中填入對(duì)應(yīng)信息，保存到自查表文件夾中！使用For循環(huán)，批量生成！
Sub 導(dǎo)出到Word模板中()
Dim Sht_Workbook As Workbook
Dim Sht_Worksheet As Worksheet
Dim Str_standardName As String
Dim Str_DepartmentName As String
Dim Str_standardNumber As String
Dim WordApp As Object
Dim WordDocNew As Object
Dim filePath As String
Dim savePath As String
Dim i As Long
' 設(shè)置當(dāng)前工作簿和工作表
Set Sht_Workbook = ThisWorkbook
Set Sht_Worksheet = Sht_Workbook.Sheets(1)
' 創(chuàng)建Word應(yīng)用程序?qū)嵗?br />
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If WordApp Is Nothing Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo 0