`

Delphi写数据至WORD--转

阅读更多

 

1.所需的三个控件:
ChooseWA: TWordApplication;
ChooseWD: TWordDocument;
ChooseWF: TWordFont;

2.检查计算机是否安装了WORD
try
ChooseWA.Connect;
except
MessageBox(handle,'无法链接,请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or

MB_ICONERROR);
Abort;
end;

3.关闭WORD拼写检查
//因为Word进行拼写检查需要很多时间,所以首先关闭检查
ChooseWA.Options.CheckSpellingAsYouType := False;
ChooseWA.Options.CheckGrammarAsYouType := False;

4.新建一个文档并设置文档的标题
var
NewDocument: _Document;
ItemIndex: OleVariant;

ItemIndex := 1;
NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
ChooseWD.ConnectTo(NewDocument);
ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷

名称

5.写入数据
ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行

6.设置字体格式
procedure SetFont(aBold,aItalic,aShadow,aSize:integer);
begin
ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font);
ChooseWF.Name := '宋体';
ChooseWF.Bold := aBold;
ChooseWF.Italic := aItalic;
ChooseWF.Shadow := aShadow;
ChooseWF.Size := aSize;
end;

如:SetFont(1,0,0,22);//设置字体为22号

7.向WORD中写入表格
(1)插入表格:
ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数,

ColNum为列数
(2)插入数据:
ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列';
ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列';

8.向WORD写入图片
var
Img: TImage;
MyFormat: Word;
AData: Cardinal;
APalette: HPALETTE;

Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件
Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中
Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元
ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片

9.在界面中显示WORD文档
ChooseWA.Visible:=true;

10.断开与WORD的链接
ChooseWA.Disconnect;
ChooseWD.Disconnect;

分享到:
评论

相关推荐

    Delphi读写Office Word DOCX文档控件DOCXReadWrite & AXWReport开发帮助手册中英文对照版.docx

    ### Delphi 读写 Office Word DOCX 控件 DOCXReadWrite & AXWReport 开发帮助手册 #### 一、概述 Delphi 是一款流行的跨平台软件开发工具,它支持多种编程语言和技术栈。对于那些需要与 Microsoft Office 文档交互...

    Delphi实现Word、PDF文档转Image

    在实现"Word转Jpg"的过程中,通常会利用Windows API或第三方库来读取Word文档内容,并将其渲染为图像。对于PDF文档,可能需要使用专门的PDF解析库,如Ghostscript或iText,来获取页面内容并转换成图像。 在这个项目...

    delphi读取word

    delphi读取word Delphi写数据至WORD 所需的三个控件: TWordApplication; TWordDocument; TWordFont; 创建 打开 读取操作 对word表格进行读写

    Delphi中实现把数据集中的数据导出为word

    ### Delphi中实现把数据集中的数据导出为Word文档 在Delphi开发环境中,将数据库中的数据导出到Microsoft Word文档是一项常见的需求。本文将详细介绍如何利用Delphi结合Microsoft Office自动化技术(主要通过OLE...

    DocReplace_打开word_delphi_delphi替换Word_delphi合同_

    本文将详细解析"DocReplace_打开word_delphi_delphi替换Word_delphi合同_"这一主题,以及如何利用Delphi实现Word文档内容的自动化替换。 首先,我们要了解Delphi是一个强大的Object Pascal开发环境,它提供了丰富的...

    Delphi路径选择系统2005-10-31.rar_delphi 系统路径_gis_word delphi_路径选择

    《Delphi实现的GIS路径优选系统与Word自动化打印技术详解》 在信息技术高速发展的今天,GIS(Geographic Information System,地理信息系统)已经成为处理地理数据、分析地理位置信息的重要工具。而Delphi作为一款...

    Delphi7.0 操作word填写表格

    在标题和描述中提到的关键知识点包括:Delphi 7.0、操作Word、填写表格、代码示例。 1. Delphi 7.0是一种集成开发环境(IDE),用于快速开发跨平台、多层结构、数据库驱动的应用程序。它是使用Object Pascal编程语言...

    delphi读取word文档

    在描述中提到的"delphi读取word文档"是一个常见的需求,尤其是在处理办公自动化或者数据迁移的场景下。本篇文章将详细探讨如何使用Delphi来读取Microsoft Word文档,并提供相关的源码程序。 首先,我们需要了解在...

    Delphi读取Word文档

    Ole Automation是一种技术,允许不同的应用程序之间共享数据和服务,使得Delphi可以直接操控Word对象模型,实现对Word文档的操作。 首先,我们需要在Delphi项目中引入`ComObj`单元,这个单元包含了对Ole Automation...

    delphi操作word实例

    4. 之后,使用 Delphi 中的数据库组件(如 ADOQuery)来查询数据,并将其替换到 Word 文档中的批注中。 5. 最后,关闭 Word 文档,并将其保存到指定的文件夹中。 在这个示例中,我们使用了 Delphi 的 TForm9 单元来...

    Delphi版Word文档批量合并、文字替换、修改、插入图片程序.rar

    Delphi开发的Word文档批量处理程序,可批量Word文字替换,批量字体修改、批量插入图片,批量合并Word文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明:  1、系统将根据样版文件复制成多个文件;...

    用Delphi将Word文档转换为TXT文件

    以上是关于如何使用Delphi将Word文档转换为TXT文件的相关知识点,包括创建Word应用程序对象、打开Word文档、读取和处理Word文档内容以及将数据写入TXT文件等关键步骤。这些知识点对于理解如何使用Delphi进行Word文档...

    delphi操作word excel

    综上所述,Delphi 操作 Word 和 Excel 主要是通过 OLE 自动化技术实现,涉及到组件的使用、事件处理、数据库数据与 Excel 数据交换等多个环节,这些都需要开发者具备一定的 Delphi 和 OLE 自动化知识。

    delphi word中图片 通过clipboard 拷贝到 jpg文件

    在Delphi编程环境中,当你需要将Word文档中的图片提取出来并保存为JPG文件时,可以利用 Clipboard(剪贴板)对象来实现这一操作。Clipboard是Windows操作系统提供的一种通用数据交换机制,允许程序之间共享数据,...

    Delphi与Windows API数据类型对照表

    为了更好地将Delphi与Windows API结合使用,理解两者间的数据类型对照是至关重要的。本文将详细解释《Delphi与Windows API数据类型对照表》中列出的关键数据类型及其用途。 #### Windows 数据类型与 Delphi 数据...

    Delphi使用Word自动化服务器插入数据

     Delphi使用Word自动化服务器插入数据到Word程序中,这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,返回应用参数.这个调用在英文和法文版的 Word中相同。对...

    delphi不用控件导出Word文档,可以导出表格到word

    在Delphi编程环境中,我们可以利用其内置的COM互操作能力,无需使用任何额外的控件(包括第三方控件和Delphi自带的VCL组件),直接与Microsoft Office的接口交互,来实现Word文档的创建和编辑,包括导出表格。...

    Delphi操作Word演示

    "Delphi操作Word演示"是一个示例项目,它展示了如何利用Delphi编程环境与Microsoft Word交互,以便进行文档创建、编辑或自动化处理。Delphi是一款强大的Windows应用开发工具,使用Object Pascal语言,而Word则是常用...

    delphi向word写入数据

    //从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元 ...

    delphi获取、设置 Word、Excel 的作者、标题、主题、备注等摘要信息

    在 Delphi 开发环境中,与 Microsoft Office,如 Word 和 Excel 进行交互是常见的需求,尤其是在处理文档元数据时,例如获取和设置作者、标题、主题、备注等摘要信息。这些元数据对于文档管理和信息组织至关重要。...

Global site tag (gtag.js) - Google Analytics