1. word里实现vb程序设计
点击(三角板,直尺,铅笔)图案的
按钮进入设计模式。
首先拉出来两个文本框,
然后双击任意的一个,输入下面的
代码:
Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
TextBox1.Text = TextBox2.Text
End Sub
最后再按一下那个按钮,退出设计模式,
就OK了。
程序中注意“安全性”的设置。
2. vb操作word
引用Word对象、然后在VB端生成Word的Application对象。
Application对象可以显示或隐藏都可以。Application下的Documents对象可操作Word文档。
application.Documents.Open 可以打开文档。生成Application后就与VBA中的Word.application对象一样使用就OK了。
如果想了解Word的Application对象或Document对象或Range等对象你可以打开Word、然后在Word界面按下ALT+F11然后就可以进入VBA编辑器、可以看作是VB的一个子集。然后在左边工程栏里加模块、加窗体。
写代码的时候按F1就可以得到帮助。
3. 当word文档已经打开时,如何用VB编程,向已经打开的word添加文字
首先你要在VB的“工程”->“引用”中引用“MicrosoftWord9.0ObjectLiaryPrivateSubCommand1_Click()'打开指定的Word文件DimwdAppAsWord.ApplicationDimaDocAsDocumentSetwdApp=NewWord.ApplicationSetaDoc=wdApp.Documents.Open(FileName:="你要打开的Word文件路径及文件名")wdApp.Visible=True'设置Word对象可见EndSub不过你要关闭word文件时要释放对象aDoc.Close'关闭文件wdApp.Quit'退出Word程序SetaDoc=Nothing'释放对象SetwdApp=Nothing你可以再放一个按钮,将上面代码放进去,用这个按钮来关闭Word并释放对象。
如果你直接在Word程序中关闭文件的话,就将word对象定义在一个类模块中PublicWithEventswdAppAsWord.Application,再在wdApp_Quit()事件中加入释放对象的代码。如果关闭word文件而没有释放对象的话,你只有重新运行刚才用来打开word文件的程序才能再次打开word文件。
4. 如何用VB编程给WORD练习题评分
说代码当然麻烦,说说思路吧在VB里面,工程-引用,把那个Microsoft Word 11.0 Object Library(我的是Office 2003,所以是11,你的视版本而定),然后Dim a As Word.ApplicationSet a = New Word.Application建立一个Word.Application对象,用它打开文档,在程序里面看对不对,Word的帮助里面对整个Word.Application对象有详细的描述,足可以满足要求。
5. VB如何读入Word的内容
Set oApp = CreateObject("Word。
Application") oApp。Visible = False Set oDoc = oApp。
Documents。Open(strFile)'strFile为文件路径 '获得最后一段的内容 Dim length As Long '整个文档的长度 Dim i As Long length = oDoc。
Content。StoryLength Content = oDoc。
Content。Text Dim s As String For i = 1 To length If Mid$(Content, i, 1) = Chr$(13) Then s = s + vbCrLf Else s = s + Mid$(Content, i, 1) End If Next i oDoc。
Close True oApp。Quit False txtMx = s。
6. word和excel vba综合编程
在Excel下编程,使用下列语句打开Word文档
Dim Wrd
Set Wrd = CreateObject("Word.Application")
Wrd.documents.Open Filename:=DOCFile, ReadOnly:=True '以只读方式打开Word文档
Wrd.Visible = True '让其可见(只读状态打开时,默认不可见)
通过类似于下面的语句,可以访问Word文档中的表格数据(注意:返回的数据去掉最后两个字符(回车和表格符))
Wrd.documents(DOCFile).Tables(4).Cell(9, 3).Range.Text 'Word文档中第4个表格的第9行第3列的文本。
至于文本,要通过设定选择集(Selection,可通过查找题目,然后改变选择区域的大小(Collapse方法))来复制和粘贴数据(查看Word的VB帮助)
得到Word文档中的数据后,往Excel文档对应的单元格赋值即可。
实际编写起来工作量较大,不超过几千份问卷,还是手工做吧!(初学者做完这个程序,估计要3、5天)
详细可联系:591zheteng@sina.com
7. 怎么用vb编程操作word绘制表格的边框
怎么用vb编程操作word绘制表格的边框操作步骤:
1、单击开始----查找按钮(或按Ctrl + F组合键);
2、弹出查找对话框,在查找内容处输入需要查找的数字,在以下项中查找处选择主文档,单击关闭按钮;
3、此时文档中所的查找的数字都被选中。
转载请注明出处51数据库 » vb教程word原码编程