小白求代码、、、
追答之前的回答也算是个玩笑,方法很多,不必这么大量调用API;
VB对于word,excel等都有相应操作,如下给出源码,楼主看了便知
Dim MyWord As Object, NewDoc As Object '声明
Private Sub Command1_Click()
Set MyWord = CreateObject("Word.Application") '创建
MyWord.Visible = False '隐藏
MyWord.Caption = "源自VB输出文本" '标题
Set NewDoc = Nothing '初始化
Set NewDoc = MyWord.Documents.Add '增加纪录
NewDoc.Paragraphs(1).Range.Text = Text1.Text '写入内容
MyWord.ActiveDocument.SaveAs (App.Path & "\VB输出.doc") '保存
MyWord.Visible = True '显示结果
End Sub
更多功能,查阅msdn关于wordbasic的描述。
vb中的text中内容怎么一键导出文字到word 只有文字啊 顺便看看能不能导...
当然是可以的,可用如下方法实现:用shell启动word 获取新打开word窗口的句柄 向目标窗口发送文本即可。发送文本用SendMessage或postmessage等API函数
vb的内容如何导出到word中
先用word建立一个“模板”,把该画的表格和格式设置好,然后调出“窗体”工具栏,在你想要接收vb传来数值的位置加入“文本型窗体域”(就是文本框),在“窗体”工具栏上把“域底纹”点一下把域的底纹去掉,要不然不好看。加入域的时候记得要为每个“域”的属性里“书签”命名(其实就是相当于vb中...
vb中如何在text控件中显示word文档内容
cFilename = tTextStream.ReadLine Text1.SelText = cFilename Loop End If End Sub 这个方法打开文本文件没有问题,打开Word显示不出原字,因为WORD并不是纯文本的 我这个代码可以实现打开文本文件的。引用 script run time 部件common dialog control ...
如何将网页中的文字复制到word里面去
方法一:选择黏贴中的无格式文本 在word右侧找到黏贴,点击选择黏贴 之后会跳出无格式黏贴选项框,如下图,之后选择文本格式黏贴就好了,这样可以直接去除格式了 方法二:无格式粘贴 宏 点击视图选项卡,找到最右边宏 选择查看宏,跳出一下选项框,在宏名里输入无格式选择性粘贴 点击右侧创建,就进入了VB...
VB怎么将文本框的内容保存到txt
2、回到工具栏,上面就会多出一个CommonDialog控件,你把它加在窗口上就好了。代码:'保存:Private Sub command1_Click()With CommonDialog1 .DialogTitle = "保存文件".Filter = "文本文件 (*.txt)|*.txt|Word(*.doc)|*.doc|RTF(*.rtf)|*.rtf|所以文件(*.*)|*.*".FilterIndex = 0 ...
vb如何将数据保存到word中,并打印
编个小程序,想要实现单击"保存"command时,将程序运行出来的数据保存至word中,单击"打印"command时,将此word文件打印出来.请高手赐教!谢谢哦... 编个小程序,想要实现单击"保存"command时,将程序运行出来的数据保存至word中,单击"打印"command时,将此word文件打印出来.请高手赐教!谢谢哦 展开 ...
vb中如何将数据导出到excel
介绍下面通过一步一步的介绍,如何通过VB.NET来读取数据,并且将数据导入到Excel中。第一步:打开VS开发工具,并且添加引用。然后选择。Microsoft Excel 12.0 object library and。Microsoft Excel 14.0 object library。第二步:创建一个Excle在你的电脑中。第三步:在VS中写入如下代码:Imports System....
求救:用vb将text中的文本保存到access
Public Sub GetWord1(ByVal wordstr As String, ByVal wordid As Integer, ByRef subword As String)On Error Resume Next Dim strpart As String Dim spos As Integer Dim epos As Integer Dim i As Integer strpart = Chr(9)epos = 0 i = 0 If wordid = 1 Then epos = InStr(1, ...
VB中提取WORD的文字并复制到另外一个WORD吗。是直接复制整个文档_百度...
vb6 使用FileCopy复制文件,格式如下:FileCopy source, destination
在VB中怎么实现 把输入的文字 另外保存为TXT文档?
ReadTxtFile = StrConv(s, vbUnicode)'数组转换成字符串 Else MsgBox ("文件不存在!")End If End Function '''写入文件 参数为 filepath : 文件路径, word 是写入的内容 Sub WriteTxtFile(FilePath As String, word As String)If Len(Dir(FilePath)) = 0 Then MsgBox ("文件不存在!