vb.net编辑word vbnet helloworld

vb.net怎么对word进行操作????

不清楚报错信息,只能给以下提示:

站在用户的角度思考问题,与客户深入沟通,找到永清网站设计与永清网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:做网站、成都做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖永清地区。

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

2、声明并赋值word程序相关变量,注意步骤不能乱。

Dim appObj As New Word.Application '新建一个word程序对象

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操作word

将WDApp.wdParagraph直接修改成数值4,也就是变成 Unit:=4 试试看!

同时将后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,

将Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2

如果今后遇到这种问题,直接打开Word,然后

sub xx()

msgbox wdParagraph

end sub

就可以得到wdParagraph的真实值。

VB.NET Word创建表格并录入文字

‘首先,创建一个VB.NET项目,再点击菜单”项目“-”添加引用“,在”Com“-”类型库“里,选择Microsoft.Word 14.0 Object Library(对应Office版本为2010),将以下代码复制粘贴到Form1窗体替换原代码。

’PS:以下代码仅创建表格,将第行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 = "网格型"  '表格的样式

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 '显示Word

End Sub

End Class


网站栏目:vb.net编辑word vbnet helloworld
网页网址:http://myzitong.com/article/dosedpp.html