vbnet操作word,vbnet操作CurrencyManager

vb.net怎么实现读取指定WORD文档中的内容

添加spire.doc.dll为引用，在vb.net中读取指定word文档的内容到 txt文件，代码示例如下：

创新互联建站专注于网站建设，为客户提供网站建设、网站制作、网页设计开发服务，多年建网站服务经验，各类网站都可以开发，高端网站设计，公司官网，公司展示网站，网站设计，建网站费用，建网站多少钱，价格优惠，收费合理。

'加载Word文档

Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")

'使用GetText方法获取文档中的所有文本

Dim s As String = doc.GetText

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

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最后一步求解

我试着按我自己的思路给你改一下，你看看成不成型！

......

End if

Dim WDAPP As Object,Wd1 as object,Wd2 as object

wdapp = new word.application

wdapp.visible = true

wd1 = WDAPP.Documents.open(FileName:=TextBox1.Text)

wd2 = WDAPP.Documents.open(FileName:=TextBox2.Text)

For j = 0 To q - 1

Wd1.activate

WDAPP.Selection.Find.ClearFormatting()

With WDAPP.Selection.Find.text = p(j)

WDAPP.Selection.Find.Execute(p(j))

Dim i As String

i = WDAPP.Selection.Information(3)

Dim missing = System.Reflection.Missing.Value

Dim unit = Word.WdUnits.wdStory

wd2.Activate

WDAPP.Selection.EndKey(unit, missing)

WDAPP.Selection.TypeText(text:=p(j))

WDAPP.Selection.MoveDown(Unit:=4, Count:=1)

WDAPP.Selection.EndKey()

WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP1.CentimetersToPoints(20), Alignment:=2, Leader:=2)

WDAPP.Selection.TypeText(Text:=vbTab)

WDAPP.Selection.TypeText(Text:=i)

WDAPP.Selection.TypeText(Text:=vbCrLf)

If WDAPP.ActiveDocument.Saved = False Then

WDAPP.ActiveDocument.Save()

End If

End With

Next

WDAPP.Quit()

WDAPP = Nothing

End If

End If

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的真实值。

文章题目：vbnet操作word,vbnet操作CurrencyManager
当前路径：https://www.cdcxhl.com/article10/dsehego.html

成都网站建设公司_创新互联，为您提供移动网站建设、品牌网站设计、做网站、外贸建站、软件开发、搜索引擎优化

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联