求救：一个关于操纵Word里表格的问题

Question

啊,这个很麻烦啊
FileName := savedialog1.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatAuto;
Encoding:='UTF-8';
visible:=true;Separator:=wdSeparateByTabs;
NumColumns:=3;
NumRows:=1;
InitialColumnWidth:=100;
ApplyBorders:=True;
ApplyShading:=True;
ApplyFont:=True;
ApplyColor:=True;
ApplyHeadingRows:=True;
ApplyLastRow:=False;
ApplyFirstColumn:=True;
ApplyLastColumn:=False;
AutoFit:=True;
AutoFitBehavior:=wdAutoFitFixed;WordApplication.Documents.Open(FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding,visible );{Assign WordDocument component}
ItemIndex := 1;WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
//myuse
Format:=wdTableFormatNone;
WordApplication.Selection.WholeStory;
WordApplication.Selection.ConvertToTable(Separator,NumRows,NumColumns,InitialColumnWidth,Format,
ApplyBorders,ApplyShading,ApplyFont,ApplyColor,ApplyHeadingRows,ApplyLastRow,ApplyFirstColumn,
ApplyLastColumn,AutoFit,AutoFitBehavior,DefaultTableBehavior);
Wordapplication.Visible := True;
这个是以前写的,把word里内容全选,然后根据分割符自动插入表格
哇,你自己参考一下吧