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