Click here to Skip to main content
11,720,785 members (83,361 online)
Rate this: bad
Please Sign up or sign in to vote.
See more: VBA Word webbrowser
i try to read a word document in a webbrower (VBA code with Word Application) but the document is opened outside the userform:
ex1: webbrowser1.Navigate "D:\TEST.doc" = not ok
ex2: webbrowser1.Navigate "D:\TEST.htm" = ok (in the userform)

Someone has the solution ?
Posted 8-Dec-12 22:42pm

1 solution

Rate this: bad
Please Sign up or sign in to vote.

Solution 1

As per MSDN Example[^] :- Wink | ;)

Imports System
Imports System.Windows.Forms
Imports System.Security.Permissions
<permissionset(securityaction.demand,> _
<system.runtime.interopservices.comvisibleattribute(true)> _
Public Class Form1
    Inherits Form
    Private webBrowser1 As New WebBrowser()
    Private WithEvents button1 As New Button()
    <stathread()> _
    Public Shared Sub Main()
        Application.Run(New Form1())
    End Sub 
    Public Sub New()
        button1.Text = "call script code from client code"
        button1.Dock = DockStyle.Top
        webBrowser1.Dock = DockStyle.Fill
    End Sub 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
        Handles Me.Load
        webBrowser1.AllowWebBrowserDrop = False
        webBrowser1.IsWebBrowserContextMenuEnabled = False
        webBrowser1.WebBrowserShortcutsEnabled = False
        webBrowser1.ObjectForScripting = Me 
        ' Uncomment the following line when you are finished debugging. 
        'webBrowser1.ScriptErrorsSuppressed = True

        webBrowser1.DocumentText = _
            "<html><head><script>" & _
            "function test(message) { alert(message); }" & _
            "</script></head><body><button hold=" />            " onclick=""> " & _
            "call client code from script code</button>" & _
    End Sub 
    Public Sub Test(ByVal message As String)
        MessageBox.Show(message, "client code")
    End Sub 
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
        Handles button1.Click
        webBrowser1.Document.InvokeScript("test", _
            New String() {"called from client code"})
    End Sub 
End Class

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 2,179
1 OriginalGriff 924
2 F-ES Sitecore 640
3 Maciej Los 609
4 Richard MacCutchan 540

Advertise | Privacy | Mobile
Web03 | 2.8.150901.1 | Last Updated 9 Dec 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100