VBA代码转vb.net

[weixin_38473303]

各位前辈老师好！
下面一段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 '子程序结束

[data-v-165b75c4]

你这跨度真大。.Net实现VBA，要用VSTO或第三方Office库重写。无法直接转换。

[Oceanable]

你这个算是代码移植了，要重写比较麻烦。
建议将VBA写的函数都贴到 VB6 里面封装做成 DLL，然后在 .net 里面调用。

[irix2008]

vba代码一般是在office下操作用的，vb.net不需要转换该代码，需要引用office类型库，再间接调用