霜霜洗逼用霸王
VB,NET 如何把WORD另存为HTML
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'定义Word对象Dim wordApp As New Word.ApplicationClass'要转换的文件名Dim fileName As Object = ＂E:\Test.doc＂'默认值Dim miss As Object = System.Reflection.Missing.Value'打开要转换的 DOC 文件Dim doc As Word.Document = DirectCast(wordApp.Documents.Open(fileName, miss, miss, miss, miss, miss, _miss, miss, miss, miss, miss, miss, _miss, miss, miss, miss), Word.Document)'转换后的文件名fileName = ＂E:\testDoc.HTML＂'保存的文件格式Dim saveFormat As Object = Word.WdSaveFormat.wdFormatHTML'按文本文件保存doc.SaveAs(fileName, saveFormat, miss, miss, miss, miss, _miss, miss, miss, miss, miss, miss, _miss, miss, miss, miss)'关闭是否保存文件，这里为不保存Dim changes As Object = False'关闭文件doc.Close(changes, miss, miss)'退出 Word 应用程序wordApp.Quit(changes, miss, miss)End Sub
Vb.net中怎样生成基本信息登记表并打印出来,就像简单的个人简历类...
展开全部 在Word中建立并运行此宏程序Sub DoctoHtml()Dim FS As FileSearch, myFolder As String, myDialog As FileDialogDim i As Long, N As Long, myFileName As StringDim myDoc As Document, strHtmlName As StringOn Error Resume NextSet myDialog = Application.FileDialog(msoFileDialogFolderPicker)With myDialog.Title = ＂请选择一个您需要进行文件转换的文件夹＂If .Show -1 Then Exit SubmyFolder = .InitialFileNameSet myDialog = NothingEnd WithSet FS = Application.FileSearchWith FS.NewSearch.LookIn = myFolder.SearchSubFolders = True.FileName = ＂*.doc＂If .Execute() > 0 ThenN = .FoundFiles.CountFor i = 1 To NmyFileName = CStr(.FoundFiles(i))Application.StatusBar = ＂正在转换：＂ & myFileName & ＂…＂ & i & ＂/＂ & NstrHtmlName = VBA.Replace(myFileName, ＂.doc＂, ＂.hml＂, , , vbTextCompare)Set myDoc = Word.Documents.Open(FileName:=myFileName, Visible:=True)myDoc.SaveAs FileName:=strHtmlName, fileformat:=wdFormatHTMLmyDoc.CloseNextApplication.StatusBar = EmptyMsgBox ＂Micorsoft Word共完成了＂ & N & ＂个Doc文件转换为Html文件工作！＂， vbInformation, ＂＂ElseMsgBox ＂Microsoft Word在＂ & myFolder & ＂文件夹中没有找到*.doc文件！＂， vbInformation, ＂＂End IfEnd WithEnd Sub
用vb文本框的内容替换word的指定的文字
打开前，先把 模板文件复制一份为临时文件名。
然后打开这个文件，然后输出内容。
最后再改名为 最终的文件名参考：Const TMPFILE = ＂~tmp.doc＂If Dir(App.Path & ＂\＂ & TMPFILE) ＂＂ ThenKill TMPFILEEnd IfFileCopy App.Path & ＂\＂ &； 模板文件， App.Path & ＂\＂ & TMPFILE '目标位置可以是任意盘符任意目录，要求目录存在'对 TMPFILE 打开和处理Name App.Path & ＂\＂ & TMPFILE As ＂输出报告1.doc＂
VB.net 我买了一个超市用的热敏打印机,现在想打印一些小票。
我想...
1、热敏打印机（超市打印小票的那种）其实和办公用的打印机没有根本区别，只是用途不同罢了。
2、热敏打印机与计算机连接的接口基本上有3种（并口、串口和USB口），不管哪种，都要把那个连接线与计算机背后的插槽连好（接口是对应好了的，搞错了是接不上的），然后安装正确打印机驱动程序。
3、在大家熟悉使用的WORD文字编辑程序程序中，讲页面宽度自定义调整为热敏纸的规格，页面长度一般210毫米就够用了。
记得要把这个保存为模板，方便以后调用此格式。
4、好了，就用上面的那个模板随便编辑内容，发送打印任务到热敏机就行啦。
试试吧，字符再长在WORD里都会自动换行滴。
我在vb窗体里添加了一个text控件,如何在里面显示一篇文章（已保存...
Access转换成word文档的方法如下：1、在MicrosoftAccess中，打开所需数据库，然后打开数据库对象：表、查询、窗体或报表。
2、选定所需输出数据的行和列。
3、单击“文件”菜单中的“另存为/导出”命令。
4、选择“另存为一个外部文件或数据库”选项，然后单击“确定”按钮。
5、在“保存类型”框中，为输出数据选择格式：如果要创建保持原有数据格式的文档，请单击“RTF格式”；如果要创建普通的文本文件，作为邮件合并数据源使用，请单击“MicrosoftWord合并文件”按钮。
6、在“文件名”框中，指定新文档的文件名称。
7、如果以RTF格式保存文档，并且希望马上启动Word打开此文档，请选中“自动启动”复选框。
8、如果要选定指定的数据行列，则要选中“选择”选项。
9、单击“导出”命令完成输出。
转载请注明出处51数据库 » vb.net word模板怎样才能另存为
