我用VB做毕业设计,要将VB做的一些东西写入到word中,并能保存,也就是能生成计算书。
谁有完整代码啊
谁有完整代码啊
解决方案 »
- 请教一个数据库添加记录的问题?
- 参数传递
- Windows INI 文件[处理中文] 问题,请教高手!
- VB能不能模拟执行汇编指令?
- 这段程序串口接口程序,为啥串口返回的数据为空,而我用串口调试程序能收到串口返回数据
- 关于在Win2000环境下使用VB的Winsock控件编写UDP协议程序时主机端不存在时总报错的问题
- 想把datagrid中的显示的多条记录清空掉,应该怎么做?
- 急!急!,在vb中,创建临时表!
- 如果一个ocx已经实现了对自身某个事件的响应
- 他只会用几个简单的控件,连API是什么都不懂, 就说精通VB了我真是不知怎样说他!
- 问一个Imagelist中加载图片的问题
- 如何打印picturebox控件加载的JPG图片
比如RichTextBox,然后将文件直接存为(.doc)格式.
这个要简单一些.
你试试看吧.
Public MyApp As Word.Application
Public MyDocs As Word.Documents
Public CurDoc As Word.Document
Set MyApp = New Word.Application
Set MyDocs = MyApp.Documents
Dim DocFileName As String
Dim partName As String
DocFileName = "缴款通知单"
partName = App.Path & "\format\" & DocFileName
MyDocs.Open partName & ".doc"
Set CurDoc = MyDocs.Item(1)
CurDoc.SaveAs App.Path & "\template\" & SelPalID & "缴费单.doc"Private Sub replacetext(findtext As String, replacewith As String)
'替换字符串用
CurDoc.Range.Find.Execute findtext, False, True, False, False, False, False, wdFindContinue, False, replacewith, True, True, True, True
CurDoc.Range.Find.Replacement.ClearFormatting
End Sub研究一下就明白了,WORD的复杂功能用WORD自身录制一个宏看看就明白了,再把宏的代码拿到VB里改改就行了,代码放入VB时每行代码前要加WORD对象的变量名.最后请给分,谢谢
建议你用WORD录一个宏看看,会有帮助的.