A. 如何用vb.net取word的当前页页码
怎么用vb.net取word的当前页页码我用vb.net来操作word，怎么才能取到word文档的的当前页页码？ 谢谢！——解决方案——————–a=Selection.Information(wdActiveEndAdjustedPageNumber) ——解决方案——————–之前把光标放到当前页面上。 app.Selection.Information(Word.WdInformation.wdActiveEndAdjustedPageNumber)
B. vb.net 2010 调用word程序 打开一个word文档
1 使用Shell函数直接调用语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字。使用Shell调用Word比较简单，编程量小，但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换。2 使用OLE自动化控制Microsoft Word2.1 使用方法（1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同。(4)关闭Word:Set Wordobj =Nothing。注意：“Basic”对象不支持关闭它自己的一个方法。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错。2.2 VB指令与WordBasic指令的差异(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address")。②选择一个命令按钮用“True”,不选择用“False”2.3 对OLE自动化的说明Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们。3 在包容器中嵌入Word对象在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定”。然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：Dim Wordobj as ObjectOLE1.Action =7Set Wordobj =OLE1.Object.Application. WordBasic其他方面，使用方法同OLE自动化。使用在包容器中嵌入的Word对象，Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离。这一点与OLE自动化相比，是个不足。总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便。
C. VB.net 操作Word卡的问题。
可以多线程操作啊，所有对word文档的处理都放入一个线程后台处理，前台你可以做其他的事
D. vb.net操作word
将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2, 将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2如果今后遇到这种问内题，直接打开容Word，然后sub xx() msgbox wdParagraphend sub就可以得到wdParagraph的真实值。
E. vb.net操作word最后一步求解
我试着按我自己的思路给你改一下，你看看成不成型！
……EndifDimWDAPPAsObject,Wd1asobject,Wd2asobjectwdapp=newword.applicationwdapp.visible=truewd1=WDAPP.Documents.open(FileName:=TextBox1.Text)wd2=WDAPP.Documents.open(FileName:=TextBox2.Text)Forj=0Toq-1Wd1.activateWDAPP.Selection.Find.ClearFormatting()WithWDAPP.Selection.Find.text=p(j)WDAPP.Selection.Find.Execute(p(j))DimiAsStringi=WDAPP.Selection.Information(3)Dimmissing=System.Reflection.Missing.ValueDimunit=Word.WdUnits.wdStorywd2.ActivateWDAPP.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)IfWDAPP.ActiveDocument.Saved=FalseThenWDAPP.ActiveDocument.Save()EndIfEndWithNextWDAPP.Quit()WDAPP=NothingEndIfEndIf
F. vbnet怎么实现读取指定WORD文档中的内容
按住Alt键，同时按住鼠标左键并移动鼠标进行指定区域选择，然后按Ctrl+C,进行复制，即可读取指定区域的内容。
G. vb.net怎么对word进行操作
不清楚报错信息，只能给以下提示：1、工程–引用,选Microsoft Word 11.0 Object Library2、声明并赋值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项导入就可以了。
H. VB.NET如何打开word文档
在窗体上放一个按钮，一个Webbrowser
简单代码如下，其他排错处理专自己来：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimopenAsNewOpenFileDialog
open.ShowDialog()
WebBrowser1.Navigate(open.FileName)
EndSub
效果如属图：
I. 如何用VB制作一个程序，可以搜索Word中的内容
最简单的做法回答, Dim xWorkApp As Word.Application Set xWorkApp = New Word.Application dim xDoc as Word.Document set xDoc = xWorkApp.ActiveDocumentxWorkApp.Selection.selectallWith xWorkApp.Selection.Find .Forward = True .ClearFormatting .MatchWholeWord = True .MatchCase = False .Wrap = wdFindContinue .Execute FindText:="Microsoft"End With
