怎么去掉单元格里获得文本后面的圆点？

lxz_lz

t = doc.Tables(2).Cell(3, 2).Range.Paragraphs(1).Range.Text 总是有个小黑圆点，而且还是换行的跟在后面？怎么做才能只是获得文本，不要那个圆点呀？ 谢谢

守柔

Sub Example()
Dim Doc As Document, t As String, myTable As Table
Dim a As String
Set Doc = ActiveDocument
With Doc
Set myTable = .Tables(1)

'使用RANGE对象返回
t = .Range(myTable.Cell(1, 1).Range.Start, myTable.Cell(1, 1).Range.End - 1).Text

'使用函数返回,用MID等也可.
a = myTable.Cell(1, 1).Range.Text
t = VBA.Left(a, Len(a) - 1)
MsgBox t
End With
End Sub

lxz_lz

嗯，谢谢版主。。。