Blog信息 |
blog名称:注册会计师(注会)练习软件 日志总数:398 评论数量:116 留言数量:27 访问次数:3266145 建立时间:2005年6月6日 |

| |
[delpih编程]delphi 对word编程的几个小体会 软件技术
吕向阳 发表于 2011/4/10 21:24:02 |
目前正在用delphi写一款excel表格转word文档的小软件,在写的过程中摸索到一些小技巧
1)、 adoc.application.Selection.Borders.item(wdBorderVertical).LineStyle := wdLineStyleDot;
比如原来的对象集Borders,就不能用borders(wdBorderVertical)表示其中的子对象,而应用Borders.item(wdBorderVertical)来表示。在delphi中的这个操作与vba中的是有明显区别的,与此类似的,还有如下 wordapp.ActiveDocument.Styles.item('自定标题').Font.Bold := True;
wordapp.ListGalleries.item(wdNumberGallery).ListTemplates.item(1).ListLevels.item(1).NumberFormat |
|
[delpih编程]无限制版软件注会考试练习软件下载 软件技术
吕向阳 发表于 2011/2/17 17:52:52 |
无限制版软件注会考试练习软件下载
http://www.whzysoft.cn/download/注会考试练习系统安装.rar
不需注册码,不限制,如果你有word 版的题库请发给作者加入其中
lxy7105#126.com
为交流特申请一个群用于考友交流 qq群 11137518 |
|
[delpih编程]delphi 取得xls文件中单个表的顺序号 软件技术
吕向阳 发表于 2010/11/19 14:09:13 |
function mb.opensheet(sheetname: string): integer; var i: integer; begin result := -1; for i := 1 to xlsapp.worksheets.count do begin if uppercase(trim(xlsapp.worksheets[i].name)) = uppercase(trim(sheetname)) then begin result := i; & |
|
[delpih编程]导入Excel表时,提示"找不到可安装的ISAM"问题的解决方法 软件技术
吕向阳 发表于 2010/11/16 13:28:52 |
问:安装过了Microsoft Office 2003 和2007,都很好用。就是有时,一些软件需要导入EXCEL的文件时,会提示出现:
尝试连接Microsoft Office Excel数据失败!
【详细情况】
找不到可安装的ISAM
出现以上的情况,应该怎么解决呢?
答:只需注册 Excel ISAM即可
在“运行”对话框中输入回车即可:
Regsvr32 c:\WINDOWS\system32\msexcl40.dll |
|
[delpih编程]改变word域中的数字的格式 软件技术
吕向阳 发表于 2010/11/15 14:47:16 |
我做一个函证的模板时,链接的是一个excel的表格,里面的小数到word中的时候,会出现小数位后非常多的位数,而不是按习惯取小数点后两位,并按千分位进行显示
此时我在word中需按格式显示的域加入相应的格式符后显示正常了,
按shift+f9显示当前域的代码,为{MERGEFIELD 资产类金额_ } ,修改后的代码是MERGEFIELD 资产类金额_ \# "#,###.00"
|
|
[delpih编程]vba中文件名常用函数 软件技术
吕向阳 发表于 2010/11/7 20:19:19 |
Function GetFileName(strFileName As Variant) As String '得到无路径的文件名,但含扩展名 Dim i As Integer For i = Len(strFileName) To 1 Step -1 If Mid$(strFileName, i, 1) = "\" Then GetFileName = Mid$(strFileName, |
|
|