Code: Select all
cellContent = Selection.Tables(1).Cell(2, colNo).Range.Text
strIn = InputBox("Edit if nec...", "update cell", cellContent)
Selection.Tables(1).Cell(2, colNo).Range.Text = strIn
Thanks,
Ken
Code: Select all
cellContent = Selection.Tables(1).Cell(2, colNo).Range.Text
strIn = InputBox("Edit if nec...", "update cell", cellContent)
Selection.Tables(1).Cell(2, colNo).Range.Text = strIn
Code: Select all
Public Function strCellText(rng As Range) As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Function: strCellText
'''
''' Comments: Return the text contents of a cell range.
'''
''' Arguments: RANGE Of a table cell
'''
''' Returns: STRING
'''
''' Date Developer Action
''' --------------------------------------------------------------------------
''' 2008/11/22 Chris Greaves Created
'''
strCellText = Left$(rng.Text, Len(rng.Text) - 2)
'Sub TESTstrCellText()
' MsgBox strCellText(ActiveDocument.Tables(1).Rows(1).Cells(1).Range)
'End Sub
End Function