2016-04-24 2 views
1

При работе в Range другого документа TCN.docx Я получаю ошибку method or data member not found по адресу rng.MoveRight unit:=Cell.Переход к следующей ячейке в другом документе

Sub TNC() 
Dim odoc As Document 
Dim rng As Word.Range 

    Set odoc = Documents.Open(filename:="C:\Users\Bilal\Desktop\TCN.docx", Visible:=True) 
    Set rng = odoc.Content 
    rng.Find.ClearFormatting 
    rng.Find.Font.Bold = True 
    With rng.Find 
     .Text = "BU" 
     .Forward = True 
     .Wrap = wdFindStop 
     .Format = True 
    End With 
     rng.Find.Execute 
     If rng.Find.Found = True Then 

     rng.MoveRight unit:=Cell **ERROR position** 
     rng.COPY 
    Else 
    End If 

odoc.Close wdDoNotSaveChanges 
Selection.PasteAndFormat (wdPasteDefault) 

End Sub 

для лучшего понимания

enter image description here

ответ

1

отредактирован: после редактирования вопроса Синди Meister

MoveRight не является допустимым методом для Range объекта в то время как для Selection объекта

и нет значения Cell для unit перечисления, в то время как wdCell является

скопировать элемент на одну ячейку справа от найденного одного, используйте

... 
    rng.Find.Execute 
    If rng.Find.Found = True Then 
     rng.Select 
     Selection.MoveRight unit:=wdCell 
     Selection.Copy 
    Else 
    End If 
    ... 
Смежные вопросы