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

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

创新互联是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站设计、高端网站设计、成都营销网站建设。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都网站设计、网站建设、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。

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

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

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

将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代码转为python
文章地址：http://ybzwz.com/article/dohpshj.html