2)Spire.Office Free Edition
- Code: Select all
Dim mdoc As Document = New Document()
Dim File_InsertedPath = "Templates\GJB151B-2013\Template1\1.doc"
mdoc.InsertTextFromFile(File_InsertedPath, FileFormat.Doc)
Dim File_InsertedPath = "Templates\GJB151B-2013\Template1\2.doc"
mdoc.InsertTextFromFile(File_InsertedPath, FileFormat.Doc)
Dim File_InsertedPath = "Templates\GJB151B-2013\Template1\3.doc"
mdoc.InsertTextFromFile(File_InsertedPath, FileFormat.Doc)
‘1.doc,2.doc,3.doc都是几十k。最终输出文件几M