Re: replace all ^p 's unless followed by a date
- From: "Jay Freedman" <jay.freedman@xxxxxxxxxxx>
- Date: Tue, 4 Nov 2008 14:44:51 -0500
Word's Find/Replace isn't really set up to do exceptions. You could program
a macro that does a Find for each ^p and then tries to figure out whether
the text that follows it matches the rest of your pattern, but that would be
horribly inefficient and slow. A better method is to do three "Replace All"
steps:
1. Use a wildcard search (that is, include .MatchWildcards = True in
the settings of the Find object; see
http://www.gmayor.com/replace_using_wildcards.htm) for
^13([0-9][0-9]-[A-Z]{3}-20[0-9][0-9])
and replace with
~~\1
so each date that was preceded by a paragraph mark is now
preceded by two tildes (the assumption being that two tildes
won't appear anywhere else in the document).
2. Search (without wildcards) for
^p
and replace with nothing (that is, .Replacement.Text = "").
3. Search for
~~
and replace with
^p
--
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.
Brent Whaling wrote:
I am using word to prepare a delimited file to be imported into Excel
and am having trouble getting rid of extra ^p characters.
Basically, starting with the second line of the file I need to remove
all ^p unless they are immediately followed by the date (ex.
04-NOV-2008). I've figured out the pattern mask
(^p^#^#-^$^$^$-20^#^#).
I was hoping to use "Find and Replace" code but I'm wondering how to
create the above exception. Maybe a properly place "if" statement or
perhaps there is a property of "Find" that I'm not aware of.
Any help would be much appreciated.
Until now I've been doing it this way but I keep finding more and
more ^p characters and I would like to implement a more elegant
solution.
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("C:\temp\esi_monitor.dat")
wdApp.Visible = True
With wdDoc.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ".^p.^p"
.Replacement.Text = ".."
.Execute Replace:=wdReplaceAll
End With
With wdDoc.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^p)"
.Replacement.Text = ")"
.Execute Replace:=wdReplaceAll
End With
With wdDoc.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "D^p@"
.Replacement.Text = "D@"
.Execute Replace:=wdReplaceAll
End With
With wdDoc.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\@|"
.Replacement.Text = "\&|"
.Execute Replace:=wdReplaceAll
End With
wdDoc.SaveAs "C:\temp\esi_monitor.dat"
wdDoc.Close
wdApp.Quit
.
- Follow-Ups:
- Re: replace all ^p 's unless followed by a date
- From: Brent Whaling
- Re: replace all ^p 's unless followed by a date
- References:
- replace all ^p 's unless followed by a date
- From: Brent Whaling
- replace all ^p 's unless followed by a date
- Prev by Date: replace all ^p 's unless followed by a date
- Next by Date: Re: Use Word just as a viewer (no menus, toolbars or ribbons)
- Previous by thread: replace all ^p 's unless followed by a date
- Next by thread: Re: replace all ^p 's unless followed by a date
- Index(es):
Relevant Pages
|
Loading
