Re: Insert/Remove a "!" in front of every line of a selected text

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

Hi Jay,
thank you for your quick answer. Unfortunately it does not work.
There's an error message (no. 5560) saying that the text in the field
"search for" contains an invalid comparison scheme (freelly translated
from the german version). Furthermore, the end-of-line character seems
to be not the ^13 but ^l (I guess that's the manual line break you
mentioned).
Regards,
Luca

PS: When replacing the "!" I want to replace only the one in front of
the line. The rest of the line may contain other "!", for example:
! this is a command line with a comment starting right here ! this is
the comment


Jay Freedman schrieb:

Hi Luca,

In a lot of cases, it's much quicker and easier to use Find/Replace,
especially with wildcards, than to check each possible occurrence in
sequence. For some background, you should read
http://www.gmayor.com/replace_using_wildcards.htm and
http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm.

That said, there are some quirks in Word's Find/Replace that need to be
worked around. One is that if the range to be searched exactly matches the
term you're searching for, Word won't find it. :-( Bug city. Another is that
it sometimes isn't possible to limit the Find to just the selected text, so
it becomes necessary to check each found item to make sure it's within the
original selection.

The following assumes that each "line" is really a paragraph, ending with a
paragraph mark (character 13, shown in nonprinting characters as ¶) and not
a manual line break or something else. For Fortran code that's probably a
good assumption.

Sub AddBang()
Dim oRg As Range
Set oRg = Selection.Range
With oRg.Find
.MatchWildcards = True
.ClearFormatting
.Replacement.ClearFormatting
.Text = "([!^13]{1,}^13)"
.Replacement.Text = "!\1"
.Wrap = wdFindStop
.Execute Replace:=wdReplaceAll
End With
Set oRg = Nothing
End Sub

Sub RemoveBang()
Dim oRg As Range
Dim oRgOrig As Range
Set oRg = Selection.Range
Set oRgOrig = Selection.Range

' If the selection is exactly one
' paragraph starting with a !
' then .Execute won't find it.
' Handle this case first.
If (oRg.Paragraphs.Count = 1) And _
(oRg.Characters(1).Text = "!") Then
oRg.Characters(1).Delete
Else
With oRg.Find
.MatchWildcards = True
.ClearFormatting
.Replacement.ClearFormatting
.Text = "(\!)([!^13]{1,}^13)"
.Wrap = wdFindStop
Do While .Execute
If oRg.InRange(oRgOrig) Then
oRg.Characters(1).Delete
oRg.Collapse wdCollapseEnd
End If
Loop
End With
End If

Set oRg = Nothing
Set oRgOrig = Nothing
End Sub

--
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.

JazzyXXL wrote:
Hi all,
I am an absolute beginner concerning VBA and seeking a solution to a
problem a VBA crack may solve in a few minutes. The problem is as
follows:

I need a macro that is able to put a "!" in front of each line of a
selected text. Another macro should be able to remove that "!" again,
that means it must check every line if there is a "!" as first
character and remove it.

I need these two macros to comment out Fortran code without having to
insert/remove "!" manually which is very tedious when dealing with
thousands of command lines.

Can someone help me?
Thanks,
Luca

.

Relevant Pages

  • Re: More on Format part of a found text string
    ... the close parentheses character ")" should be added to the list of characters ... This way, the macro ... while a Range object represents a portion of the doc ... > the selection and moving the cursor to the position after the number. ...
    (microsoft.public.word.vba.general)
  • RE: Repeatedly Change First Letter After [period][blank] to Uppercase
    ... but you apply the changes to the selection and not the range you ... what your macro does is that it changes the characters ... Then it's supposed to convert the character ... immediately following this string to uppercase because this character will be ...
    (microsoft.public.word.vba.general)
  • Re: Insert/Remove a "!" in front of every line of a selected text
    ... In a lot of cases, it's much quicker and easier to use Find/Replace, ... Set oRg = Selection.Range ... ' If the selection is exactly one ... Another macro should be able to remove that "!" ...
    (microsoft.public.word.vba.general)
  • Re: Stump on .range.characters
    ... for this sort of coding you shouldn't be using the Selection object ... other than to determine what the user wants the macro to work on. ... you don't need to select the character and extend the ...
    (microsoft.public.word.vba.beginners)
  • Re: Replae ^p in Selected Text in VBA
    ... Dim oRgOrig As Range ... Set oRg = Selection.Range ... and is designed to run over a selection (believe ... When the macro hits this combo: ...
    (microsoft.public.word.vba.general)