ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4265|回复: 12

[讨论] 请教各位一个自认为特别难的问题的解决方案

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-1-23 16:53 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
计划做一个项目,
希望各位高手指点一二,
比如1、告诉我应该看哪些书籍,具备完成项目的能力;
    2、或者告诉我做这个项目,需要哪些技能;
    3、也希望高手指点项目想法中的思路是否可行;
    4、当然,也欢迎高手帮助我共同完成这个项目。
项目思路:
    1、题目:检测报告自动生成系统;
    2、功能:将录入的客户信息自动排版,将引入的文本数据自动录入设计好的表格,将测试照片自动排版,通过勾选使用仪器、自动生成仪器使用清单。
    3、我的思路:
         (1)程序运行,有一个小界面,有四个方框,可以选客户信息录入、数据导入、照片调入、使用仪器选择。
          (2)选择客户信息录入方框,可以录入客户信息,如果之前录入过的信息,会在列表中智能显示;
           (3)选择数据录入,可以将文本数据导入到相应的数据表格中;
            (4)选择照片调入,可以将测试照片导入,并根据页面设置调整照片大小;
              (5)选择仪器选择,会出现仪器清单,可以勾选使用仪器,并生成列表;
                (6)该报告大概就包括此4页内容,相关信息录入之后,会自动生成word文档,word文档的模板形式提前已经确定。
     请教各位高手,这个工作能否用excel或者word完成吗,
     是不是我把问题想的太简单了,
     毕竟各位用excel和word都太厉害了,还能设计出游戏来,
     所以我还是在这里请教一下大家。
     希望大家给一些建议,谢谢!

TA的精华主题

TA的得分主题

发表于 2010-1-23 17:32 | 显示全部楼层
楼主最好有原始数据作为附件,并加上一个效果示例。应该可以做到。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-24 19:22 | 显示全部楼层

谢谢masterexcel 的支持!

多谢高级会员的关注,
我稍后会准备一个效果实例,
还请各位高手多多给予指点!

TA的精华主题

TA的得分主题

发表于 2010-1-25 14:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 Super菜鸟 于 2010-1-23 16:53 发表
计划做一个项目,
希望各位高手指点一二,
比如1、告诉我应该看哪些书籍,具备完成项目的能力;
    2、或者告诉我做这个项目,需要哪些技能;
    3、也希望高手指点项目想法中的思路是否可行;
    4、当然, ...

你可以找我。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-25 15:51 | 显示全部楼层

上传原始数据作为附件

希望通过一个界面,将文档中的红色文字信息录入,
然后,能够自动生成附件中的报告格式。
有关思路请看一楼,
请高手指点!

报告模版.rar

17.38 KB, 下载次数: 33

报告模板

TA的精华主题

TA的得分主题

发表于 2010-1-25 21:37 | 显示全部楼层

供您参考

完全可以实现,参考这篇文章
向导制作.rar (271.53 KB, 下载次数: 74)

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-26 13:44 | 显示全部楼层

谢谢daocao2003的支持

文档收到,我需要认真学习了。
另外请教有没有个小程序的例子发给我,供学习用?

[ 本帖最后由 守柔 于 2010-1-26 16:00 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-1-26 19:52 | 显示全部楼层

供您参考

以前做的一个小例子,供您参考 auto论文模板.rar (137.58 KB, 下载次数: 67)

TA的精华主题

TA的得分主题

发表于 2010-1-31 09:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
深入学习这个例子.
<以前做的一个小例子,供您参考  auto论文模板.rar (137.58 KB)  auto论文模板.rar (137.58 KB)>


死活没搞懂. 这个示例程序.
示例程序的模板中运行下面程序
Sub ls()
  Dim rr As Paragraph
  Debug.Print ThisDocument.Paragraphs.Count--------结果为1
  Debug.Print ThisDocument.Tables.Count        --------结果为0
  For Each rr In ThisDocument.Paragraphs
    Debug.Print TypeName(rr), rr.Range
  Next
  For Each tt In ThisDocument.Tables
    Debug.Print tt.Range
  Next tt
End Sub

  Debug.Print ThisDocument.Paragraphs.Count--------结果为1
  Debug.Print ThisDocument.Tables.Count        --------结果为0
按理讲,这个模板没有内容.为什么运行后,所有内容全部出现??

[ 本帖最后由 ningyong58 于 2010-1-31 11:06 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-1-31 10:15 | 显示全部楼层
原帖由 daocao2003 于 2010-1-25 21:37 发表
完全可以实现,参考这篇文章
656656


高手,这个模板的内容到底藏到哪里去了???
打开程序,模板内容什么都没有
运行下面语句后.模板的什么内容都出来了??高手,好好学习吧.

'获取当前的模板(即向导程序)
Set objWizTemplate = ActiveDocument.AttachedTemplate
Application.DisplayAutoCompleteTips = True
'插入前述步骤中创建的自动图文集
ActiveDocument.AttachedTemplate.AutoTextEntries("lwmbnew").Insert Selection.Range, True
请哪位高手能解答.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-2 21:38 , Processed in 0.038521 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表