现在我想把一个EXCEL文件的的内容读取出写入到一个WORD文档中,现有以下几个问题:1.如何把EXCEL文件中某一单元格的内容写入到WORD文档中且下划线不丢失?
注意:EXCEL文档中可能有某个单元格不是全部字符都有下划线,可能有一部分字符有下划线。2.如何读取EXCEL中某一单元格的超级链接的图片文件路径及文件名?3.如何在WORD中插入指定长度和宽度的图片?
目前我用的是DELPHI 7中的Servers控件!如果有其它方法也可以!最好是效率高的方法!最好有源码!真心的希望高手指教,先谢谢各位了!
解决方案 »
- 有關FASTREPORT列印及匯出的中文問題!
- 请问哪有install sheild for delphi 打包工具的下载
- 大家怎么实现adotable的记录查询功能
- 多动态库共用单元问题,在线等
- WEB中的多文件上传的ActiveX哪有例子。
- 555分没有了,诚心问个问题,给DBGrid1.Columns[4].PickList赋值时为什么不分行显示?
- 有意者和我联系QQ:191486648,大家一起来讨论和学习DELPHI,软件开发方面。我在软年公司工作,有意者和我联系QQ:191486648
- 如何从Webbrowser中取得网页中所有链接所对应的文字(带源码)?
- 如何将oleVariant类型转换为整型,提供一些关于oleVariant类型的操作函数。
- DBGRID中当前记录如何以其他颜色显示?
- 问个更新语句,在线等
- DBGridEh中怎么添加新行?
ExcelApp.Range("F9").Select;
ExcelApp.Selection.Copy;
ExcelApp.Application.CutCopyMode := False;
WordApp.Selection.PasteExcelTable(False, False, False);2
ExcelApp.Range("C5").Select;
// 取文件件名再加上ExtractFileName
ExcelApp.Selection.Hyperlinks(1).Address;//傳回或設定目的地文件的位址3
//插入圖片
WordApp.Selection.InlineShapes.AddPicture(FileName:= "E:\My Documents\My Pictures\1.bmp", LinkToFile:=False, SaveWithDocument:=True);
// 設定圖片大小
WordApp.Selection.InlineShapes(1).Height = 178.6;
WordApp.Selection.InlineShapes(1).Width = 283.45;WordApp, ExcelApp均通過CreateOleObject得過.
你可以看看Office中VBA幫助
ExcelApp.Range("F9").Select;
ExcelApp.Selection.Copy;
ExcelApp.Application.CutCopyMode := False;
WordApp.Selection.PasteExcelTable(False, False, False);
会不会边EXCEL中的单元格也复制到了WORD中呀,我只要文字部分?2
ExcelApp.Range("C5").Select;
// 取文件件名再加上ExtractFileName
ExcelApp.Selection.Hyperlinks(1).Address;//傳回或設定目的地文件的位址只能得到文件名吧?
编译不过去!应该怎么写?
还有两个问题
1 如何设置WORD中某个图版的版式,比如环绕方式等?
2 如何添加一个自选图形,(如{)并设置它的开始行和结束行?谢谢,这两个问题解决就结贴了!
WordApp.ActiveDocument.InlineShapes.Item(PicCount).Width := 60;
WordApp.ActiveDocument.InlineShapes.Item(PicCount).Height := 60;
但有一个问题就是设置完后它的位置不能保持在原来插入的位置!
有人知道这个问题怎么解决吗?谢谢,大家共同学习!
-------
就是录制Excel的宏