本站首页    管理页面    写新日志    退出


«August 2025»
12
3456789
10111213141516
17181920212223
24252627282930
31


公告
================

注会练习软件
http://www.cpasoft.com.cn
我的注会软件官网

http://blog.163.com/abc7105@126/

 

 


哈哈,热爱快“过气”的DELPHI


我的分类(专题)

日志更新

最新评论

留言板

链接

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 


阅读全文(1556) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]无限制版软件注会考试练习软件下载
软件技术

吕向阳 发表于 2011/2/17 17:52:52

无限制版软件注会考试练习软件下载 http://www.whzysoft.cn/download/注会考试练习系统安装.rar 不需注册码,不限制,如果你有word 版的题库请发给作者加入其中 lxy7105#126.com 为交流特申请一个群用于考友交流 qq群 11137518


阅读全文(1699) | 回复(0) | 编辑 | 精华 | 删除
 


[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;
    &

阅读全文(1601) | 回复(0) | 编辑 | 精华 | 删除
 


[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

阅读全文(1375) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]改变word域中的数字的格式
软件技术

吕向阳 发表于 2010/11/15 14:47:16

我做一个函证的模板时,链接的是一个excel的表格,里面的小数到word中的时候,会出现小数位后非常多的位数,而不是按习惯取小数点后两位,并按千分位进行显示

此时我在word中需按格式显示的域加入相应的格式符后显示正常了,

按shift+f9显示当前域的代码,为{MERGEFIELD 资产类金额_ } ,修改后的代码是MERGEFIELD 资产类金额_  \# "#,###.00"


阅读全文(3887) | 回复(1) | 编辑 | 精华 | 删除
 


[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, 

阅读全文(1106) | 回复(0) | 编辑 | 精华 | 删除
 


« 1 2 3 4 5 6 7 8 9 10 »



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.297 second(s), page refreshed 144754823 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号