本文目录
- delphi 操作word，怎样在word中插入超级连接
- 安装Delphi的一个插件，提示File not found: ’iOPCCommonLibrary_TLB.dcu’
- Delphi word怎么删除最后页
- 请问delphi中如何打开FTP、WORD格式的文件呀
- 如何将Delphi报表的内容导出到WORD中（报表
delphi 操作word，怎样在word中插入超级连接
你好，其实Delphi操作Word的方法很多，通过录制Word宏操作是一种非常方便的方法。下面来具体解说一下。
【软件信息】
Delphi6，Word2010
【目标】
通过Delphi在Word中添加超链接。
【步骤】
先录制一段Word中添加超链接的宏，宏代码如下。
***隐藏网址***
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
写Delphi代码
界面
按钮事件
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中如何打开FTP、WORD格式的文件呀
《p》FTP，WORD格式？《/p》《p》不知道你在说什么啊，打开FTP上面的文件就先下载再打开啊《/p》《p》WORD格式的，直接调用WORD启动《/p》
如何将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的方法，网上有不少例子，自己找一下。
