Re: Beginner question

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Worked! Thanks!!
Jim
"Jay Freedman" <jay.freedman@xxxxxxxxxxx> wrote in message news:7fbe44tg7d177cmeecrnjhp0neqsu887ic@xxxxxxxxxx
The error occurs on the CurrPane.Selection.GoTo, not on the With DoSearch. The
error's text is "Object variable or With block variable not set", and what it's
trying to tell you is that you declared the variable CurrPane but you never
assigned a value to it. Since that object variable doesn't have a value, you
can't use any of its members.

To verify this, run the macro by putting the cursor in the code in the VBA
editor and executing one statement at a time by pressing F8. Notice which
statement is highlighted when the error occurs.

You can make the macro work by inserting this line in place of the commented-out
ActiveDocument.ActiveWindow statement:

Set CurrPane = ActiveWindow.ActivePane

As you learn more VBA, you'll learn that it's better to use a Range object
instead of the Selection object in applications like this... but that's another
subject. :-)

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all
may benefit.

On Wed, 4 Jun 2008 14:54:15 -0600, "Jim Szatkowski" <jamesski@xxxxxxxxx> wrote:

I'm using Word 2003 on a Vista Business box. I've tried to duplicate a
macro shown in VBA for Dummies 4th Edition to remove highlighting of text.
I'm searching for yellow highlighting and want to simply remove it. Where
have I gone wrong - I keep getting a 91 error regarding the line "With
DoSearch" at top of repeated code section.

Macro follows:===================================================
Public Sub RemoveHighlight()
'
' RemoveHighlight Macro

Dim CurrPane As Pane
' ActiveDocument.ActiveWindow.View = wdNormalView

CurrPane.Selection.GoTo wdGoToLine, wdGoToFirst
Dim DoSearch As Find
Set DoSearch = CurrPane.Selection.Find
With DoSearch
.ClearFormatting
.Highlight = True
.MatchCase = False
While DoSearch.Execute()
With CurrPane.Selection.FormattedText
If .HighlightColorIndex = wdYellow Then
.HighlightColorIndex = wdNoHighlight
End If
End With
Wend
CurrPane.Selection.GoTo wdGoToLine, wdGoToFirst
End With
End Sub


=======================================
Thanks!
Jim
James L Szatkowski, PE, NSPE
jamesski@xxxxxxxxx
http://www.jlsce.com

.

Relevant Pages

  • Re: Beginner question
    ... The error occurs on the CurrPane.Selection.GoTo, not on the With DoSearch. ... run the macro by putting the cursor in the code in the VBA ... I'm searching for yellow highlighting and want to simply remove it. ... CurrPane.Selection.GoTo wdGoToLine, wdGoToFirst ...
    (microsoft.public.word.vba.beginners)
  • Beginner question
    ... I've tried to duplicate a macro shown in VBA for Dummies 4th Edition to remove highlighting of text. ... Where have I gone wrong - I keep getting a 91 error regarding the line "With DoSearch" at top of repeated code section. ... CurrPane.Selection.GoTo wdGoToLine, wdGoToFirst ...
    (microsoft.public.word.vba.beginners)
  • Re: Macro to show/hide rows
    ... send your worksheet to me (remove the obvious stuff from my email ... Is it highlighting a line of code when it displays the message? ... put a breakpoint on the first line of my code ... Also when I plugged in that macro I'm getting an error '1004'. ...
    (microsoft.public.excel.programming)
  • Re: Highlight New Data from Web Table Import
    ... you would need a macro. ... Microsoft MVP Excel ... "Don Guillett" wrote: ... > un-do the highlighting for the next time the table gets updated, ...
    (microsoft.public.excel.misc)
  • Re: Word Form Fields & Macros
    ... Thank you for your suggestions Jay. ... Everywhere in the code that you see a line with red highlighting, ... ' Macro created 2006-Sep-26 by Linda Sgabellone ... Within the first row of form fields, there are three columns, each ...
    (microsoft.public.word.vba.general)