VB中如何将text导入word并保存,要简单代码
Private Sub Command1_Click()dim a() as stringOpen "d:\1.txt" For Input As #1Dim Lines As StringDim NextLine As StringDim i As Integerredim a(0)i=0Do While Not EOF(1)On Error Resume NextLine Input #1, a(i)i=i+1redim preserver a(i)LoopClose #1a(0)=1a(1)=2a(2)=3 dim str1 as string ,sfor each s in astr1=str1 & chr(10) & chr(13) & snext Open "d:\1.txt" For Output As #1Print #1, str1Close #1
在EXcel的VB编辑器中插入一个模块,输入如下代码试试看。
Sub ExcelToWord()
Dim WordObject As Object '声明一个对象变量,这里即将声明为Word对象
On Error Resume Next
Set WordObject = CreateObject("Word.Application") '用set来创建Word对象,这里是运行Word程序,但未新建文档
WordObject.Visible = 0 '后台运行Word对象,只在任务管理器中存在WinWord.exe进程,但在任务栏上看不到word;如果为1或者True则可以看到word运行界面
WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档
'以下为获取Excel表格中的内容,准备把数据传送给Word,可以根据自己的实际需要定制代码,这里只是示例代码
Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表
Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据
Selection.Copy '将选中的区域进行复制
WordObject.Application.Activate '将后台运行的Word激活为当前窗口
WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来
WordObject.Saved = True '将保存文档的Saved属性设置为True,这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了,达到悄无声息的效果
WordObject.ActiveDocument.SaveAs "D:emp\导出数据.doc" '调用saveas命令保存文档,根据实际,指定文档的保存路径和名称
WordObject.Application.Quit '退出并关闭程序文档
Set WordObject = Nothing '释放对象
End Sub
Private Sub Command1_Click()
Dim App As Object
Set App = CreateObject("word.application") '创建word对象
With App.documents.Add '添加一个空白文档
.Content.InsertAfter Text1.Text '在文档后面插入text1的内容
.saveas "d:\123.doc" '保存
.Close True '关闭 文档
App.quit '退出word程序
End With
End Sub
----------------------------------------------------------------------------打开以有文档
Private Sub Command1_Click()
Dim App As Object
Set App = CreateObject("word.application") '创建word对象
With App.documents.open("d:\123.doc") '打开文档
.Content.InsertAfter Text1.Text '在文档后面插入text1的内容
.save '保存
.Close True '关闭 文档
App.quit '退出word程序
End With
End Sub
简单的做法。 。 。
<br为aaa.rtf(富文本文件)后控制参考微软丰富文本框
窗体上添加一个RichTextBox
代码
me.RichTextBox1.LoadFile“C:\ aaa.rtf
VB怎样实现按方向键,光标在控件TEXT1和TEXT2之间移动
'控件发送编辑控件类型消息。也可以实现这样的功能。下面首先来看程序,然后再分析。' 首先在VB中建立一个新工程,并在Form1中加入一个TextBox控件和两个Label控件。将TextBox控件的MultiLine '属性设置为True?然后在Form1的代码窗口中加入如下代码:Option Explicit Private Declare Function Send...
VB中s=text1.text和text1.text=s为什么起到的作用不同!!!
深秋已经说得很清楚了。s=text1.text \/\/指的是将text1.text的文本赋值给变量 s,而这里text1.text中的文本必须是数字,否则会出错(类型转换错误),除非用强制转换,即cint(text1.text)。text1.text=s \/\/指的是将变量s中的值赋给text1.text(显示于文本框)而如果s变量没有赋初值的话(对于VB...
vb如果text文本改变,用语句怎么表达
Private Text1Changed As Boolean '记录text1是否发生改变 Private Sub Command1_Click()If Text1Changed = True Then '在这里执行你的操作 End If End Sub Private Sub Text1_Change()Text1Changed = True '发生改变,则记录 End Sub
VB中,如何把数据库内容引入combox下拉列表中
添加内容到combox中:dim con as new adodb.connection dim rs as new adodb.recordset private sub form_load() '在窗体加载事件中,设置两个文本框内容为空,B.text="" '设置文本框B内容为空 C.text="" '设置文本框C内容为空 打开数据库连接 con.open "Provider=Microsoft.Jet.OLEDB...
vb 文本框的内容保存到另一个文本框
Text2.MultiLine 设置为True,然后添加如下代码!~Private Sub Command1_Click()If Text1.Text <> "" Then If Text2.Text = "" Then Text2.Text = "a" & Text1.Text & "b"Else Text2.Text = Text2.Text & vbCrLf & "a" & Text1.Text & "b"End If End If End Sub Private ...
VB的textbox中怎样显示一个变量的值
在form1中的Form_Load窗体加载事件里面为变量赋值 a = "我是张某人"在form2画一个textbox 在Form_Load里面写 me.text1.text = a --- 完整代码:form1:Private Sub Command1_Click()Form2.Show End Sub Private Sub Form_Load()a = "111"End Sub form2:Private Sub Form_Load()Me.Text...
VB中文本框如何换行
我本来是第一个回答的,为了把第二,三个问题也解决,修改答案后就成最下边一个了 1.--- 把Text4的MultiLine属性设置成True 复制下边的代码:Private Sub Form_Load()Text4.Text = ""End Sub Private Sub Command1_Click()Text4.Text = Text4.Text + Text1.Text + Text2.Text + Text3....
如何将数值转换成文本?
问题三:excel表格怎么把数字转换成文本格式 设A列为数字,则 方法1)B1=text(A1,@),然后向下粘贴复制 方法2)先将B列格式设为文本,然后复制A列,选择性粘贴数值到B列 问题四:excel表格怎么把数字转换成文本格式 假设数据在A列 在B1中输入或复制粘贴下列公式 =A1& 下拉填充 选择B列 复制 ...
佳能打印机MF4010B显示TEXT\/PHOTO,打印出来的怎么就看不到的字啊_百 ...
TEXT 是文档 PHOTO是照片质量 选择好。。如果还不行 那就你定影坏掉了。换把
VB中如何统计输入的数字的个数
1、启动VB新建工程1,在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮(可以预先对各控件的Caption等属性进行修改)。2、双击“统计”(即Command1)按钮,在弹出的代码框中编写如下代码:PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x = ...
毅朋心舒: -----------------------------------------------------------------------------新建文档Private Sub Command1_Click()Dim App As ObjectSet App = CreateObject("word.application") '创建word对象With App.documents.Add '添加一个空白文档.Content....
奉节县13467416868: VB中如何将text导入word并保存,要简单代码 - ?
毅朋心舒: -新建文档Private Sub Command1_Click() Dim App As Object Set App = CreateObject...
奉节县13467416868: vb中怎么将一个text的内容显示在生成的word - ?
毅朋心舒: '菜单 工程-->引用 找Microsoft Word 11.0 Object..... Dim MyText As String Dim WDApp As New Word.Application Dim WDDoc As New Word.Document Set WDDoc = WDApp.Documents.Add WDApp.Selection.TypeText Text1.Text WDApp....
奉节县13467416868: 在VB中怎样把文本Text1的内容进行复制,粘贴到WORD中 - ?
毅朋心舒: Clipboard.SetText Text1.Text 执行后直接去Word里面粘贴就行了
奉节县13467416868: 如何在vb窗体上把word文件上内容显示在text上,并将在text上的资料编辑修改后存入word文件上啊! - ?
毅朋心舒: 引用Word、然后通过Word的Application在后台读取Range.text 然后显示在Text控件中.Text控件中的文本在Exe关闭前通过Word的Application对象写入Word文档.
奉节县13467416868: VB怎样读text文件并输出结果到word文档中? - ?
毅朋心舒: dim xx(1000) as string '假设最多1000行 open "c;\1.txt" for input as #1 i=1 while not eof(1) input #1, xx(i) xx(i)=mid(xx(i),2) '把开始的=号去掉 i=i+1 wend close #1 dim aa as new word.application aa.ActiveDocument.Tables.Add Range:=Selection....
奉节县13467416868: vb6.0中如何将多个窗体中的text值输出到word'中???? - ?
毅朋心舒: 在Form1做一个RichTextBox,名称为rtb,Visible为False Private Sub Form1_Load() rtb.Text = Form1.Text & VBCRLF & Form2.Text & VBCRLF & Form3.Text & VBCRLF ......rtb.SaveFile "D:\Word.rtf" shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE D:\Word.rtf" End Sub '手上没VB,没测试
奉节县13467416868: 在VB中怎样把text1的文本发送到WORD中??
毅朋心舒: Private Sub Command1_Click() Dim xlapp As Object Set xlapp = CreateObject("word.Application") xlapp.Visible = True xlapp.Documents.Add xlapp.Selection.TypeText Text:=Text1.Text End Sub
奉节县13467416868: vb中的text中内容怎么一键导出文字到word 只有文字啊 顺便看看能不能导出到2010的版本 - ?
毅朋心舒: 当然是可以的,可用如下方法实现: 用shell启动word 获取新打开word窗口的句柄 向目标窗口发送文本即可. 发送文本用SendMessage或postmessage等API函数
奉节县13467416868: 利用VB中的文本,将文本输入到word指定的行、列中去? - ?
毅朋心舒: 之前要设置保存对话框系列属性,设为*.doc格式后写代码:Print #intFile 表示空行,这样就可以指定行 Print #intFile, Tab(30) 表示指定某行的第30列,就可以指定列!