The thing is, do just want the "text" or do you want the "formattedtext" If the latter, then you would modify the function to return the actual trimmed range (not just the text):
Sub DemoMethods() Selection.FormattedText = fcnGetCellText4(ActiveDocument.Tables(1).Cell(1, 1).Range).FormattedText lbl_Exit: Exit Sub End Sub Function fcnGetCellText4(ByRef oRng As Word.Range) As Range oRng.End = oRng.End - 1 Set fcnGetCellText4 = oRng lbl_Exit: Exit Function End Function