Text manipulation in MACRO

macropod · #16 03-10-2013, 04:31 PM

Having now seen what you're doing, I might add that all of the Find/Replace expressions I've provided could be rolled up into a single macro:

Code:

Sub Demo()
With ActiveDocument.Content.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  .Text = "([!^13]@^13)(*^13)([!^13]^13)([!^13]@^13)[!^13]@^13([!^13]@^13)"
  .Replacement.Text = "AN \1AC \3AH \4AL \5\2"
  .Execute Replace:=wdReplaceOne
  .Text = "(DP )([!^13]{1,})([^13]VD*VX[!^13]{1,}[^13])(DP )([!^13]{1,}[^13])"
  .Replacement.Text = "\1\2\3DB \2,\5\4\5"
  .Execute Replace:=wdReplaceAll
  .Text = "<Front[!0-9]{1,}"
  .Replacement.Text = "**French border**^p"
  .Execute Replace:=wdReplaceAll
End With
End Sub

srt · #17 03-10-2013, 04:42 PM

Thanks a lot for that,

But I'm now not too sure of input text for this lattest macro you've wrote me

Because I can't get it working with this exemple:

TMA LORRAINE partie 5
49º09’22”N,006º49’12”E -- Frontière franco--allemande
-- 49º09’04”N,006º50’02”E -- 49º02’02”N,006º59’35”E --
49º01’06”N,006º57’56”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
48º57’22”N,006º57’57”E -- 48º53’58”N,007º04’08”E --
48º46’19”N,006º54’21”E -- 48º49’46”N,006º48’06”E --
arc horaire de 10NM de rayon centré sur
48º59’11”N,006º42’58”E (GTQ) --
48º49’12”N,006º42’05”E -- 48º47’54”N,006º39’37”E --
49º08’00”N,006º34’45”E -- 49º08’00”N,006º45’20”E --
49º09’07”N,006º44’42”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
49º08’39”N,006º47’55”E -- 49º09’22”N,006º49’12”E
D
FL075
------------
4000ft AMSL

macropod · #18 03-10-2013, 04:58 PM

In what sense doesn't it work? Except for a possible issue with "Frontière franco--allemande", which gets changed to "**French border**", it works for me.

srt · #19 03-10-2013, 05:04 PM

I got an error "4198" executing it
Get stuck on : .Execute Replace:=wdReplaceOne

macropod · #20 03-10-2013, 05:23 PM

I can only produce that result by running the macro on a document in which the data in the first part of the document (ie the part to which 'TMA LORRAINE partie 5' applies) has already been reformatted.

srt · #21 03-10-2013, 05:35 PM

Which result?
Is your latest macro working for you with this text unformatted ?

TMA LORRAINE partie 5
49º09’22”N,006º49’12”E -- Frontière franco--allemande
-- 49º09’04”N,006º50’02”E -- 49º02’02”N,006º59’35”E --
49º01’06”N,006º57’56”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
48º57’22”N,006º57’57”E -- 48º53’58”N,007º04’08”E --
48º46’19”N,006º54’21”E -- 48º49’46”N,006º48’06”E --
arc horaire de 10NM de rayon centré sur
48º59’11”N,006º42’58”E (GTQ) --
48º49’12”N,006º42’05”E -- 48º47’54”N,006º39’37”E --
49º08’00”N,006º34’45”E -- 49º08’00”N,006º45’20”E --
49º09’07”N,006º44’42”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
49º08’39”N,006º47’55”E -- 49º09’22”N,006º49’12”E
D
FL075
------------
4000ft AMSL

macropod · #22 03-10-2013, 06:26 PM

Yes. I run the macro against that and it outputs:

AN TMA LORRAINE partie 5
AC D
AH FL075
AL 4000ft AMSL
49º09’22”N,006º49’12”E -- **French border**
49º09’04”N,006º50’02”E -- 49º02’02”N,006º59’35”E --
49º01’06”N,006º57’56”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
48º57’22”N,006º57’57”E -- 48º53’58”N,007º04’08”E --
48º46’19”N,006º54’21”E -- 48º49’46”N,006º48’06”E --
arc horaire de 10NM de rayon centré sur
48º59’11”N,006º42’58”E (GTQ) --
48º49’12”N,006º42’05”E -- 48º47’54”N,006º39’37”E --
49º08’00”N,006º34’45”E -- 49º08’00”N,006º45’20”E --
49º09’07”N,006º44’42”E -- arc horaire de 10NM de
rayon centré sur 48º59’11”N,006º42’58”E (GTQ) --
49º08’39”N,006º47’55”E -- 49º09’22”N,006º49’12”E

srt · #23 03-11-2013, 03:42 AM

Oh yes sorry

It works great.

So your "10 lines" code does the same thing as my "200 lines"....

Wildcards can be very powerful ! (Skills as well

srt · #24 03-13-2013, 12:37 PM

Hi Macropod,
Me again!
Could you help me understand something
I've now this Macro which works almost as I wish.

Quote:

Sub Mise_en_Forme()
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "([!^13]@^13)(*^13)([!^13]^13)([!^13]@^13)[!^13]@^13([!^13]@^13)"
.Replacement.Text = "** \1AC \3AN \1AH \4AL \5\2"
.Execute Replace:=wdReplaceOne
.Text = "\(*\)"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = " -- "
.Replacement.Text = "^13"
.Execute Replace:=wdReplaceAll
.Text = "-- "
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = "--"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = " --"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = "(arc h)"
.Replacement.Text = "V D=+^13"
.Execute Replace:=wdReplaceAll
.Text = "(arc antih)"
.Replacement.Text = "V D=-^13"
.Execute Replace:=wdReplaceAll
.Text = "<o*r>"
.Replacement.Text = "V X"
.Execute Replace:=wdReplaceAll
.Text = "[X]^13"
.Replacement.Text = "X "
.Execute Replace:=wdReplaceAll
.Text = "([^13])([0-9])"
.Replacement.Text = "\1DP \2"
.Execute Replace:=wdReplaceAll
.Text = "º"
.Replacement.Text = ":"
.Execute Replace:=wdReplaceAll
.Text = ChrW(8221)
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "'"
.Replacement.Text = ":"
.Execute Replace:=wdReplaceAll
.Text = ","
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "(DP )([!^13]{1,})([^13]V D*V X[!^13]{1,}[^13])(DP )([!^13]{1,}[^13])"
.Replacement.Text = "\1\2\3DB \2,\5\4\5"
.Execute Replace:=wdReplaceAll
.Text = "<Front[!0-9]{1,}"
.Replacement.Text = "**French border**^pDP "
.Execute Replace:=wdReplaceAll

End With

End Sub

It works great on this exemple:

Quote:

TMA LYON partie 01.1 ”Tour du Pin”
45º37’25”N,005º23’53”E -- 45º33’11”N,005º25’11”E --
arc horaire de 18NM de rayon centré sur
45º44’44”N,005º05’26”E (VOR/DME LSE) --
45º31’52”N,005º23’26”E -- 45º34’00”N,005º21’00”E --
45º37’25”N,005º23’53”E
C
4500ft AMSL
------------
2500ft AMSL

But not on this one:

Quote:

LF P 4 LACQ
43º25’15”N,000º40’35”W -- 43º25’45”N,000º39’20”W --
43º23’22”N,000º33’45”W -- arc horaire de 5km de rayon
centré sur 43º23’53”N,000º37’22”W --
43º25’15”N,000º40’35”W
4100ft AMSL
------------
SFC

And I can't see the difference between these two examples
When I Copy/Paste from PDF file, I use "Paste without formating"
Could you illuminate the situation for me?

Thank you

Marc.

macropod · #25 03-13-2013, 02:03 PM

It doesn't work on the second one because that one doesn't have a paragraph with only a single character before the 4100ft AMSL.

srt · #26 03-13-2013, 03:25 PM

ouch....
I'm so clueless...
tx

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Macro to find text in between two characters and then format selected text?	qcom	Word	5	02-19-2015 11:23 PM
Need help on Macro 03- Find text - if text is blank then remove line	simpleonline1234	Word VBA	1	02-25-2011 02:28 AM
Combobox manipulation	vsempoux	Word VBA	3	10-31-2009 08:58 AM
Mail merge Field Code Manipulation	macjnr	Mail Merge	0	09-10-2009 11:37 AM