delphi下载word（delphi 操作word，怎样在word中插入超级连接）

本文目录

• delphi 操作word，怎样在word中插入超级连接
• 安装Delphi的一个插件，提示File not found: ’iOPCCommonLibrary_TLB.dcu’
• Delphi word怎么删除最后页
• 如何将Delphi报表的内容导出到WORD中（报表
• 请问delphi中如何打开FTP、WORD格式的文件呀

delphi 操作word，怎样在word中插入超级连接

你好，其实Delphi操作Word的方法很多，通过录制Word宏操作是一种非常方便的方法。下面来具体解说一下。

【软件信息】

Delphi6，Word2010

【目标】

通过Delphi在Word中添加超链接。

【步骤】

1. 先录制一段Word中添加超链接的宏，宏代码如下。

   ***隐藏网址***

2. Sub 添加超链接()
   ’
   ’ 添加超链接 宏
   ’
   ’
       Selection.EndKey Unit:=wdStory
       Selection.TypeParagraph
       Selection.TypeText Text:="测试"
       Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
       ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
           "
   ", SubAddress:="", ScreenTip:="", TextToDisplay:= _
           "测试"
   End Sub

3.  写Delphi代码

   界面

   按钮事件

4. procedure TForm1.Button1Click(Sender: TObject);
   var
     WordApp, WordDoc: Variant;
   begin
     try
       begin
         WordApp := CreateOleObject(’Word.Application’);
         WordDoc := WordApp.Documents.Open(’c:\test.docx’);
         WordApp.Selection.EndKey($00000006); //
         WordApp.Selection.TypeParagraph;
         WordApp.Selection.TypeText(Edit1.Text);
         WordApp.Selection.MoveLeft(1, Length(edit1.Text), 1);
         WordApp.ActiveDocument.Hyperlinks.Add(WordApp.Selection.Range,
           Edit2.Text, ’’, ’’, Edit1.Text);
         WordDoc.saveas(’c:\test.docx’);
       end
     finally
       begin
         WordDoc.close;
         WordApp.quit;
       end
     end;
   end;

创建Word应用程序对象(WordApp)和Word文档对象(WordDoc).

说明：宏中的对象都是WordApp。

VBA宏中的代码Selection.EndKey Unit:=wdStory转为Delphi代码为WordApp.Selection.EndKey(wdStory);

这些VBA中wdStory等参数值，可以直接baidu查询就可以，直接写具体的值就可以了。

其中，直接将wdStory转为具体的值就可以了。百度得出wdStory=6。

***隐藏网址***

***隐藏网址***

***隐藏网址***

***隐藏网址***

***隐藏网址***

代码测试效果

另外，百度空间里面有篇文档，你可以看下。

***隐藏网址***

上面的方法已测试过，可以使用的，如果还有什么问题，可以继续追问。

另外还有我的代码，可以参考下。

安装Delphi的一个插件，提示File not found: ’iOPCCommonLibrary_TLB.dcu’

首先，在磁盘中搜索
iOPCCommonLibrary_TLB
，如果有pas或是dcu，直接定位到文件所在目录，然后将这个路径添加到delphi的库搜索路径里。
如果在你的电脑磁盘中都没有找到这个文件，那么说明你下载的控件包不完整，建议重新下载。
从文件名猜测，TLB这种文件，应该是从某个ActiveX之类的类型库中导出来的（像WORD之类的就需要这么弄）。

Delphi word怎么删除最后页

将鼠标放在前一页的最后,用DEL健删除。如果空白面是最后一页,且鼠标在第一行，可选“格式”-“段落”，将这一行的行距设为固定值1磅，该空白页将自动消失。
先显示分页符，即在Word的左下角调整到“普通视图”状态，这时分页符就出现了，直接删除即可。
选择“替换”点“高级”，在里面选择“使用通配符”以后下面有一个“特殊字符”字的开头，按住shift的时候再点下鼠标，选择空白页,再删除；
如果是插入分页符造成的空白页，少的话，删除分页符就行，就是到空白页顶部按退格键。（普通视图下或打开标记会显示分页符） ；
如果分页符很多，可以/替换/高级/特殊字符/人工分页符/全部替换就可以了。
如果是你画了一个表格，占了一整页，造成最后一个回车在第二页删不了，可以将表格缩小一点或者将上面或者下面页边距设小一点，在文件/页面设置中，上下的数字改小一点。
将鼠标放在前一页的最后,用DEL健删除。如果空白面是最后一页,且鼠标在第一行，可选“格式”-“段落”，将这一行的行距设为固定值1磅，该空白页将自动消失。
后面有空白是上一页内容过多导致的，一般可以把鼠标点到空白面上，然后按回退键，退有内容的那一面，空白的就没有了，如果还存在，可以稍调整一下上一页内容，少一行就可以了 。
word 预览有空白页 页面视图时没有。空白页有页码，造成我打印的文档页码不连续。怎样删除：可能是你的文档中有过宽，过长的对象（如表格，图片，公式），导致与打印纸张的规格不一致，调整附近的对象（如表格，图片，公式）大小看看。也可能与分栏和一些可个和回车符号有关。
ctrl+enter即可去除空白页
插入表格后的Word删除空白页
在Word2003中插入一张表格并使该表格充满当前页时，会在当前页后面产生一个空白页。尽管在产生的空白页中只含有一个段落标记，但是无法将其删除，从而无法去掉该Word空白页。不过用户可以按以下步骤删除Word空白页：
第1步，在Word2003窗口选中空白页中的段落标记，然后在Word菜单栏依次单击“”→“全选”菜单命令。
第2步，在Word菜单栏依次单击“格式”→“段落”菜单命令，打开“段落”对话框。在“行距”下拉菜单中选中“固定值”，并将“设置值”调整为“1”。设置完毕单击“确定”按钮

如何将Delphi报表的内容导出到WORD中（报表

你没有说具体报表，只能泛泛而谈。问得不明确，想认真回答也做不到。
一般而言，报表工具都有导出功能，可以导出为常见的文档格式，有些直接支持xls和word之类，有些可以导出为HTML或RTF之类，这是商品化报表工具的必备功能。
你可以直接将之导出为通用文档格式，然后在Delphi中调用word的读取功能，word的识别功能强大，一般就搞定了。
以fastreport为例，它不直接支持word，但支持excel，所以可以先导出为excel，再用excel另存为HTML，再用word打开HTML即可。
// 导出到 Excel 文档
frxXLSExport1.ShowDialog := false;
frxXLSExport1.FileName:= ’Filename1.xls’;
frxReport1.PrepareReport(true);
frxReport1.Export(frxXLSExport1);
至于delphi中直接操作excel和word的方法，网上有不少例子，自己找一下。

请问delphi中如何打开FTP、WORD格式的文件呀

《p》FTP，WORD格式？《/p》《p》不知道你在说什么啊，打开FTP上面的文件就先下载再打开啊《/p》《p》WORD格式的，直接调用WORD启动《/p》