swApp.ActiveDoc是什么东西？word的吗？
在成都网站制作、做网站中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手，突出企业的产品/服务/品牌，帮助企业锁定精准用户，提高在线咨询和转化，使成都网站营销成为有效果、有回报的无锡营销推广。创新互联建站专业成都网站建设10年了，客户满意度97.8%，欢迎成都创新互联客户联系。
如果是ord的东西，那么将set去掉就可以了，其他的不需要做任何更改。
RDGp()在vba中没有这个函数，这个应该人定义的函数的，set gp = RDGp()很明显就是将gp设置这个函数。如果这个是类模块的，就要新建对象，在又对象调用函数。不过从这句话中，这个应该是模块里面的自定义的函数。具体的还要看代码结构。改成VB.net写法是一样的
所谓VBA就是要在微软特定的Application（比如excel,word等）中运行的VB代码，离开了这个环境它什么也干不了。你是说要“转化成电脑直接安装的exe程序”吗，那你需要在独立的VB编程环境（比如vb6.0, vb.net等）将VBA代码的功能完成实现，再编译成exe代码。
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
