整个冬天将窜入我的身 怨毒,
沿着看不见的曲线飘下来,
一帮骗子和娼妓演员,
在这个我度过空虚日子的黑暗房间里,
耐不住强力的突破,
朝霞又一的参透的风的絮语。哈哈
这里安装没有VB ,不过你试一试下面的代码
Dim wdSel As Object
Set wdSel = objWordPSelection
wdSelFindClearFormatting
wdSelFindReplacementClearFormatting
With wdSelFind
Text = "aa" '要查找的内容
ReplacementText = "bb" '要替换的内容
Forward = True
Wrap = wdFindContinue
Format = False
MatchCase = False
MatchWholeWord = False
MatchByte = True
MatchWildcards = False
MatchSoundsLike = False
MatchAllWordForms = False
End With
wdSelFindExecute , , , , , , , , , , wdReplaceAll
'加一个Command1, OLE1
Private Sub Command1_Click()
FileName = ":\xxxdoc"
'调用Word文档。
OLE1SourceDoc = FileName
OLE1Action = 1
OLE1Action = 7
End Sub
这样直接打开word 你在里面进行 *** 作就可以了!~
不是用的时候,worddocumentclose//close the workbook
set word =nothing //clear the object
这个可以在word的VBA里做啊,就是做个宏,当然最好是用excel的VBE做,因为毕竟是excel才是真正的电子表格软件,而且编写宏比较方便的。另外,如果你一定要在VB里做也可以,打开VB,然后“工程”-“引用”,选择“microsoft word。。”这个选项,版本不一样就不一样。做程程序的时候,要先定义,如:
dim wordapp as new wordapplication
dim worddoc as new worddocument
其中wordapp,worddoc由你自己定,只要好记就行。后面的每次调用都要用到的,这和cad,excel做二次开发都一样。
首先你要在VB的“工程”->“引用”中引用“MicrosoftWord90ObjectLiaryPrivateSubCommand1_Click()'打开指定的Word文件DimwdAppAsWordApplicationDimaDocAsDocumentSetwdApp=NewWordApplicationSetaDoc=wdAppDocumentsOpen(FileName:="你要打开的Word文件路径及文件名")wdAppVisible=True'设置Word对象可见EndSub不过你要关闭word文件时要释放对象aDocClose'关闭文件wdAppQuit'退出Word程序SetaDoc=Nothing'释放对象SetwdApp=Nothing你可以再放一个按钮,将上面代码放进去,用这个按钮来关闭Word并释放对象。如果你直接在Word程序中关闭文件的话,就将word对象定义在一个类模块中PublicWithEventswdAppAsWordApplication,再在wdApp_Quit()事件中加入释放对象的代码。如果关闭word文件而没有释放对象的话,你只有重新运行刚才用来打开word文件的程序才能再次打开word文件。
那么你试一下下面的代码,是不是你所说的???
Private Sub Form_Load()
Dim wp As New WordApplication
Dim wd As New WordDocument
wpVisible = True
Set wd = wpDocumentsOpen("c:\22075847937doc")
Dim neirong As String
neirong = wdContentText
MsgBox "该Word文件的内容为:" & vbNewLine & neirong
End Sub
你说的只是个打开WORD文件,那么不就是个执行文件 *** 作吗?调用shellexecute api不就行了吗!郁闷!
以上就是关于通过vb编一个EXE程序调用word文档全部的内容,包括:通过vb编一个EXE程序调用word文档、VB 如何调用Word的宏代码、设计一个程序,用VB打开WORD文档,并对其进行修改保存等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)