请问各位达人,如何在delphi中向word文档里的指定位置添加图片?如何实现添加小弟已经知道,可是就是不知道该如何在文档中定位图片的位置,还请大家多多指教

解决方案 »

  1.   

    当然也可以做好word文档,当成一个模板,里面在需要的地方放在标签,编程时把实际的内容(可能是从数据库中查询出)替换掉模板文件的标签即可,两种方法,第一种纯用delphi生成word,不需要一个定制好的模板文件,第二种可以定制模板文件,客户也可以定制,只要按要求放置标签就行,呵呵
    WordDocument.Books.Item('书签名'{这里不能直接用书签名,要用个OLEVARIANT变量,把书签名赋给它,在这里使用这个变量,我的只是示意}).Range.Text:='值';
    WordDocument.Books.Item('书签名').Range.Font.(...):= '字体设置';域就是FIELD对象,操作都是大同小异
    WordTemps.Selection.GoTo wdGoToBook, , , "t1"
        WordTemps.Selection.TypeText TempT1