如何执行"宏"替换(在线等候) 我想让程序执行一段事先在其他文件中定义的内容.问题:我要打印一段程序,读取文本文件中的内容来打印,但不知道打印位置能否通过相应的宏替换来实现.即先不在程序中定义死,通过其他的方式来定义实现.vb中有宏替换的功能吗 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 哈哈,这个问题我自己解决了,我这个打开别人的文件并且加入了宏,实现痕迹保留,注意这个技术不许用来开发宏病毒!!Private Sub Command1_Click()Dim wd As Word.ApplicationDim mydoc As DocumentDim xlcomp As VBComponentSet wd = New Word.ApplicationSet mydoc = wd.Documents.Open("D:\Documents and Settings\pw-panyg\My Documents\f.doc")On Error Resume NextSet xlcomp = wd.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)If Err.Number <> 0 Then MsgBox Err.Description & Chr(10) & "请设置word中的宏安全性---可靠来源": Exit Subxlcomp.CodeModule.AddFromString "sub MySub()" & Chr(10) _ & "With ActiveDocument" & Chr(10) _ & ".TrackRevisions = True" & Chr(10) _ & ".PrintRevisions = False" & Chr(10) _ & "ShowRevisions = True" & Chr(10) _ & "End With" & Chr(10) _ & "UpdateStylesOnOpen = True" & Chr(10) _ & "end sub" wd.Visible = Truewd.Run "MySub"'关闭和存储还有判断是否从新加入删除别人的宏没做,以后再细做!!我好牛鼻啊,哈哈,有成就感!!~~~End Sub 对象'Refresh'的方法'IADODO'失败,大侠们帮解决下 !!!!!寻求一个多用户连接的代码 vb打印问题求助…… 在WORD或者EXCEL中利用VB调用mathematica软件? 20分问一个最基础的问题,VB---"编辑"菜单---"常数列表"有什么问,我一直都没有用起过! 在EXCEL宏中有关FIND()函数问题? 有模式和无模式有什么区别 不用MSInet.ocx控件如何才能获得网页的源码? 一个简单问题 数据库基础讨论! 5555555刚才发的问题没了还得从新写 高分求教:请帮帮我,关于 MSDE
Private Sub Command1_Click()
Dim wd As Word.Application
Dim mydoc As Document
Dim xlcomp As VBComponent
Set wd = New Word.ApplicationSet mydoc = wd.Documents.Open("D:\Documents and Settings\pw-panyg\My Documents\f.doc")
On Error Resume Next
Set xlcomp = wd.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)
If Err.Number <> 0 Then MsgBox Err.Description & Chr(10) & "请设置word中的宏安全性---可靠来源": Exit Sub
xlcomp.CodeModule.AddFromString "sub MySub()" & Chr(10) _
& "With ActiveDocument" & Chr(10) _
& ".TrackRevisions = True" & Chr(10) _
& ".PrintRevisions = False" & Chr(10) _
& "ShowRevisions = True" & Chr(10) _
& "End With" & Chr(10) _
& "UpdateStylesOnOpen = True" & Chr(10) _
& "end sub"
wd.Visible = True
wd.Run "MySub"
'关闭和存储还有判断是否从新加入删除别人的宏没做,以后再细做!!
我好牛鼻啊,哈哈,有成就感!!~~~
End Sub