1.vb获取Word书签的内容
VB中使用Label控件,如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "正在进行数据处理,请稍候。"
Dim bh1 As String
Dim xm1 As String
Dim zjls1, i, jb1, sj1, bj1, kg1, hx1, nf1, yf1, ts1 As Integer
Dim hxts1, kh1 As Double
Dim SQLString, Msg As String
SQLString = "SELECT bh As 编号,xm As 姓名,date8 As 日期 From kqsj WHERE month(date8) ='" & yf & "'"
Dim UserTable1 As DataTable = DBOperation.DBOperate(SQLString, Msg)
For i = 0 To UserTable1.Rows.Count
jb1 = jb1 + UserTable1.Rows(i).Item(4)
sj1 = sj1 + UserTable1.Rows(i).Item(5)
Next
Label1.Text = "数据处理完毕!"
End Sub
为什么运行时,Label1.Text 中只有一个空框,不显示 "正在进行数据处理,请稍候。"文字,而在程序运行快结束时Label1显示 "数据处理完毕!
2.VB中怎么插入Word文本
首先引用Microsoft Word 12.0 Object,具体版本根据你组的哪个office版本
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open(cDocName)
上面是定义和打开Word文件
赋值:
wDoc.Shapes(i).TextFrame.TextRange.Text = Trim(Text5.Text)
在那个打开的word文档中,预先加入多个文本框,上面是给其中某个文本框赋值
wDoc.SaveAs tmpName
wDoc.Close
wApp.Quit
Set wApp = Nothing
这个是另存为和退出
3.VB控件OLE中显示的WORD文档如何翻页
方法/步骤
打开word软件,如图所示
输入
=rand()
随机产生一些文字做示范
接着,我们设置文档超链接。选择某部分文字后,单击菜单栏插入——书签
单击书签后,便会弹出如图所示对话框,输入书签名,单击添加,便可以添加书签
把文档翻页至第二页,接着选择菜单栏中的插入——超链接
单击超链接后,先选择本文档中的位置,选择刚才添加的书签,选择后,单击确定
单击确定后,便会在文字下方显示横线,说明超链接已经添加完成,当单击时,便会自动跳转到书签1的位置。
4.excel vba操作word书签内容
你好twtytei,Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = "文件实际路径\TEXT1.doc" '请修改实际储存路径!
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象!
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件!
StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容
StrB = WrdDoc.Bookmarks("bb").Range ' 读取书签bb内容
WrdDoc.Close ' 关闭文件
Set App = Nothing
End Sub
5.vb的内容如何导出到word中
先用word建立一个“模板”,把该画的表格和格式设置好,然后调出“窗体”工具栏,在你想要接收vb传来数值的位置加入“文本型窗体域”(就是文本框),在“窗体”工具栏上把“域底纹”点一下把域的底纹去掉,要不然不好看。
加入域的时候记得要为每个“域”的属性里“书签”命名(其实就是相当于vb中的“名称”),保存退出(假设为c:\doc1.doc)。在vb中新建工程并引用Microsoft Word x Object Library,在窗体中加入与word中域相对应的文本框,加一个command,加入类似以下的代码(我只用了一个文本框做例子,你自己再扩展一下吧):Private Sub Command1_Click() Dim doc1 As Word.Application Set doc1 = New Word.Application doc1.Documents.Open ("c:\doc1.doc") doc1.ActiveDocument.FormFields("text1").Result = Text1.Text doc1.ActiveDocument.Save doc1.Documents.Close Set doc1 = NothingEnd Sub这样一来,我就把窗体中text1中的text值传入到了名为doc1.doc的word文件中。