Private Sub CommandButton输出通知到Word文件_Click()

Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j

Dim Str1, Str2

当前路径 = ThisWorkbook.Path

最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row

判断 = 0

For i = 2 To 最后行号

导出文件名 = "发货单"

FileCopy 当前路径 & "\发货单(模板).doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("A" & i) & ").doc"

导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("A" & i) & ").doc"

With Word对象

.Documents.Open 导出路径文件名

.Visible = False

For j = 1 To 17 '填写文字数据

Str1 = "数据" & Format(j, "000")

Str2 = Sheets("数据").Cells(i, j + 1)

.Selection.HomeKey Unit:=wdStory '光标置于文件首

If .Selection.Find.Execute(Str1) Then '查找到指定字符串

.Selection.Font.Color = wdColorAutomatic '字符为自动颜色

.Selection.Text = Str2 '替换字符串

End If

Next j

.ActiveDocument.Tables(1).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("s56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("s56565").End(3).Row

For j = 1 To 2 '填写表格数据

.ActiveDocument.Tables(1).Cell(K, j).Range = Sheets("数据").Cells(K, j + 17)

'  .ActiveDocument.Tables(1).Cell(3, j).Range = Sheets("数据").Cells(i + 1, j + 17)

Next j

Next

.ActiveDocument.Tables(2).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("T56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("T56565").End(3).Row

' For j = 1 To 1 '填写表格数据

.ActiveDocument.Tables(2).Cell(K, 1).Range = Sheets("数据").Cells(K, 20)

'Next j

Next

.ActiveDocument.Tables(3).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("U56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("U56565").End(3).Row

' For j = 1 To 1 '填写表格数据

.ActiveDocument.Tables(3).Cell(K, 1).Range = Sheets("数据").Cells(K, 21)

'Next j

Next

.ActiveDocument.Tables(4).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("V56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("V56565").End(3).Row

For j = 1 To 4

.ActiveDocument.Tables(4).Cell(K, j).Range = Sheets("数据").Cells(K, j + 21)

Next

Next

.ActiveDocument.Tables(5).Rows(1).Select

For K = 2 To Sheets("数据").Range("R56565").End(3).Row

.ActiveDocument.Tables(5).Cell(1, 2).Range = .ActiveDocument.Tables(5).Cell(1, 2).Range & Sheets("数据").Cells(K, 26)

Next

.ActiveDocument.Tables(5).Rows(3).Select

For K = 2 To Sheets("数据").Range("aa56565").End(3).Row

If Sheets("数据").Cells(K, 27) <> "" Then

A = A + 1

.ActiveDocument.Tables(5).Cell(A + 2, 2).Range = Sheets("数据").Cells(K, 27)

End If

Next

End With

Word对象.Documents.Save

Word对象.Quit

Set Word对象 = Nothing

Next i

If 判断 = 0 Then

i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")

End If

End Sub