VB6.0按钮自动创建WORD

~ 控件：Command1.代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Command1_Click()
Dim doc As Object
Set doc = CreateObject("Word.Application")
doc.Documents.Add.Content.InsertAfter ("a" & vbCrLf & "b")
doc.Documents(1).SaveAs App.Path & "\aa.doc"
doc.Quit
Set doc = Nothing
MsgBox "OK"
End
End Sub

使用VB6.0给word做插件可以实现的不仅仅是上述这些，还可以修改word程序的右键菜单，调用word中众多对象的各种属性、方法，响应word提供的事件等，同时兼有

我建议先用代码创建一个txt文件，在对其进行改后缀名，我想起其更简便

f

---

河口区17655026930： VB6.0按钮自动创建WORD - ？
福齿美能： 控件:Command1.代码如下. =========== Option ExplicitPrivate Sub Command1_Click() Dim doc As Object Set doc = CreateObject(＂Word.Application＂) doc.Documents.Add.Content.InsertAfter (＂a＂ & vbCrLf & ＂b＂) doc.Documents(1).SaveAs App.Path & ＂\aa.doc＂ doc.Quit Set doc = Nothing MsgBox ＂OK＂ End End Sub

河口区17655026930： VB如何实现一按按钮就生成一个TEXTBOX？
福齿美能： '先在窗体添加两个按钮:Command1、Command2'再添加一个文本框:Text1,然后在属性窗口将 Text1 的 Index 属性设为 0Private Sub Command1_Click()'单击一次添加一个文本框 Dim I As Long I = Text1.Count Load Text1(I) Text1(I).Visible ...

河口区17655026930： 如何用VB6.0按钮控件打开我的文档?代码越简单越好,请高手门指点一下,谢谢 - ？
福齿美能： Private Sub Command1_Click() Shell ＂explorer.exe 路径＂ End Sub

河口区17655026930： 用VB操作office自动生成word报告怎么样 - ？
福齿美能： 如下的方法请参考:1. 首先打开VB软件,在新建工程对话框中选择“标准exe”,点击打开按钮. 2. 进入工程》》引用菜单. 3. 在引用对话框中找到MicroSoft Word 11.0 Object Library然后勾选,当然我这里是MicroSoft Word 14.0 Object Library,都无所谓. 4. 在窗口中添加一个按钮,将文字改为“生成word”. 5. 双击生成“生成word”按钮,进入代码编辑区,输入下列代码. 6. 按F8,运行程序.点击“生成word”按钮,是不是跳出word了 7. 先关掉刚才生成的word,然后再输入以下代码,然后运行程序.

河口区17655026930： VB怎么实现单击一个键后自己显示文字? - ？
福齿美能： 一、在窗体上添加一个按钮和一个定时器控件 Dim a(1 To 3) Dim s As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() a(1) = ＂你＂: a(2) = ＂好＂: a(3) = ＂吗＂ Timer1.Interval = 3000 '三秒 ...

河口区17655026930： VB 生成word文档 - ？
福齿美能： Dim ap As Word.Application, doc As DocumentPrivate Sub Form_Load() '这个过程不必做修改,是建立一个新的Word文档 Set ap = CreateObject(＂word.application＂) ap.Visible = False Set doc = ap.Documents.Add End SubPrivate Sub ...

河口区17655026930： word中的域和宏怎么用??怎么创建???还有vb怎么编写??谢谢,希望见到高手!!？
福齿美能： 问题太多,只介绍一个,VBA 简单写法 如下图在打开VISUAL BASIC 工具栏后,进入设计模式,按照上图,做三个文本框,一个按钮,给按钮写代码 退出设计模式,在文本框一、二中输入数值,点按钮,第三个文本框会出现结果.

河口区17655026930： 请高手用VB6.0给设计一个能直接打开已知密码的word文档的程序! 要求点击按钮就能打已知密码的word文档. - ？
福齿美能： dim ap as new word.application ap.documents.Open(FileName:=＂文件路径和名称＂, passworddocument:=＂密码＂) 注意括号里面的冒号等于 或者写 dim ap as new word.application ap.documents.Open(＂文件路径和名称＂,,,,＂密码＂) 写4个西文半角逗号就可以了 另外工程必须引用word的Object lib

河口区17655026930： VB创建word多次,初始化页边距提示服务器不存在或不能使用 - ？
福齿美能： CentimetersToPoints(2.1) 第2次的时候没有默认的 WORD给你了 你在前面加wrd. 就行了

河口区17655026930： VB6.0 想写创建word文档之类的 - ？
福齿美能： 先把Word对象库引用进来,在菜单 “工程\引用” 我电脑上是 Microsoft Word 12.0 Object Library ,版本有所不同而已.