用下面这个函数，调用的时候就是GetContent（行号）就行了Function GetContent(LineNo) As String Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=LineNo Selection.MoveRight wdSentence, 1, True GetContent = Selection.TextEnd Function
