[问题]请问如何在调出的Word里实现换行

pc牧童

1 我用
  CFName := 'e:\Word测试001.doc';
  FWord := ComObj.CreateOleObject('Word.Application');
  FApp := DispatchHelper.Create(FWord);
  FApp.PropertyPut('Visible', [True]);
  FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents',  []));
  FDocs.InvokeMethod('Open', [CFName]);
调出 Word，想实现换行应该怎么写。
如实现VBA下面的代码
   ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.TypeText Text:="123123"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="45"
    Selection.TypeParagraph
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="67"
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.InsertRows 1
    Selection.Collapse Direction:=wdCollapseStart
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.InsertRows 1
    Selection.Collapse Direction:=wdCollapseStart
    Selection.TypeText Text:="88"
End Sub

2 用
FWord := ComObj.CreateOleObject('Excel.Application');//('Visio.Application');//('Excel.Application');
  FApp := DispatchHelper.Create(FWord);
  FApp.PropertyPut('Visible', [True]);
  FDocs := DispatchHelper.Create(FApp.PropertyGet('WorkBooks',  []));
  //FDocs.InvokeMethod('ADD', [CFName]);  //ADD 和 Open效果一样
  FDocs.InvokeMethod('Open', [CFName]);
代码调出Excel，想在指定的格子里写字段怎么写
比如 “D3”  位置输入‘单据号’

谢谢。

pc牧童

请问往Excel内插入数据，如何插入指定的格，如A3

zfang

楼主，建议你直接用它的组件吧
http://bbs.justep.com/forum.php?mod=viewthread&tid=24449

pc牧童

这个不行，已经被领导否了。
我看到有Excel合并单元格的帖子，没看太懂，能给点明么。
谢谢。

zfang

论坛里其实有类似的代码的，楼主应该搜索研究一下，我贴出参考代码，下面的效果是打开一个已经存在的excel，然后第一行第一列中填入一个文字信息：
procedure TMainForm.Button2Click(Sender: TObject);
var
  openDialog:TOpenDialog;
  o,odoc: Object ;
  excelApp,b: System.DispatchHelper;
begin
  openDialog:=TOpenDialog.Create(nil);
  try
    if openDialog.Execute then
    begin
      o :=ComObj.CreateOleObject('Excel.Application');
      excelApp := DispatchHelper.Create(o);
      excelApp.PropertyPut('Visible', [False]);
      odoc:= excelApp.PropertyGet('WorkBooks',[]);

      DispatchHelper.Create(odoc).InvokeMethod('Open',[openDialog.FileName]);

      b := DispatchHelper.Create(excelApp.PropertyGet('cells', [1,1]));
      b.PropertyPut('value',['屏名称']);
      excelApp.InvokeMethod('Save',[]);
    end;
  finally
    excelApp.InvokeMethod('Quit',[]);
    (odoc as System.IDisposable).Dispose;
    (o as System.IDisposable).Dispose;
    openDialog.free;
  end;
end;

pc牧童

这个第二个在Excel中插入数据已经解决，
第一个问题呢，，在Word文档中如果有网格，该如何增加行数呢。？？
谢谢。

zfang

实在不好意思，一直没时间去试，楼主你先自己 翻译试试（论坛里搜索一下，看看是否有参考）