您好请问如何将vba改成vb.net呢？谢谢啦） Dim swApp As Object Dim Part As Object Dim boolstatus As Boo

swApp.ActiveDoc是什么东西？word的吗？

在成都网站制作、做网站中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手，突出企业的产品/服务/品牌，帮助企业锁定精准用户，提高在线咨询和转化，使成都网站营销成为有效果、有回报的无锡营销推广。创新互联建站专业成都网站建设10年了，客户满意度97.8%，欢迎成都创新互联客户联系。

如果是ord的东西，那么将set去掉就可以了，其他的不需要做任何更改。

set gp = RDGp() 在VBA 中是什么意思？改写成VB.net 应该怎么写呢？

RDGp()在vba中没有这个函数，这个应该人定义的函数的，set gp = RDGp()很明显就是将gp设置这个函数。如果这个是类模块的，就要新建对象，在又对象调用函数。不过从这句话中，这个应该是模块里面的自定义的函数。具体的还要看代码结构。改成VB.net写法是一样的

用VBA写的代码可以转化成电脑直接安装的软件吗？就像普通的其他软件一样，打开这个软件之后就可以处理excel

所谓VBA就是要在微软特定的Application（比如excel,word等）中运行的VB代码，离开了这个环境它什么也干不了。你是说要“转化成电脑直接安装的exe程序”吗，那你需要在独立的VB编程环境（比如vb6.0, vb.net等）将VBA代码的功能完成实现，再编译成exe代码。

将Word 中的VBA代码转换成VB.Net代码？

Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object

Dim oWord As Word.Application

Dim TempX As Double

Dim TempY As Double

Dim TempR As Double

TempX = Ox + (x1 * 10)

TempY = Oy - (y1 * 10)

TempR = r * 10

DialogDisplay = False

If (TempX - TempR Ox - Lx / 2) Or (TempX + TempR Ox + Lx / 2) Or (TempY - TempR Oy - Ly / 2) Or (TempY + TempR Oy + Ly / 2) Then

DialogDisplay = True

MsgBox("超出了边界！", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")

DrawFlag = False

DrawDot = Nothing

Exit Function

End If

DrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR)

DrawFlag = True

End Function

本文标题：VBA转换为vb.net vba转换为文本的函数
文章地址：http://myzitong.com/article/dooohps.html