1. Computer problem? Tech Support Guy is completely free -- paid for by advertisers and donations. Click here to join today! If you're new to Tech Support Guy, we highly recommend that you visit our Guide for New Members.

How Do I Automate The Creation Of Mouse Over Events

Discussion in 'Web Design & Development' started by HowdeeDoodee, May 7, 2010.

Thread Status:
Not open for further replies.
  1. HowdeeDoodee

    HowdeeDoodee Thread Starter

    Joined:
    Aug 26, 2004
    Messages:
    615
    In on-line newspapers, informational web sites, and many other locations I see hyperlinked words in the text. When a user does a mouseover on any of these hyperlinked words, a popup occurs with info in a little popup window. I have 800 vocabulary words I want to highlight in an online web. When a site visitor does a mouseover of any of these words, I want a little box to popup and give the definition of the word. Is there some way of automating the creation of the highlighted words in a web page? Thank you in advance for your replies.
     
  2. maneetpuri

    maneetpuri

    Joined:
    Oct 14, 2008
    Messages:
    135
    Hi,

    There is a concept call tool tips, they are implemented using JavaScripts. If you will Google “JavaScript for ToolTips on MouseOver” you will get the script that you can use to do what you want to.

    Cheers,


    Maneet Puri
     
  3. HowdeeDoodee

    HowdeeDoodee Thread Starter

    Joined:
    Aug 26, 2004
    Messages:
    615
    Thank you for the reply. I also found another way to do this.

    Code:
    Sub TempStore()
    '
    ' TempStore Macro
    ' Macro recorded 5/7/2010 by POK
    '
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "affinity"
            .Replacement.Text = _
                "<A HREF=""http://www.yourdomain.com/"" TITLE=""a marriage alliance""><font color=""#000000"">affinity</font></A>"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub
    
     
As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 733,556 other people just like you!

Thread Status:
Not open for further replies.

Short URL to this thread: https://techguy.org/921570

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice