我用Delphi带的WordDocument来向Word文档里写入字符。 如果是在普通的页面里写，如果我要写2行字，可以这样写：'abc' #13 'def'，则显示为abd一行，def在另一行。 但这样的写法，如果是写在WORD的表格里，则#13这个字符被显示为一个空格，没有换行。 请问要在WORD的表格里写入数行字符的话，强行换行该怎么做？

hi, 弟試過是 ok 的沒問題, 可否將你的 code 放上來讓大家看一下問題在那裡.

引言: hi, 弟試過是 ok 的沒問題, 可否將你的 code 放上來讓大家看一下問題在那裡.

请看： WordApplication1.Connect; try WordApplication1.Visible :=false; FileName:=ExtractFilePath(Application.ExeName) 'D.doc'; confirmConversions := False; ReadOnly := False; AddToRecentFiles := False; PasswordDocument := ''; PasswordTemplate := ''; Revert := True; WritePasswordDocument := ''; WritePasswordTemplate := ''; Visable:=True; Format := wdOpenFormatDocument; WordApplication1.Documents.Open(FileName, ConfirmConversions, readOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding,Visable); AIndex:=1; WordDocument1.ConnectTo(WordApplication1.Documents.Item(AIndex)); FindText := '#No'; MatchCase := False; MatchWholeWord := True; MatchWildcards := False; MatchSoundsLike := False; MatchAllWordForms := False; AForward := True; Wrap := wdFindContinue; Format := False; ReplaceWith := '55' #13 #0 '88'; <---这里把字符写到WORD页面的表格里，则显示出来是没有换行的。如果被替换的字符是在普通的空白页里，则显示出来是换了行的。 Replace := True; WordDocument1.Range.Find.Execute( FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, AForward, Wrap, Format, ReplaceWith, Replace,MatchKashida,MatchDiacritics,MatchAlefHamza,MatchControl ); WordDocument1.Close; WordApplication1.Quit; finally WordDocument1.Disconnect; WordApplication1.Disconnect; end;

应该是#13#10吧