Delphi与Word（二） 取得Word 表格中的数据

最新推荐文章于 2023-01-11 17:40:07 发布
最新推荐文章于 2023-01-11 17:40:07 发布
阅读量1.7k 收藏 2
点赞数
文章标签： delphi integer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/TianGuanLeiOK/article/details/98355
版权
本文介绍如何通过Delphi创建TWordApplication对象并打开Word文档，然后详细展示了三种方法来获取Word表格中的数据，包括规则表、不规则表（只有横向合并）和任意表格（横向、纵向合并）的情况，将数据添加到memo1中。
摘要由CSDN通过智能技术生成

//取得Word 表格中的数据
procedure getWordCellStr;
var WordApp: TWordApplication;
    WordDoc: TWordDocument;
    DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
    PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
    i,iRow,iCol:integer;
    myCell:Cell;
    myRow:Row;
begin
  memo1.Lines.Clear ;

    // ===== 创建对象 =====
    if not Assigned(WordApp) then                         
    begin
      WordApp:= TWordApplication.Create(nil);
      WordApp.Visible := false;
    end;
    if not Assigned(WordDoc) then
      WordDoc:= TWordDocument.Create(nil);
  try
    DocInx:=1;
    oFileName := 'd:/test.doc';
    oReadOnly:=true;
    CfCversions := EmptyParam;
    AddToRctFiles:= EmptyParam;
    PswDocument:= EmptyPar

最低0.47元/天 解锁文章
TianGuanLeiOK
关注
Delphi7.0 操作word填写表格
01-10
一段原创Delphi7.0 操作word进行word文件表格填写的代码，本人业余爱好者，如有错误，敬请诸位大猿指出。
Delphi与Word（二）取得Word 表格中的数据
迷茫
06-04 2135
//取得Word 表格中的数据procedure getWordCellStr;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocume
Word开发中的常用接口(Range，Tables，InlineShapes)与操作(copy,paste)
热门推荐
就在昨天之技术点滴
11-17 1万+
（一）在Word开发中，Range对象是用的最频繁的对象。获取Range的方法有很多，大多数对象都能返回range对象，例如： （1）从对象模型中获取Range，例如 document.Range() table.Cell(1,1).Range (2) 搜索字符，获取找到的字符串的range 为了搜索字符串，首先需要一个range，通过这...
Delphi 读取&预览Word文档内容
xiaobin_zb的博客
09-04 1812
预览(转换成rtf文件加载到richedit)
Delphi操作Word中的表
IT工作室的专栏
10-23 929
http://blog.csdn.net/my98800/article/details/52700582
在Delphi中控制Word启动和插入表格
05-18
Delphi编写实现一个Word控制程序，可实现在Delphi程序窗口中启动Word、绘制表格、添加数据、合并单元格等，一个与word操作紧密相关的例子，还是很有用处的。 运行环境：Windows/Delphi7
delphi7操作word
07-09
而当我们需要在Delphi 7程序中与Microsoft Word交互时，通常会涉及到对Word文档的操作，比如插入文字和表格。本篇文章将深入探讨如何使用Delphi 7来控制Word进行这些操作。 首先，我们需要了解的是，Delphi 7可以...
Delphi读取Word文档
11-28
Ole Automation是一种技术，允许不同的应用程序之间共享数据和服务，使得Delphi可以直接操控Word对象模型，实现对Word文档的操作。 首先，我们需要在Delphi项目中引入`ComObj`单元，这个单元包含了对Ole Automation...
wordTOOLS_delphi_delphi替换Word_
09-29
总的来说，"wordTOOLS_delphi_delphi替换Word"是一个实用的Delphi应用，它展示了如何利用Delphi强大的编程能力与Microsoft Office套件进行集成，实现高效便捷的文档处理功能。无论是对企业内部的文档管理，还是个人...
delphi读取word
04-12
delphi读取word Delphi写数据至WORD 所需的三个控件： TWordApplication; TWordDocument; TWordFont; 创建 打开 读取操作 对word表格进行读写
Delphi读入数据到DBGrid并向Word中插入表格.rar
07-10
Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。 　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象 　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档 　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格 　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体 　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行 　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据 　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行 　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;
delphi读取word文档
04-26
用dephi实现读取Word文档功能，内有源码程序
delphi 读取Word
09-28
将word中不规则的表格数据转换为标准的表格，即合并的单元格按正常格式解析
用Delphi实现Word文件的预览
07-13
使用DELHPI的设计与编程来实现与WORD的结合，达到控制的目的。 您不必从文件中读取所有的图像 ? 您可以创建自己的图像。要创建自己的图像，最灵活的方法是用一个 BufferedImage 对象，它是 Image 类的一个子类，它把图像数据存储在一个可以被访问的缓冲区中。它还支持各种存储像素数据的方法：使用或不使用 alpha 通道、不同种类的颜色模型以及颜色组件的各种精确度。ColorModel 类提供一种灵活的方法定义各种颜色模型，以和 BufferedImage 对象一起使用。为了理解颜色模型工作的基本知识，我们将只使用一个缺省的颜色模型，其颜色组件由 RGB 值和一个缓冲类型（存储 8 位的 RGB 颜色值加上一个 alpha 通道）组成。这一缓冲类型由 BufferedImage 类中的常量 TYPE_INT_ARGB 指定，它意味着每个像素要用一个 int 值。每个像素的值是以 8 位字节形式存储一个 alpha 组件加上 RGB 颜色组件。我们可以用给定的宽度和高度创建一个这种类型的 BufferedImage 对象，代码语句如下： int width = 200; int height = 300; BufferedImage image = new BufferedImage(width, height,BufferedImage.TYPE_INT_ARGB); 这段代码创建了一个 BufferedImage 对象，它代表一个 200 像素宽、300 像素高的图像。为了应用这个图像，我们需要有图形上下文，而 BufferedImage 对象的 createGraphics() 方法就返回一个与该图像相关的 Graphics2D 对象： int width = 200; Graphics2D g2D = image.createGraphics(); 使用 g2D 对象的操作会修改 BufferedImage 对象 image 的像素。利用这个对象，您现在完全有能力应用 BufferedImage 对象。您可以绘制形状、图像、GeneralPath 对象或任何别的东西，还可以为图形上下文设置 alpha 组合对象。您同时还拥有 Graphics2D 对象提供的全部仿射变形能力。 如果要从 BufferedImage 对象获取单个像素，可以通过调用它的 getRGB() 方法，并提供该像素的 x,y 坐标作为 int 类型的参数。这个像素会按 TYPE_INT_ARGB 格式以 int 类型返回，它由四个 8 位的值（代表 alpha 值和 RGB 颜色组件）组成一个 32 位字。同时 getRGB() 还有一个重载的版本，它从一部分图像数据中返回一个像素数组。您也可以通过调用 setRGB() 方法来设置单个像素。前两个参数是该像素的坐标值，第三个参数是待设定的值，类型为 int。这个方法也有一个版本可以设置像素数组的值。 至此我们已经完成了像素操作的学习。下面我们要建立一个 applet，它在 Wrox 徽标背景上使 BufferedImage 对象具有动画效果。我们的示例还将演示怎样能让图像局部透明。applet 的基本内容如下所示： import java.awt.*; import java.awt.image.*; import java.awt.geom.*; import javax.swing.*; public class ImageDrawDemo extends JApplet { // The init() method to initialize everything... // The start() method to start the animation... // The stop() method to stop the animation... // The ImagePanel class defining the panel displaying the animation... // Data members for the applet... } 创建一个图像 一个子图形是一个小的图形图像，可以将其绘制在静态图像以创建动画。要创建动画效果，您只要随着时间推移，在不同的位置和方向上绘制子图形。当然，利用坐标系的变形可以使之简化许多。游戏经常使用子图形 ? 由于您只需要在一个静态背景上绘制子图形，所以可以使动画所占用的处理器的时间大大减少。我们对使用 BufferedImage 对象的兴趣意味着我们将不再花费精力去研究减少处理器时间的最佳技术，而是把注意力放在理解怎样才能在一个程序内部创建和使用图像上。 我们的 BufferedImage 对象看上去如图 1 中的图像： 图 1. BufferedImage 子图形 这个图像是一个以 spriteSize 为边长的正方形。图像其它部分的尺寸值都与这个边长相关。实际上这里只有两个几何实体，一条线和一个圆，都在不同位置和方向重复出现。如果我们创建一个 Line2D.Double 对象代表线，创建一个 Ellipse2D.Double 对象代表圆，那么我们就可以通过移动用户坐标系和画这两个对象中的一个或其它的对象而画出整个图像。 如果是按真正面向对象的方法，应该定义一个类代表一个子图形，可能是作为 BufferedImage 的一个子类，但由于我们是在探索使用 BufferedImage 对象的技巧，因此用一个 createSprite() 方法来画出 BufferedImage 对象上的子图形会更适合我们的目的。因为该方法只是我们的 applet 类的一个成员，所以我们将为 applet 添加数据成员以存储任何需要的数据。您可以把我们将使用的数据成员插入到 applet 类中，如下所示： double totalAngle; // Current angular position of sprite double spriteAngle; // Rotation angle of sprite about its center ImagePanel imagePanel; // Panel to display animation BufferedImage sprite; // Stores reference to the sprite int spriteSize = 100; // Diameter of the sprite Ellipse2D.Double circle; // A circle - part of the sprite Line2D.Double line; // A line - part of the sprite // Colors used in sprite Color[] colors = {Color.red , Color.yellow, Color.green , Color.blue, Color.cyan, Color.pink , Color.magenta, Color.orange}; java.util.Timer timer; // Timer for the animation long interval = 50; // Time interval msec between repaints 这些成员的一般用途可以从注释中清楚地看到。下面我们要看一看开发代码时它们是怎样被使用的。 createSprite() 方法需要做的第一件事就是创建 BufferedImage 对象 sprite，然后我们还需要一个 Graphics2D 对象用于在 sprite 图像上绘画。下面就是完成这些操作的代码： BufferedImage createSprite(int spriteSize) { // Create image with RGB and alpha channel BufferedImage sprite = new BufferedImage(spriteSize, spriteSize, BufferedImage.TYPE_INT_ARGB); Graphics2D g2D = sprite.createGraphics(); // Context for buffered image // plus the rest of the method... } sprite 对象的宽和高的值都是 spriteSize，图像的类型为 TYPE_INT_ARGB，就是说每个像素的 alpha 值和颜色组件是以一个单独的 int 值存储的，而颜色是以 8 位的红、绿、蓝组件的形式存储的。这意味着我们的 sprite 图像将占用 40,000 字节，这只是浏览一个网页会占用的内存的很小一部分。而这并不影响网页的下载时间，因为在执行 applet 的时候，这部分内存是在本地机器上被分配的。除了作为网页本身的 HTML 文件的内容外，下载时间还取决于 applet 的 .class 文件的大小，以及在它执行时下载的图像或其它文件。 创建一个透明的背景 在 sprite 图像中，alpha 通道是很重要的，因为我们希望背景能完全透明。在绘画过程中，只有 sprite 对象本身应该是可见的，而不是整个 100×100 的矩形图像。我们可以很容易地实现这一目的，只要开始先使整个 sprite 图像区域透明（即，alpha 值为 0.0f），然后把我们想要画的图形绘制在上面，使之不透明（alpha 值为 1.0f）。以下是使整个图像透明的代码： // Clear image with transparent alpha by drawing a rectangle g2D.setComposite(AlphaComposite.getInstance(AlphaComposite.CLEAR, 0.0f)); Rectangle2D.Double rect = new Rectangle2D.Double(0,0,spriteSize,spriteSize); g2D.fill(rect); 我们首先使用 AlphaComposite 对象按照 CLEAR 规则设置 alpha 合成值，把颜色组件设置为零，又通过设置 alpha 值为 0.0f，使之透明。然后我们填充一个覆盖整个图像区域的矩形。我们不必设置颜色值，因为根据 CLEAR 规则，每个像素的前景和背景色所占成分都是零，所以这两者都不参与像素的生成。但我们仍要填充该矩形，因为这将确定被操作的图像像素。 这里，我们可以稍微了解一下怎样控制图像的质量。 着色微调 对着色操作的许多方面而言，都有一个在质量和速度间选择的问题。着色操作就像大多数事情一样 ? 质量是需要代价的，而这里的代价就是处理时间。所有的着色操作都有缺省设置，其中存在一个选择，缺省设置是特定于平台的，但您可以通过调用用于着色的 Graphics2D 对象的 setRenderingHint() 方法自己选择。虽然只有一些微调，如果您的计算机不支持与您指定的微调相对应的着色操作选项，这些微调就无法生效。 通过添加以下对 createSprite() 方法的调用，可以确保得到由我们的 alpha 合成操作可能生成的最好效果。 BufferedImage createSprite(int spriteSize) { // Create image with RGB and alpha channel BufferedImage sprite = new BufferedImage(spriteSize, spriteSize, BufferedImage.TYPE_INT_ARGB); Graphics2D g2D = sprite.createGraphics(); // Context for buffered image // Set best alpha interpolation quality g2D.setRenderingHint(RenderingHints.KEY_ALPHA_INTERPOLATION, RenderingHints.VALUE_ALPHA_INTERPOLATION_QUALITY); // Clear image with transparent alpha by drawing a rectangle g2D.setComposite(AlphaComposite.getInstance(AlphaComposite.CLEAR, 0.0f)); Rectangle2D.Double rect = new Rectangle2D.Double(0,0,spriteSize,spriteSize); g2D.fill(rect); // plus the rest of the method... } RenderingHints 类定义了多种着色微调，它们存储在一个映射集的 Graphics2D 对象里。setRenderingHint() 方法的参数是一个键以及对应的键值。在我们的代码中，第一个参数是代表 alpha 合成微调的键，第二个参数是该微调的值。该微调的其它可能的值有 VALUE_ALPHA_INTERPOLATION_DEFAULT，代表平台缺省值；以及 VALUE_ALPHA_INTERPOLATION_SPEED，代表追求速度而不是质量。 您还可以为下面的键提供微调： 键 描述 KEY_ANTIALIASING 决定是否使用抗锯齿。当着色有倾斜角度的线时，通常会得到一组阶梯式的像素排列，使这条线看上去不平滑，经常被称为 锯齿状图形。抗锯齿是一种技术，它设置有倾斜角度的线的像素亮度，以使线看起来更平滑。因此，这个微调是用来决定在着色有倾斜角度的线时是否在减少锯齿状图形上花费时间。可能的值有 VALUE_ANTIALIAS_ON, _OFF 或 _DEFAULT。 KEY_COLOR_RENDERING 控制颜色着色的方式。可能的值有 VALUE_COLOR_RENDER_SPEED, _QUALITY 或 _DEFAULT。 KEY_DITHERING 控制如何处理抖动。抖动是用一组有限的颜色合成出一个更大范围的颜色的过程，方法是给相邻像素着色以产生不在该组颜色中的新的颜色幻觉。可能的值有 VALUE_DITHER_ENABLE, _DISABLE 或 _DEFAULT。 KEY_FRACTIONALMETRICS 控制显示文本的质量。可能的值有 VALUE_FRACTIONALMETRICS_ON, _OFF 或 _DEFAULT。 KEY_INTERPOLATION 确定怎样做内插。 在对一个源图像做变形时，变形后的像素很少能够恰好对应目标像素位置。在这种情况下，每个变形后的像素的颜色值不得不由周围的像素决定。 内插就是实现上述过程。有许多可用的技术。可能的值，按处理时间从最多到最少，是 VALUE_INTERPOLATION_BICUBIC, _BILINEAR 或 _NEAREST_NEIGHBOR。 KEY_RENDERING 确定着色技术，在速度和质量之间进行权衡。可能的值有 VALUE_RENDERING_SPEED, _QUALITY 或 _DEFAULT。 KEY_TEXT_ANTIALIASING 确定对文本着色时是否抗锯齿。可能的值有 VALUE_TEXT_ANTIALIASING_ON, _OFF 或 _DEFAULT。
Delphi读取不Word中不规则表格数据并转换成标准表格
weixin_34192993的博客
05-16 251
程序需要，需要将word中不规则的表格数据转换为标准的表格，即合并的单元格按正常格式解析，word中的表格格式如下：   解析后数据如下：     借鉴了网上代码，如下处理：   procedure TfrmMain.getWordCellStr; var WordApp: TWordApplication; WordDoc: TWordDocument; ...
Delphi之操作Word实践
喜欢自己正在做的
07-26 770
 1.连接到Word应用程序 DocInx: OleVariant; word_path: OleVariant;//打开word文件  wordApp1.Connect; word_path := fileName; DocInx := 1; //打开指定的word文件 wordApp1.Documents.Open(word_path, Em
DELPHI 6 控制WORD操作表格
最新发布
weixin_47663607的博客
01-11 817
DELPHI根据WORD文档模板自动生成WORD文档表格。
在Delphi中操作Word
niochen的专栏
02-20 914
unit UJoin_word; interface uses //指定使用系统的单元文件 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleServer, Buttons, DBCtrls, Db, Grids, D
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值