word操作

qq127hb

我想设置插入word文档中文字的格式，改如何操作？
代码如下：

try
    Fword := ComObj.CreateOleObject('Word.Application');
    FApp := DispatchHelper.Create(Fword);
    FApp.PropertyPut('Caption', ['测试文档']);

    FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents', []));
    //加载一个空的文档
    FDocs.InvokeMethod('ADD', []);
    lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));

    //增加一行
    lSelection.InvokeMethod('TypeText', ['插入的文字－－格式一']);
//增加换行
    lSelection.InvokeMethod('TypeParagraph', []);
//增加一行
    lSelection.InvokeMethod('TypeText', ['插入的文字－－格式二']);
    //增加换行
    lSelection.InvokeMethod('TypeParagraph', []);

    FApp.PropertyPut('Visible', [True]);
    Fword := nil;
  except
    jsDialogs.ShowMsg('异常', '提示');
  end;

qq127hb

有什么好办法吗？

atiger

在bbs上有些类似的帖子
例如
http://bbs.justep.com/forum.php?mod=viewthread&tid=30179
你用“DispatchHelper”这搜索一下

qq127hb

插入文字

lSelection.InvokeMethod('TypeText', ['插入的文字']);

我如何设置它的格式？

SMP

楼主用的很深入啊，看下面的代码，就是在楼主的例子基础上改的，看lFont变量相关的部分，用如下代码我可以在office2007下修改第一行插入的几个字的字体：
var
  FWord: Object;
  FApp, FDocs, lSelection, lFont: system.DispatchHelper;
begin
try
    Fword := ComObj.CreateOleObject('Word.Application');

    FApp := DispatchHelper.Create(Fword);
    FApp.PropertyPut('Caption', ['²âÊÔÎĵµ']);

    FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents', []));
    //¼ÓÔØÒ»¸ö¿ÕµÄÎĵµ
    FDocs.InvokeMethod('ADD', []);
    lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));

    //Ôö¼ÓÒ»ÐÐ
    lSelection.InvokeMethod('TypeText', ['²åÈëµÄÎÄ×Ö£­£­¸ñʽһ']);
//Ôö¼Ó»»ÐÐ
    lSelection.InvokeMethod('TypeParagraph', []);
//Ôö¼ÓÒ»ÐÐ
    lSelection.InvokeMethod('TypeText', ['²åÈëµÄÎÄ×Ö£­£­¸ñʽ¶þ']);
    //Ôö¼Ó»»ÐÐ
    lSelection.InvokeMethod('TypeParagraph', []);
    lSelection.InvokeMethod('SetRange', [1, 10]);
    lFont := DispatchHelper.Create(lSelection.PropertyGet('Font', []));
    lFont.PropertyPut('Bold', [1]);
    FApp.PropertyPut('Visible', [True]);
    Fword := nil;
  except
    jsDialogs.ShowMsg('Òì³£', 'Ìáʾ');
  end;
end;

如建议钻研一下Office的官方文档，了解了它的类的体系结构之后用DispatchHelper控制就行了！