Word table range value

[Dossfm0q]

Code below dosn't work, What is wrong ?
Sub TableRange()
'***************
' p | *
'***************

' Code below dosn't work: What is wrong
With ActiveDocument.Tables(1)
If .Cell(1, 1).Range.text = "p" Then
.Cell(1, 2).Range.text = 8
Else

End If
End With
End Sub

 

[Dossfm0q]

Thank you for help I get it.

Sub TableRange()
'***************
' p | *
'***************

set CellText =ActiveDocument.Tables(1).Cell(1, 1).Range
CellText.end =CellText.end -1 ' to remve Hidden text or (hidden Suffix)

With ActiveDocument.Tables(1)

If CellText = "p" Then
.Cell(1, 2).Range.text = 8
Else
' do nothing
End If

End With


End Sub

 

[Macropod]

Try:

Sub TableRange()
Dim Rng As Range
With ActiveDocument.Tables(1)
  Set Rng = .Cell(1, 1).Range
  Rng.End = Rng.End - 1
  If Rng.Text = "p" Then
    .Cell(1, 2).Range.Text = 8
  Else
    'something goes here?
  End If
End With
Set Rng = Nothing
End Sub

 

[Dossfm0q]

Thank you very much