您好請問如何將vba改成vb.net呢？謝謝啦） Dim swApp As Object Dim Part As Object Dim boolstatus As Boo

swApp.ActiveDoc是什么東西？word的嗎？

創(chuàng)新互聯(lián)是一家網(wǎng)站設(shè)計公司，集創(chuàng)意、互聯(lián)網(wǎng)應(yīng)用、軟件技術(shù)為一體的創(chuàng)意網(wǎng)站建設(shè)服務(wù)商，主營產(chǎn)品：響應(yīng)式網(wǎng)站設(shè)計、高端網(wǎng)站設(shè)計、成都營銷網(wǎng)站建設(shè)。我們專注企業(yè)品牌在網(wǎng)站中的整體樹立，網(wǎng)絡(luò)互動的體驗，以及在手機等移動端的優(yōu)質(zhì)呈現(xiàn)。成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、移動互聯(lián)產(chǎn)品、網(wǎng)絡(luò)運營、VI設(shè)計、云產(chǎn)品.運維為核心業(yè)務(wù)。為用戶提供一站式解決方案，我們深知市場的競爭激烈，認(rèn)真對待每位客戶，為客戶提供賞析悅目的作品，網(wǎng)站的價值服務(wù)。

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

set gp = RDGp() 在VBA 中是什么意思？改寫成VB.net 應(yīng)該怎么寫呢？

RDGp()在vba中沒有這個函數(shù)，這個應(yīng)該人定義的函數(shù)的，set gp = RDGp()很明顯就是將gp設(shè)置這個函數(shù)。如果這個是類模塊的，就要新建對象，在又對象調(diào)用函數(shù)。不過從這句話中，這個應(yīng)該是模塊里面的自定義的函數(shù)。具體的還要看代碼結(jié)構(gòu)。改成VB.net寫法是一樣的

將Word 中的VBA代碼轉(zhuǎn)換成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