我是想实现这样一个功能,单击按钮 打开我在根目录 保存的word文档。比如有一个1.doc的word文档,现在我要用VB打开它,应该怎么写呢?谢谢
你好,如果我把文件放在 根目录下 有APP.path & "\1.doc" 又应该怎么写呢?谢谢
vb6.0如何编写word或wps文档?我在vb设计窗体中添加了word控件,但一是控...
这是要做什么。首先打开一个word对word的操作进行监视? 是这个意思,我想在VB6.0中写一些事件过程,然后当我在word中进行了删除或输入操作时,VB能够监视到并自动执行那些事件过程。
...用VB6.0给设计一个能直接打开已知密码的word文档的程序! 要求点击...
或者写 dim ap as new word.application ap.documents.Open("文件路径和名称",,,"密码")写4个西文半角逗号就可以了 另外工程必须引用word的Object lib
VB6.0问题···很急··在线等
首先我们需要在word中录制相应的宏命令。打开word,新建一文件,手动敲入一行字,然后选择工具->宏->录制新宏命令,为新宏取一个名字如macro1,执行以上动作(14号字,加粗,居中对齐),word自动将这些动作保存以相应的vbscript命令。然后选择工具->宏->宏命令,选择刚才我们定义的宏macro1,就能查看其...
VB6.0中如何用RichTextBox显示word文件,求详细编写过程
除非你先用 Word 打开,然后另存为 rtf,再用RichTextBox 显示,当然转换后可能会丢失一些文字样式等信息 如果确定运行的机器上有Word,可以让VB程序使用OLE方式在后台打开Word,然后另存、打开
VB6.0 连接Access数据库后 如何编写代码使数据库导出到excel、word或htm...
Private Sub Command1_Click() Dim xlapp As Variant Dim xlBook As Variant Dim xlSheet As Variant Dim sum As Long Set xlapp = CreateObject("excel.application") Set xlBook = xlapp.Workbooks.Open(App.Path & "\\data\\报表.xlt") '打开EXCEL模板 'Set xlBook =...
我写了一段vb6.0程序,再创建word文档后另存为指定路径时总是提示错误...
把你写的程序在VB上经过修改测试,只需要改最后一句就可以了,如下:objdoc.SaveAs path & "\\" & "mydoc.doc"注意:我VB6.0里面的SaveAs函数是SaveAs2,具体什么原因暂时不清楚,你根据自己的程序里面提示输入SaveAs函数就好。
vb6.0 读取txt文本中的指定字符作为txt1文本框的值 该怎么写?
比较好,这样不会找错,因为用si=1时如果没有si=1就可能找出来si=11,si=10等等。找到si=1& 也不要往前数28个字符,因为确定是地址,那就找href=,因为对于这个地址可能是28字符,对于其他的地址,可能就不是这么多了,这样从si=1& 再往前找href=,再根据固定的格式减去相应的字符数就行了。
关于VB6.0 TEXT控件选取部分文档进行左对齐、右对齐或局中操作
VB的文本框不支持这种操作,你可以用富文本框来实现这种操作。打开工程菜单,选部件,选中Microsoft Rich Textbox Control,确定。然后就可以把富文本框添加到窗体上了。下面是实现对齐的代码。Private Sub Command1_Click()RichTextBox1.SelAlignment = rtfLeft End Sub Private Sub Command2_Click()Rich...
vb6.0中如何将datagrid打印到word上
'创建word应用程序,这一句话打开word2000 Set wdapp = CreateObject("Word.Application")'在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 .Caption = "送检表"Set atable = .ActiveDocument.Tables.Add(.Selection.Range, ...
vb 怎样打开文件并把文件内容显示在文本框
文本框通常用来显示文本字符,以下是用 VB 编写的打开某 txt 文件,并把文件内容显示在文本框的步骤及代码:1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input...