大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在窗体上放一个按钮,一个Webbrowser
创新互联建站是一家网站设计公司,集创意、互联网应用、软件技术为一体的创意网站建设服务商,主营产品:成都响应式网站建设公司、成都品牌网站建设、成都全网营销。我们专注企业品牌在网站中的整体树立,网络互动的体验,以及在手机等移动端的优质呈现。成都网站建设、成都网站设计、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏析悦目的作品,网站的价值服务。
简单代码如下,其他排错处理自己来:
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
效果如图:
把 objWordApp = GetObject("Word.Application")
改成 objWordApp = GetObject("", "Word.Application"),同时最好不要用
On Error Resume Next,改用
Try
Catch ex As Exception
End Try
添加spire.doc.dll为引用,在vb点虐 中读取指定word文档的内容到 txt文件,代码示例如下:
'加载Word文档
Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")
'使用GetText方法获取文档中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)