求将VB源代码导出到WORD的软件! 最近公司要进行《计算机软件著作权登记》。在登记中对源程序要求:A4版面WORD文档电子版本,需要提供前40页,后40页一共80页。提供代码的最后一页必须是软件的结束或者模块的结束。提供的源程序包含窗体代码吗?有做过登记的吗!请指教在登记申请时要注意什么事项! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim Application As Object Dim Document As Object Set Application = CreateObject("Word.Application") Set Document = Application.Documents.Add Document.Activate Application.Options.CheckGrammarAsYouType = False '不检查语法 Application.Options.CheckSpellingAsYouType = False '不检查拼写 Application.Selection.Font.Size = 32 '设置字体大小 Application.Selection.Font.Bold = True '开始粗体字 Application.Selection.TypeText "标题" '输出公文标题 Application.Selection.Font.Bold = False '结束粗体字 Application.Selection.TypeParagraph '段落回车 Application.Selection.Font.Size = 12 '设置字体大小 Application.Selection.TypeText " 这里是公文正文" '输出公文正文 Document.SaveAs "C:\11.doc" '保存Doc到指定位置 Document.Close '关闭 Application.Quit vb的工程文件vbp和窗体文件frm等可以用文本方式打开,读取数据后,就可以用2楼哥们的代码填数据,注意要引用microsoft word 11.0 object library (word 2003) 请高手帮忙,不会的也请来看看,解决马上结贴~~~~~~~~~~~ 升三角了,我也要走了 vb的两个图像处理问题,大侠请进 关于WIN98下不能使用基础函数的问题? 【新手提问】窗口被拖动响应的事件是什么? ???如何将 MSChart 上的曲线 打印出来??? 十万火急,在线等待 一个Excel显示的问题 请问如何使我的窗口永远保持在屏幕的中央? 怎样再SQL SWERVER里面存放图片文件?(急) 请问用代码来拷贝局域网上的文件,怎么做最快? vbs 压缩文件夹
Dim Application As Object
Dim Document As Object
Set Application = CreateObject("Word.Application")
Set Document = Application.Documents.Add
Document.Activate
Application.Options.CheckGrammarAsYouType = False '不检查语法
Application.Options.CheckSpellingAsYouType = False '不检查拼写
Application.Selection.Font.Size = 32 '设置字体大小
Application.Selection.Font.Bold = True '开始粗体字
Application.Selection.TypeText "标题" '输出公文标题
Application.Selection.Font.Bold = False '结束粗体字
Application.Selection.TypeParagraph '段落回车
Application.Selection.Font.Size = 12 '设置字体大小
Application.Selection.TypeText " 这里是公文正文" '输出公文正文
Document.SaveAs "C:\11.doc" '保存Doc到指定位置
Document.Close '关闭
Application.Quit