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完成所有待打印作业
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As ObjectDim oWord As Word.ApplicationDim TempX As DoubleDim TempY As DoubleDim TempR As DoubleTempX = Ox + (x1 * 10)TempY = Oy - (y1 * 10)TempR = r * 10DialogDisplay = FalseIf (TempX - TempR Ox + Lx / 2) Or (TempY - TempR Oy + Ly / 2) ThenDialogDisplay = TrueMsgBox("超出了边界!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")DrawFlag = FalseDrawDot = NothingExit FunctionEnd IfDrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR) DrawFlag = TrueEnd Function
VB中如何生成一个WORD文档(有图)
Imports Word'打开Dim mWordapp As Word.Application 'word 应用程序Dim mobjDoc As Word.Document 'word 文档Dim fullFileName as string '文件路径mWordapp = CreateObject(”Word.Application”)mobjDoc = mWordapp.Documents.Add(FullFileName)'关闭Dim missing As Object = System.Reflection.Missing.ValuemWordapp.Application.Quit()If Not mobjDoc Is Nothing Then'垃圾回收System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)mobjDoc = NothingEnd IfIf Not mWordapp Is Nothing ThenSystem.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)mWordapp = NothingEnd If'真正释放word进程GC.Collect()学习更多教程,请浏览: VB.NET入门教程 雄网
VB 如何调用Word的宏代码
这里安装没有VB ,不过你试一试下面的代码Dim wdSel As ObjectSet wdSel = objWordP.SelectionwdSel.Find.ClearFormattingwdSel.Find.Replacement.ClearFormattingWith wdSel.Find.Text = "aa" '要查找的内容.Replacement.Text = "bb" '要替换的内容.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithwdSel.Find.Execute , , , , , , , , , , wdReplaceAll
如何用 VB 向word里 写公式!!!VB WORD 公式,求高手帮忙,多...
1、先引用microsoft word 11.0 object library2、代码,下面是一个例子,在新建word文档“test.doc”并写入“实验数据表”这5个字,字体为黑体,大小为21.5,居中显示。
公式编辑和这个类似。
Set wrdapp = New Word.ApplicationWith wrdappDocuments.Add DocumentType:=wdNewBlankDocument.ActiveDocument.SaveAs ("d:\test.doc").Documents.Open ("d:\test.doc")'写标题Selection.Font.Name = "黑体"Selection.Font.Size = 21.5Selection.TypeText Text:="实验数据表"Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中.QuitEnd With---------------你可以参考下面看看http://topic.csdn.net/u/20081017/19/a0915409-3561-4379-949c-cda983b31f58.HTML
如何在vb中调出word文档并对其中的内容作出修改?
示例:把c:\1.doc中的“一”替换为“壹”:Private Sub Command1_Click()Dim wordObjSet wordObj = CreateObject("Word.Application")With wordObj.Documents.Open("c:\1.doc").Content.Find.Execute "一", , , , , , , , , "壹", 2.SaveEnd WithwordObj.quitEnd Sub
VB问题(word中的vb编辑器和vb6.0有何不同?)
展开全部 表格里面可能包含文本或者图片,读取的话可分情况来定,下面提供的代码你可以参考一下: 读取表格中的文本Imports Spire.DocImports Spire.Doc.DocumentsImports System.IOImports System.TextNamespace ReadTable_Doc Class Program Private Shared Sub Main(ByVal args As String()) //加载测试文档 Dim doc As Document = New Document() doc.LoadFromFile("test.docx") //获取表格 Dim section As Section = doc.Sections(0) Dim table As Table = TryCast(section.Tables(0), Table) Dim sb As StringBuilder = New StringBuilder() //读取文本内容 For Each row As TableRow In table.Rows For Each cell As TableCell In row.Cells For Each paragraph As Paragraph In cell.Paragraphs sb.AppendLine(paragraph.Text) Next Next Next File.WriteAllText("text.txt", sb.ToString()) End Sub End ClassEnd Namespace2. 读取表格中的图片 Imports SystemImports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsNamespace Extract_Images_From_Tables_in_Word Class Program Private Shared Sub Main(ByVal args As String()) //加载文档 Dim doc As Document = New Document() doc.LoadFromFile("sample.docx") //获取section Dim section As Section = doc.Sections(0) //提取图片 ExtractImagesFromTables(section) doc.Close() End Sub //自定义方法提取图片 Private Shared Sub ExtractImagesFromTables(ByVal section As Section) Dim index As Integer = 0 Dim imageName As String = Nothing For Each table As Table In section.Tables For i As Integer = 0 To table.Rows.Count - 1 For j As Integer = 0 To table.Rows(i).Cells.Count - 1 For Each para As Paragraph In table(i, j).Paragraphs For Each obj As DocumentObject In para.ChildObjects If TypeOf obj Is DocPicture Then imageName = String.Format("images\TableImage-{0}.png", index) (TryCast(obj, DocPicture)).Image.Save(imageName, System.Drawing.Imaging.ImageFormat.Png) index += 1 End If Next Next Next Next Next End Sub End ClassEnd Namespace注,这里的代码是引用了Sprie.Doc.dll,另外对于读取表格延伸,你也可以参考下这篇C# 读取Word文本框中的表格,vb的话就需要稍作修改转换,不难
转载请注明出处51数据库 » vb.net word saveas