VBA代码转vb.net

2019-11-23 06:30:07 648 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

weixin_38473303 墨衍会员 · AI 创作全网分发关注 + 加入社区

AutoCAD VBA移植到VB.NET？那是相当的容易由于微软不再给合作伙伴提供VBA之故，Autodesk公司很多最新的产品中已经不再包含VBA。虽然Autodesk为VBA的事情和微软谈了很多次，但是还是没有达成一个好的解决方法，所以Autodesk只好放弃VBA了。这对于Autodesk的用户和合作伙伴来说，可能是个很坏的消息，因为有很多用户和合作伙伴一直都在用着VBA。但是毋庸过分紧张，VBA的代码移植到VB.NET是很容易实现的。语法几乎是一样的，所以代码其实不用做大修改。基本上是把代码复制过来，编译一下，加个全局变量，少量改动代码解决编译错误就OK 阅读详情

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

...全文