vba代码转vb.net vba代码转为python

您好请问如何将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
分享URL:http://pwwzsj.com/article/dohpshj.html