Range.Address方法找不到方法或数据成员错误

时间:2016-07-28 13:44:39

标签: excel vba excel-vba ms-word

我对VBA很新,但我正在尝试制作一个程序,在选择和右键单击MS Word中的单词时提供翻译建议。我在Found.Address的代码中收到消息“Compile-Error:Method or data member not found”:

Dim Current As String
Dim oSheet As Range
Dim Found As Range
Dim firstAddress As String
Dim oChanges As Worksheet
Dim sFname As String
Dim oExcel As Excel.Application

Set oExcel = New Excel.Application
oExcel.Visible = False
sFname = "C:\Users\user\Desktop\translations.xlsx"
Set oChanges = oExcel.Workbooks.Open(FileName:=sFname)
Set oSheet = ActiveSheet.UsedRange
'Prepping Excel File

Set oSheet = ActiveSheet.UsedRange
Current = Selection.Text
With oSheet
     Set Found = .Find(Current)
     If Not Found Is Nothing Then
        firstAddress = Found.Address
        Do
        .................................

我直接从VBA的Range.Find帮助页面复制了这种格式。我错过了什么?

0 个答案:

没有答案