各位前輩老師好！
下面一段VBA代碼可以將當前Word檔案逐頁拆分為多個小檔案，怎樣轉換為vb.net代碼，請指教。
謝謝！
Sub BreakOnPage() '子程式 BreakOnPage()
Application.Browser.Target = wdBrowsePage ' 應用程式的Browser的Target=wdBrowsePage
For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages") '設定變數范圍為i=1到 ActiveDocument的BuiltInDocumentProperties("Number of Pages")
ActiveDocument.Bookmarks("\page").Range.Copy ' ActiveDocument的Bookmarks("\page" )的單元格區域的復制
Documents.Add ' Documents的添加
Selection.Paste ' 被選項的粘貼
Selection.TypeBackspace ' 被選項的TypeBackspace
ChangeFileOpenDirectory "C:\" 'ChangeFileOpenDirectory"C:\"
DocNum = DocNum + 1 'DocNum=DocNum+1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc" ' ActiveDocument的SaveAs 檔案名="test_" & DocNum & ".doc"
ActiveDocument.Close ' ActiveDocument的關閉
Application.Browser.Next ' 應用程式的Browser的下一個
Next i '下一個i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges ' ActiveDocument的關閉 savechanges=wdDoNotSaveChanges
End Sub '子程式結束
uj5u.com熱心網友回復：
你這跨度真大。.Net實作VBA，要用VSTO或第三方Office庫重寫。無法直接轉換。uj5u.com熱心網友回復：
你這個算是代碼移植了，要重寫比較麻煩。建議將VBA寫的函式都貼到 VB6 里面封裝做成 DLL，然后在 .net 里面呼叫。
uj5u.com熱心網友回復：
vba代碼一般是在office下操作用的，vb.net不需要轉換該代碼，需要參考office型別庫，再間接呼叫轉載請註明出處，本文鏈接：https://www.uj5u.com/net/73191.html
標籤：VB.NET