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.