大佬看下，這個是可以實作doc檔案，自動拆分成五個pdf檔案，但是目前想只拆分成五個doc檔案，僅僅把pdf改成doc，編譯正常，但是doc檔案亂碼，求助求助~
uj5u.com熱心網友回復：
Sub demo()
Dim i As Object, name As String, path As String
path = ActiveDocument.path & "\"
For Each i In ActiveDocument.Sections
Select Case i.Index
Case 1
name = "04說明摘要書.doc"
Case 2
name = "03摘要附圖.doc"
Case 3
name = "01權利要求書.doc"
Case 4
name = "02說明書.doc"
Case 5
name = "05說明書附圖.doc"
Case Else
Exit For
End Select
i.Range.Copy
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=path & name, FileFormat:=0
ActiveDocument.Close True
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/173512.html
標籤：VBA
上一篇：軟體工程之軟體質量