我想让程序执行一段事先在其他文件中定义的内容.
问题:
我要打印一段程序,读取文本文件中的内容来打印,但不知道打印位置能否通过相应的宏替换来实现.即先不在程序中定义死,通过其他的方式来定义实现.
vb中有宏替换的功能吗

解决方案 »

  1.   

    哈哈,这个问题我自己解决了,我这个打开别人的文件并且加入了宏,实现痕迹保留,注意这个技术不许用来开发宏病毒!!
    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