VBWTool Utility - Now with "Highlight" function

Quote:

---

Originally posted by MartinLiss
What happens when you are creating a Word document and you spell check it?

---

It checks in Protuguese Brazil..

But I see now.. sometimes it works in english, sometimes not...

i guess there is nothing to be done...

I miss this tool. I am not more or less only using Firebird...:(.....but it was fun as long as it lasted.

If its any concellation, in my File Manager im attempting to create a "Rainbow Text Generator" tool for creating Rainbow Text. At the moment its working fine, i just cant get it to create a HTML code output. But i can work on that later. When the "Add-on" is complete for File Manager ill test it out here, and in AOL

Great tool, but I can't use color / Gradient. I get this message

You Need to Have CommonDialog ActiveX Control Installed

Quote:

---

Originally posted by Gush
Great tool, but I can't use color / Gradient. I get this message

You Need to Have CommonDialog ActiveX Control Installed

---

Can you use that OCX in a normal project? What version of VB are you using?

Isnt that installed on most PC's?:confused:

MartinLiss:

I have VB.net installed.

I've asked for help in the VB.Net forum. Here is a link to that thread.

It's been suggested that all you need to do is download the control. Here it is. (You may have to register it).

Quote:

---

Originally posted by [LGS]Static
Wow..marty.. Didnt know that app was still around! cool.

I actually still have my VBforums browser (if you remember it from a ways back) .. Im up to v3.2 ..it has:
-dropdown Code window with color preview (shows code like VB does)
-ability to save/load code snippets
-with the click of a button..it sends the code to the post window
-a List of whos on the forums
-a PM tool to send anyone in that list a pm
-Locate tool to find out where that person is..
-auto updated List of forums (in a dropdown button..so you can quickly jump from here to there)

more ive been working on...

---

Where can I download it? I have your old version from about a year and a half ago somewhere... but since upgrading this computer, I've lost it.

Quote:

---

Originally posted by dsy5
Where can I download it? I have your old version from about a year and a half ago somewhere... but since upgrading this computer, I've lost it.

---

Are you asking where you can put your VBforums browser? If so then I would suggest the CodeBank.

Well, i used some code from www.pscode.com to help me generate a HTML output code, i was now thinking of maybe making a vbForums output code so you can make rainbow text here, without dloading anything. Dont know how to go about this yet though, although not a high prioretry for me just yet.

Quote:

---

Originally posted by Madboy
Well, i used some code from www.pscode.com to help me generate a HTML output code, i was now thinking of maybe making a vbForums output code so you can make rainbow text here, without dloading anything. Dont know how to go about this yet though, although not a high prioretry for me just yet.

---

Wouldn't they have to download your code or duplicate it? What's the difference?

I guess, but what i should of said was if i did get a method working for vbforums, it would be compatible in all browsers, and the code could just be copied from my app and pasted into therr signature:)

You see, this tool doesnt work for me in AOL, only I.E, which i dont like.

Quote:

---

Originally posted by MartinLiss
Are you asking where you can put your VBforums browser? If so then I would suggest the CodeBank.

---

I was referring to Geoff's VBforum browser...where is it available for download?

Here is an htm file that will implement Brad's HL (highlight) tags.

Note: Zip file removed since as of 05/09/2006 it is no longer needed.

Martin,

I'm either being very dim, which is possible or I'm missing something I can't seem to get the HighLight.htm above to work

[list=1][*]I've Copied Highlight.htm to C:\WinNT\vb-world[*]Opened regedit[*]Navigated to KEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt [*]Created an entry for Highlight by right-clicking on MenuExt and then selecting New|Key[*]Named the entry HighLight[*]Right-clicked on the (Default) value, selected Modify and and typed in C:\Windows\vb-world\Highlight.htm[*]Right-clicked on the new HighLight entry and selected New|Binary Value[*]Named the entry contexts and set the value to 04[*]Exited the Registry editor and restarted VBF[/list=1]

Usage -
Entering some text, select the entered text then right click choose HighLight - nothing happens? Have also tried it without selecting text too no avail??

Any ideas?

Cheers Al

Quote:

---

Originally posted by aconybeare
Martin,

I'm either being very dim, which is possible or I'm missing something I can't seem to get the HighLight.htm above to work

1. I've Copied Highlight.htm to C:\WinNT\vb-world
2. Opened regedit
3. Navigated to KEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt
4. Created an entry for Highlight by right-clicking on MenuExt and then selecting New|Key
5. Named the entry HighLight
6. Right-clicked on the (Default) value, selected Modify and and typed in C:\Windows\vb-world\Highlight.htm
7. Right-clicked on the new HighLight entry and selected New|Binary Value
8. Named the entry contexts and set the value to 04
9. Exited the Registry editor and restarted VBF

Usage -
Entering some text, select the entered text then right click choose HighLight - nothing happens? Have also tried it without selecting text too no avail??

Any ideas?

Cheers Al

---

Note: As of 05/09/2006 these instructions are no longer necessary.

Hmmmm like I said very Dim. :o

Thanks

Cheers Al

I just stumbled across the fact that the most htm files you can show at one time is 24. (Yes, I actually wanted a 25th.)

Martin,

Are you looking to extend this tool further? I've only got 22 listed (in c:\windows\vb_world)

What are you trying to add in?

Here is what I have at the present. The Text - blah ones are common things that I write when moderating such as how to mark a thread as answered. I wanted to add a new one but it pushed the VBCode one off the bottom, so I had to combine the new one with another and call it Miscellaneous (which I now see that I misspelled).

BTW it doesn't matter where your htm files are as long as the path is reflected in the registry contexts entries.

I guess it's not possible to create a sub-menu on the short cut menu

Code:

---

SuperScript
text - EditBy
        Misc
        Long Signature
        Welcome
Underline
etc.

---

Don't think I've ever seen it done, but might be possible with ie6+ or 5.5+ and context menus

What information that I've found says that it's not possible.

It must be, go to this page and right click!

Oh pretty much any page should have the encoding sub menu?

That's interesting but I have no idea how it's done. If you find out please let me know.

Marty or anyone, please put all together those tools in one download. thanks!

Quote:

---

Originally Posted by Simply Me

Marty or anyone, please put all together those tools in one download. thanks!

---

Quote:

---

Originally Posted by stewie

could someone make an install file for the one with the vbcode tag inside it because i have no idea what to do with those files in the post above my last one

---

Done. See post #1.

Updated 05/09/2006. Please see post #1.

Quote:

---

Originally Posted by MartinLiss

Updated 05/09/2006. Please see post #1.

---

Thanks Marty!

Hi,

I've attempted to integrate RobDog888's Advanced VB/Office Guru™ SpellChecker™ into Martin's spellCheck script. It's not perfect, so if anyone would like to test it please go ahead; any suggestions or fixes will be welcomed

I've tested it with W2K and Office 10 (2002)

To test open C:\WINNT\Vb-World
Make a copy of SpellCheck.htm rename it to SpellCheck.old
Then paste the code below into SpellCheck.htm and save, create a test page with a textarea on it enter some text select it, right click it and choose SpellCheck.

VB Code:

<!--
+---------------------------------------------------------------------------+
    VB-WORLD Forums - Tagging Scripts 1.0
    Martin Liss
    Integrated with RobDog's Advanced VB/Office Guru SpellChecker
    [url]http://www.vbforums.com/showthread.php?t=350402[/url]
    Function:    Spell Checker v2.0
    Description: This script uses Microsoft Word to check the spelling in
                 posts. Word is assumed to be present.
 
+---------------------------------------------------------------------------+
-->
 
<script type="text/vbscript">
Const wdWindowStateNormal=0
Const wdWindowStateMaximize=1
Const wdWindowStateMinimize=2
Const wdDialogToolsSpellingAndGrammar=828
 
Dim objWindow
Dim objSource
Dim objSelect
Dim objSelectRange
 
Set objWindow = window.external.menuArguments
Set objSource = objWindow.event.srcElement
Set oDocument = objWindow.document
Set objSelect = oDocument.selection
Set objSelectRange = objSelect.createRange()
 
If objSource.tagName = "TEXTAREA" And Len(objSelectRange.text)>0 Then
    Dim sc: Set sc = New SpellChecker
    objSelectRange.text=sc.CheckThis(objSelectRange.text)
    Set sc=Nothing
End If
 
 
Class SpellChecker
    Dim moApp, mbKillMe
 
    Public Property Get KillMe()
        KillMe = mbKillMe
    End Property
 
    Public Property Let KillMe(Value)
        mbKillMe = Value
    End Property
 
    Private Sub Class_Initialize()
        On Error Resume Next
        '<INITIALIZE WORD>
        Set moApp = GetObject(, "Word.Application")
        'window.alert(TypeName(moApp))
        If TypeName(moApp) = "Empty" Or TypeName(moApp) = "Nothing" Then
            ' Word is not currently running.
            ' launch it and set flag to close it when done
            Set moApp = CreateObject("Word.Application")
            mbKillMe = True
        End If
    End Sub
 
    Private Sub Class_Terminate()
        If KillMe = True Then
            moApp.Quit False
        End If
        Set moApp=Nothing
    End Sub
 
    Public Function CheckThis(ByVal msSpell)
        On Error GoTo 0 'Resume Next
 
        Dim oDoc 'As Word.Document
        Dim iWSE 'As Integer
        Dim iWGE 'As Integer
        Dim sReplace 'As String
        Dim lResp 'As Long
 
        If msSpell = "" Then Exit Function
        'window.alert(TypeName(moApp) & vbNewLine & moApp.Version)
        Select Case moApp.Version
            Case "9.0", "10.0", "11.0"
                Set oDoc = moApp.Documents.Add(, , 1, True)
            Case "8.0"
                Set oDoc = moApp.Documents.Add
            Case Else
                window.alert("Unsupported version of word.")' & moApp.Version)
                Exit Function
        End Select
 
        oDoc.Words.First.InsertBefore msSpell
        iWSE = oDoc.SpellingErrors.Count
        iWGE = oDoc.GrammaticalErrors.Count
        '<CHECK SPELLING AND GRAMMER DIALOG BOX>
        If iWSE > 0 Or iWGE > 0 Then
            '<HIDE MAIN WORD WINDOW>
            moApp.Visible = False
            If (moApp.WindowState = wdWindowStateNormal) Or (moApp.WindowState = wdWindowStateMaximize) Then
                moApp.WindowState = wdWindowStateMinimize
            Else
                moApp.WindowState = wdWindowStateMinimize
            End If
            '</HIDE MAIN WORD WINDOW>
            '<PREP CHECK SPELLING OPTIONS DIALOG BOX (MODIFY TO YOUR PREFERENCES)>
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.CheckGrammarWithSpelling = True
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.SuggestSpellingCorrections = True
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.IgnoreUppercase = True
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.IgnoreInternetAndFileAddresses = True
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.IgnoreMixedDigits = False
            moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Application.Options.ShowReadabilityStatistics = False
            '</PREP CHECK SPELLING OPTIONS DIALOG BOX (MODIFY TO YOUR PREFERENCES)>
            '<DO ACTUAL SPELL CHECKING>
            moApp.Visible = True
            moApp.Activate
            lResp = moApp.Dialogs(wdDialogToolsSpellingAndGrammar).Display
            '</DO ACTUAL SPELL CHECKING>
            If lResp < 0 Then
                moApp.Visible = True
                window.alert("Applying corrections!")
                Call Window.ClipboardData.SetData("Text","") 'Clipboard.Clear
 
                oDoc.Select
                oDoc.Range.Copy
                sReplace = Window.ClipboardData.GetData("Text") 'sReplace = Clipboard.GetText(1)
                '<FIX FOR POSSIBLE EXTRA LINE BREAK AT END OF TEXT>
                If (InStrRev(sReplace, Chr(13) & Chr(10))) = (Len(sReplace) - 1) Then
                    sReplace = Mid(sReplace, 1, Len(sReplace) - 2)
                End If
                '</FIX FOR POSSIBLE EXTRA LINE BREAK AT END OF TEXT>
                CheckThis = sReplace
            ElseIf lResp = 0 Then
                window.alert("Spelling corrections have been canceled!")
                CheckThis = msSpell
            End If
        Else
            window.alert("No spelling errors found or no suggestions available!")
            CheckThis = msSpell
        End If
        '</CHECK SPELLING AND GRAMMER DIALOG BOX>
        oDoc.Close False
        Set oDoc = Nothing
        '<HIDE WORD IF THERE ARE NO OTHER INSTANCES>
        If KillMe = True Then
            moApp.Visible = False
        End If
        '</HIDE WORD IF THERE ARE NO OTHER INSTANCES>
 
        If Err.Number <> 0 Then
            If Err.Number = "91" Then
                'Resume Next
            ElseIf Err.Number = "462" Then
                window.alert("Spell checking is temporary un-available!  Try again after program re-start.")
            ElseIf Err.Number = 429 Then
                Set moApp = Nothing
                'Resume Next
            Else
                window.alert(Err.Number & " " & Err.Description)
            End If
        End If
    End Function
End Class
</script>

I don't have time to update the installation package but here is a new vbcode htm file that you can substitute for the old one. This one will format your VB code in the new fashion.

Marty, What's the difference of the old one (date 05-09-2006) with this new one? correct me if im wrong...I compared the code of the old against the new one and it seem they are the same?

This version has

oSelectRange.text = "[highlight='vb']" & oSelectRange.text & "[/highlight]"