Find string in Word document

[lebowski]

I am simply trying to find text in a Word document using a string. I have the following code:

Dim mystring As String
Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
    .Text = mystring
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
End With
Selection.Find.Execute

The variable 'mystring' has been populated earlier in the code and exactly matches the text in the document. Nothing happens on running the code.

If I add exactly the same text to the string before running the code, it works fine:

Dim mystring As String
mystring = "text marker"
Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
    .Text = mystring
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
End With
Selection.Find.Execute

There has to be something simple that I am missing. Any help would much appreciated. Thanks.

[lebowski]

I found the reason. I had included text in the string from a selected table cell in Word. I thought this added an unwanted character at the end of the string, so had removed the last character. It turns out that there are 2 characters that need to be removed from the end of the string when selecting text this way.

Does anyone know how to copy the contents of a Word table cell into a string without selecting the entire cell (Selection.SelectCell), thus avoiding appending the text with these unwanted characted?

[Dave]

Left(yourtablecell,Len(yourtablecell)-2)

HTH. Dave

[gmayor]

Dim oRng As Range
Dim strCellText As String
    Set oRng = Selection.Cells(1).Range
    oRng.End = oRng.End - 1
    strCellText = oRng.Text

[snb]

Sub M_snb()
    MsgBox Replace(Tables(1).Cell(1, 1).Range, vbCr & Chr(7), "")
end sub

[Tommy]

another way

Sub Look()    Dim ask As String
    With ActiveDocument.Tables(1)
        ask = Replace(.Cell(2, 2).Range.Text, vbCr & Chr(7), "")
    End With
End Sub