delphi:在word中插入一个表格

Question

我用word宏录制了一个动作，在文字所在表格的下方插入一个新表格行，宏代码如下：
Sub Macro1()
    Selection.InsertRowsBelow 10
End Sub请问如何转换为delphi代码，谢谢

Answer 1

仅供参考var   MSWord:   OLEVariant;  
  begin  
      try  
              MSWord:=   CreateOleObject('Word.Application');  
              MsWord.Documents.Add();   //創建空文檔；  
          except  
              MsWord.quit;  
              Exit;  
          end;  
   
      MsWord.ActiveDocument.Tables.Add(Range:=MsWord.Selection.Range,  
                                                                                    NumRows:=3,  
                                                                                    NumColumns:=3,  
                                                                                    DefaultTableBehavior:=0,  
                                                                                    AutoFitBehavior:=0);  
  end;   

Answer 2

to genispan:你上面这段代码好像没用到insertrowsbelow(10);啊