Search code examples
vbams-wordword-2007word-2003

Moving to next cell in another document


While working in Range of another document TCN.docx I am getting Error of method or data member not found on rng.MoveRight unit:=Cell position.

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

for better understanding

enter image description here


Solution

  • edited: after question editing by Cindy Meister

    MoveRight is not a valid method for Range object while it is for Selection object

    and there's no Cell value for unit enumeration, while wdCell is

    to copy the element one cell to the right of the found one, use

        ...
        rng.Find.Execute
        If rng.Find.Found = True Then
            rng.Select
            Selection.MoveRight unit:=wdCell
            Selection.Copy
        Else
        End If
        ...