Dim oDocument As Word.Document
Dim nRet As Integer
On Error GoTo ErrOpen
Set oWord = New Word.Application
' If FileName = "" Then
' Set oDocument = oWord.Documents.Add
' Else
Set oDocument = oWord.Documents.Open("e:\test1.doc")'要打开的文件名
' End If
oWord.Visible = True '如果不想看见WORD窗口，可以设为false
'将text插入到最后
oDocument.Paragraphs.Last.Range.InsertAfter Text1.Text
OpenDocument = 1
GoTo ExitOpen
ErrOpen:
OpenDocument = 0
ExitOpen:
oDocument.Save '保存文档
oWord.Quit '退出WORD
Set oDocument = Nothing
Set oWord = Nothing
把文本保存到WORD文档方法很简单.我来教你一个很好用的方法吧.
首先,打开WORD,在菜单:工具->宏->录制新宏.
这些操作完成了之后,你在WORD的操作都会被记录起来.并生成相应的代码..
然后,查看新录制的宠代码,把代码复制到VB里就可以直接用了..
想怎么操作就怎么操作..简单实用.
word文档已经打开,如何用VB代码再往里写文字呢?
Selection.HomeKey Unit:=wdStory '光标移动到前面，你可以不要这一句 Selection.TypeText Text:="已经打开" '这样就写入了字符串了
vb实现已有word指定位置输入
Set wordApp = CreateObject("Word.Application") '建立WORD实例 wordApp.Visible = False '屏蔽WORD实例窗体 Set wordDoc = wordApp.Documents.Open(FileName) '打开文件并赋予文件实例 Set wordSelection = wordApp.Selection '定位文件实例 Set wordArange = wordApp.ActiveDocument.Range(0, 1) '...
如何用VB实现在已经有文字的WORD的最后插入文字
MsgBox "文件不存在!"Exit Sub End If Open fname For Binary As #1 '以二进制访问模式打开待加密文件 For i = 1 To LOF(1) 'LOF函数是求文件长度的内部函数 Get #1, i, x '取出第i个字节 x = Bintobyte(reverse(bytetobin(x))) '这里调用了三个自定义函数 Put #1, i, x '将加...
vb 获取word光标位置并插入文字
代码如下：Dim wdapp As ObjectDim wd As ObjectPrivate Sub Command1_Click() Set wdapp = CreateObject("Word.Application") '创建Word运用环境 Set wd = wdapp.Documents.open(App.Path & "\\mi.docx") '打开Word wdapp.Visible = TrueEnd SubPrivate Sub Command2_Click() ...
怎样在活动的word中使用vb成功的激活该word并在该文档中输入一行...
Application.Selection.InsertAfter "你好！"或者：ActiveDocument.Windows(1).Selection.InsertAfter "你好！"
如何用VB打开word并且创建表格,向表格里填写数据。
我给修改了一下，这个代码我调试通过了：Option Explicit Private Function OutWord(ByVal filePath As String) As Boolean Dim newDoc As Word.Document Set newDoc = New Word.Document With newDoc .Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体".Paragraphs(.Paragraphs.Count).Range....
求VB代码:打开一个WORD文档,把第一行设置宋体3号居中,其余设置仿宋5号...
Private Sub Command1_Click()Dim WDApp As Object Dim Mydoc As Object Dim MyRange As Object Dim MySelection As Object Set WDApp = CreateObject("Word.Application")Set Mydoc = WDApp.Documents.Open(App.Path & "\\test.doc")Set MyRange = Mydoc.Paragraphs.First.Range WDApp....
如何VB 制作几个按钮 可以快捷输入指定文本?
我晕，这个建议别用VB做，浪费时间。建议如下。打开Word，键入你想要得字符（比方说：“XX公司欢迎您的来电”），选定这些字符，按键Alt+F3，出现“创建‘自动图文集’”对话框，单击“确定”。然后在任何一个工具栏上按右键，单击长长的菜单最下面的“自定义”，在左边的“类别”中选择“自动图文集”...
如何在vb中调出word文档并对其中的内容作出修改?
示例：把c:\\1.doc中的“一”替换为“壹”：Private Sub Command1_Click()Dim wordObj Set wordObj = CreateObject("Word.Application")With wordObj.Documents.Open("c:\\1.doc").Content.Find.Execute "一", , , , , , , , , "壹", 2 .Save End With wordObj.quit End Sub ...
如何用VB打开一WORD文档?
用左键点击所要打开的word文件，然后点击右键，会出现一个菜单，然后选择复制。这样就能把那个word的内容复制出来了。
