VB.NET Word創(chuàng)建表格并錄入文字

‘首先，創(chuàng)建一個VB.NET項目，再點擊菜單”項目“-”添加引用“，在”Com“-”類型庫“里，選擇Microsoft.Word?14.0?Object?Library（對應Office版本為2010），將以下代碼復制粘貼到Form1窗體替換原代碼。

成都創(chuàng)新互聯(lián)長期為千余家客戶提供的網(wǎng)站建設服務，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為宕昌企業(yè)提供專業(yè)的成都網(wǎng)站設計、網(wǎng)站制作，宕昌網(wǎng)站改版等技術(shù)服務。擁有十年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

’PS：以下代碼僅創(chuàng)建表格，將第行2至4列合并，添加1個文字，其他的你自己分析。

Imports?Microsoft.Office.Interop

Imports?Microsoft.Office.Interop.Word??'引入Word

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定義Word及文檔對象

DDoc?=?DWrd.Documents.Add?'新增文檔

Dim?DTbl?As?Word.Table??'定義表格對象

DTbl?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格

DTbl.Style?=?"網(wǎng)格型"??'表格的樣式

DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列

DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴展兩個單元格(即選擇第1行的第2至4列)

DWrd.Selection().Cells.Merge()??'單元格合并

DTbl.Cell(1,?1).Range.Text?=?1??'在第1個單元格填寫文本

DWrd.Visible?=?True?'顯示W(wǎng)ord

End?Sub

End?Class

請教大家怎么用VB.net控制word中文字的行間

添加spire.doc.jar為依賴，百度搜索免費版的下載即可

Imports Spire.Doc

Imports Spire.Doc.Documents

Imports System.Drawing

Namespace SetRowSpace

Class Program

? Shared? Sub Main(ByVal args() As String)

? ? ? '創(chuàng)建文檔

? ? ? Document doc? =? New Document()

? ? ? '添加section

? ? ? Dim s As Section =? doc.AddSection()

? ? ? '添加段落

? ? ? Dim para As Paragraph =? s.AddParagraph()

? ? ? para.AppendText("這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，" +

? ? ? ? ? "這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，"+

? ? ? ? ? "這是測試文字，這是測試文字，這是測試文字，這是測試文字。")

? ? ? '設置段落中行距

? ? ? para.Format.LineSpacing = 20f

? ? ? '創(chuàng)建段落樣式

? ? ? Dim style As ParagraphStyle =? New ParagraphStyle(doc)

? ? ? style.Name = "paraStyle"

? ? ? style.CharacterFormat.FontName = "宋體"

? ? ? style.CharacterFormat.FontSize = 13

? ? ? doc.Styles.Add(style)

? ? ? '應用段落樣式

? ? ? para.ApplyStyle("paraStyle")

? ? ? '保存文檔

? ? ? doc.SaveToFile("SetLineSpacing.docx", FileFormat.Docx2013)

? ? ? System.Diagnostics.Process.Start("SetLineSpacing.docx")

? End Sub

End Class

End Namespace

vb.net怎么對word進行操作？？？？

不清楚報錯信息，只能給以下提示：

1、工程--引用,選Microsoft Word 11.0 Object Library

2、聲明并賦值word程序相關(guān)變量，注意步驟不能亂。

Dim appObj As New Word.Application '新建一個word程序?qū)ο?/p>

Dim docObj As Word.Document '聲明文檔對象，也可以用new新建

Dim strFile As String = "D:\MyDocu.doc"

docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打開文檔

docObj.Activate()'激活文檔

.......

With docObj

.Save()

.Close()

End With

docObj = Nothing

appObj = Nothing

注意：聲明word對象和文檔對象，應該提示錯誤，你只需要點擊“示警”圖標，在展打的選項里選第1項導入就可以了。

vb.net怎么實現(xiàn)讀取指定WORD文檔中的內(nèi)容

添加spire.doc.dll為引用，在vb.net中讀取指定word文檔的內(nèi)容到?txt文件，代碼示例如下：

'加載Word文檔

Dim doc As Document = New Documentdocument.LoadFromFile("測試文檔.docx")

'使用GetText方法獲取文檔中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)