vb.net调起word,vb·net
vb.net怎么对word进行操作????
不清楚报错信息,只能给以下提示:
采用H5页面制作+css3国际标准网站建设,让网站自动适应用户使用终端设备,PC、平板、手机等,一个网址适应,一套内容统一战略,节约企业资源。创新互联还提供网站后期营销如:软文平台、友情链接、广告投放平台等。一般建站公司不为企业填充资料,更谈不上内容策划,结果导致网站界面优秀,内容却十分空泛或整体不协调,内容策划、内容填充请交给我们。
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 调用Word打开文档
思路:读取注册表获得word的安装路径,然后shell命令加参数打开。
简单说一下这个思路:
首先在注册表
[hkey_classer_root]
中查找注册文件类型,我们以.doc为例,那么在[hkey_classer_root]
中可以找到.doc项,查看右边的键,有一个键名为“默认”,其对应键值是【word.document.8】。
利用这个查询结果,在[hkey_classer_root]中重新查找名为【word.document.8】的项,就会发现这项存在子项shell
-
open
-
command,在command项中存一个名为“默认”的键,其键值是【"c:\program
files\microsoft
office\office14\winword.exe"
/n
"%1"】(这里是以我的电脑为例的),这就是打开对应文件的程序路径和参数。
至于vb.net读取注册表,网上有很多示例了,这里不再赘述。
VB.NET如何打开word文档
在窗体上放一个按钮,一个Webbrowser
简单代码如下,其他排错处理自己来:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim open As New OpenFileDialog
open.ShowDialog()
WebBrowser1.Navigate(open.FileName)
End Sub
效果如图:
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 问题请教
从菜单:项目\添加引用,在打开的对话框的.Net页面中找到:Microsoft.Office.Interop.Word
代码如下:
Dim w As New Microsoft.Office.Interop.Word.Application
Dim d As Microsoft.Office.Interop.Word.Document = w.Documents.Add '添加一文档
d.SaveAs("c:\myWord1") '保存为myWord1文件名。
d.Close()
在Com页面也有Word对象库的引用,大体一样吧,只是路径有所不同。
VB怎样实现word文件调用?
VB.NET写 word文件代码:
Dim wordApp As New Word.Application
Dim objSelection As Word.Selection
Dim Title As String = "K388+400常胜沟大桥"
wordApp.Documents.Add()
oDocument = wordApp.ActiveDocument
objSelection = wordApp.Selection
wordApp.Selection.TypeText(Title)
objSelection.TypeParagraph()
wordApp.Selection.TypeText("一、桥梁基本状况卡片")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别,B技术结构数据")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别。B技术结构数据。C档案资料(全、不全、或无)。D最近技术状况评定")
objSelection.InsertBreak() '插入分页符,相当于2个字符
objSelection.TypeText("E修建工程记录")
SetRange(1)
With wordApp.Selection
.Font.Size = 18 '字体(小二)
.ParagraphFormat.Alignment = 1 '水平居中
.Font.Bold = True
End With
SetRange(2)
With wordApp.Selection
.Font.Size = 14 '字体(四)
.Font.Bold = True
.Font.Name = "华文琥珀"
End With
SetRange(25, 44, True)
With wordApp.Selection
.Font.Size = 9 '字体(小五)
.Font.Bold = True
.Font.Italic = True
End With
SetRange(4, 2)
With wordApp.Selection
.Font.Size = 9 '字体(小五)
.Font.Bold = True
End With
'文件保存
oDocument.SaveAs("d:\" Title ".doc")
wordApp.Visible = True
网页题目:vb.net调起word,vb·net
浏览地址:http://scyanting.com/article/dsipdpo.html