13,825
社区成员
发帖
与我相关
我的任务
分享请问哪里有word报表控件下载？
我现在有一个项目，要求能在word文件的指定位置（比如标题2.3.1下面）显示图片或文字，有现成的报表控件吗？
...全文
请发表友善的回复…
发表回复
csjinjian 2004-07-08
- 打赏
- 举报
我再up一下
csjinjian 2004-07-08
- 打赏
- 举报
那用什么比较快？
robbyzi 2004-07-07
- 打赏
- 举报
需要控件吗？？？
用OLE就行了。
用OLE就行了。
ktcserver 2004-07-07
- 打赏
- 举报
去我那里看看
blog.csdn.net/ktcserver
blog.csdn.net/ktcserver
MEFULEU 2004-07-07
- 打赏
- 举报
好像要自己写吧；
raid79 2004-07-07
- 打赏
- 举报
up
IT动力 2004-07-07
- 打赏
- 举报
OLE的速度很慢。
csjinjian 2004-07-07
- 打赏
- 举报
录制出来的宏是这样的，请高手帮忙转一下ole的操作方法，或者解释一下。
主要是前两行，这好像是跳到某个书签的。
Selection.GoTo What:=wdGoToBookmark, Name:="rxl"
Selection.GoTo What:=wdGoToBookmark, Name:="rxq"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
主要是前两行，这好像是跳到某个书签的。
Selection.GoTo What:=wdGoToBookmark, Name:="rxl"
Selection.GoTo What:=wdGoToBookmark, Name:="rxq"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
csjinjian 2004-07-07
- 打赏
- 举报
好像很麻烦，我尝试用录制宏的方法了解vba代码，但录制的时候好像鼠标不能用。
zhiyd 2004-07-07
- 打赏
- 举报
实用OLE控件就行控制开发，需要了解VBA的基本知识
赞同
赞同
