Find and Replace any digit

V

vvskpk

I am working in Word 2007.

I am trying for a different find and replace option but I am not getting
what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed and
without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find What" by
entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1 ^#^#^#
^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually need to
retype, hence, it will be really great if someone can give me the easiest way
to use Replace command. There are many documents with minimum 100 pages and
with phone numbers entered in different locations which I need to replace
with the format I required. Again, I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
G

Graham Mayor

It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following batch
process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a folder
Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed and click
OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to replace.", _
"Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found text?",
_
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>




Greg said:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed
and without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1
^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually
need to retype, hence, it will be really great if someone can give me
the easiest way to use Replace command. There are many documents with
minimum 100 pages and with phone numbers entered in different
locations which I need to replace with the format I required. Again,
I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
G

Greg Maxey

Graham,

Well said. Perfectly expressed. I missed the part on omiting the dashes.

Graham said:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following batch
process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a folder
Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed and
click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg said:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed
and without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1
^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually
need to retype, hence, it will be really great if someone can give
me the easiest way to use Replace command. There are many documents
with minimum 100 pages and with phone numbers entered in different
locations which I need to replace with the format I required. Again,
I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
G

Graham Mayor

I missed it too until I tested the macro and saw the result ;)

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Greg said:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham said:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a folder
Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed and
click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg said:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed
and without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1
^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually
need to retype, hence, it will be really great if someone can give
me the easiest way to use Replace command. There are many documents
with minimum 100 pages and with phone numbers entered in different
locations which I need to replace with the format I required.
Again, I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
G

Greg Maxey

Considering your thoroughness, I think you should be absolved of the crime
of expressing yourself poorly. You should not have to care that heavy
burden of guilt.
Do you think it would do any good to petition an appeal from the self
appointed newsgroup courtesy and expression quality policeman?

Graham said:
I missed it too until I tested the macro and saw the result ;)


Greg said:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham said:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a folder
Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed
and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg Maxey wrote:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed
and without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1
^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually
need to retype, hence, it will be really great if someone can give
me the easiest way to use Replace command. There are many
documents with minimum 100 pages and with phone numbers entered
in different locations which I need to replace with the format I
required. Again, I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
D

Doug Robbins - Word MVP

I guess you meant to say "carry", not "care"

But also, did you get the gender of the member of the police service
correct?

<G, D & R V,V,F>

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

Greg Maxey said:
Considering your thoroughness, I think you should be absolved of the crime
of expressing yourself poorly. You should not have to care that heavy
burden of guilt.
Do you think it would do any good to petition an appeal from the self
appointed newsgroup courtesy and expression quality policeman?

Graham said:
I missed it too until I tested the macro and saw the result ;)


Greg said:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham Mayor wrote:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a folder
Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed
and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg Maxey wrote:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1 prefixed
and without brackets and dashes, like this, +1 000 000 0000.
Now, I am able to find the numbers using ^# (any digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is +1
^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but manually
need to retype, hence, it will be really great if someone can give
me the easiest way to use Replace command. There are many
documents with minimum 100 pages and with phone numbers entered
in different locations which I need to replace with the format I
required. Again, I am using Vista and Word 2007

Many thanks in advance!


vvskpk
 
G

Greg Maxey

I guess you meant to say "carry", not "care"

You may often wonder, but never know. It could have been intentional and
fodder for my critics. ;-)
I guess you meant to say "carry", not "care"
<G, D & R V,V,F>

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

Greg Maxey said:
Considering your thoroughness, I think you should be absolved of the
crime of expressing yourself poorly. You should not have to care
that heavy burden of guilt.
Do you think it would do any good to petition an appeal from the self
appointed newsgroup courtesy and expression quality policeman?

Graham said:
I missed it too until I tested the macro and saw the result ;)


Greg Maxey wrote:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham Mayor wrote:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a
folder Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed
and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg Maxey wrote:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1
prefixed and without brackets and dashes, like this, +1 000 000
0000. Now, I am able to find the numbers using ^# (any digit) in
"Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is
+1 ^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but
manually need to retype, hence, it will be really great if
someone can give me the easiest way to use Replace command.
There are many documents with minimum 100 pages and with phone
numbers entered in different locations which I need to replace
with the format I required. Again, I am using Vista and Word
2007 Many thanks in advance!


vvskpk
 
V

vvskpk

Hi
Thanks for your kind suggestions. BUT I am sorry to say that it's not
working. I tried putting this in the Find and Replace but is not working. In
Find What I typed/copied "\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})" and in
Replace with I typed "+1 \1 \2 \3". It is giving me error saying "Word has
finished searching the document. The search item was not found". If this
thread is still active, please suggest new or correct exisiting one. I am
posting this again hoping that this thread is not active.

Please help me! Really appreacite your authenticity, knowledge, experience
and transparency in sharing about the subject.

Greg Maxey said:
I guess you meant to say "carry", not "care"

You may often wonder, but never know. It could have been intentional and
fodder for my critics. ;-)
I guess you meant to say "carry", not "care"
<G, D & R V,V,F>

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

Greg Maxey said:
Considering your thoroughness, I think you should be absolved of the
crime of expressing yourself poorly. You should not have to care
that heavy burden of guilt.
Do you think it would do any good to petition an appeal from the self
appointed newsgroup courtesy and expression quality policeman?

Graham Mayor wrote:
I missed it too until I tested the macro and saw the result ;)


Greg Maxey wrote:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham Mayor wrote:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a
folder Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be modifed
and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the found
text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As Word.Range, _
ByVal strSearch As String, _
ByVal strReplace As String)
'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
End Sub



Greg Maxey wrote:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am not
getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1
prefixed and without brackets and dashes, like this, +1 000 000
0000. Now, I am able to find the numbers using ^# (any digit) in
"Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is
+1 ^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but
manually need to retype, hence, it will be really great if
someone can give me the easiest way to use Replace command.
There are many documents with minimum 100 pages and with phone
numbers entered in different locations which I need to replace
with the format I required. Again, I am using Vista and Word
2007 Many thanks in advance!


vvskpk


.
 
G

Greg Maxey

Have you checked the options "More" "Use Wildcards?"

Hi
Thanks for your kind suggestions. BUT I am sorry to say that it's not
working. I tried putting this in the Find and Replace but is not
working. In Find What I typed/copied
"\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})" and in Replace with I typed
"+1 \1 \2 \3". It is giving me error saying "Word has finished
searching the document. The search item was not found". If this
thread is still active, please suggest new or correct exisiting one.
I am posting this again hoping that this thread is not active.

Please help me! Really appreacite your authenticity, knowledge,
experience and transparency in sharing about the subject.

Greg Maxey said:
I guess you meant to say "carry", not "care"

You may often wonder, but never know. It could have been
intentional and fodder for my critics. ;-)
I guess you meant to say "carry", not "care"
<G, D & R V,V,F>

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

message Considering your thoroughness, I think you should be absolved of
the crime of expressing yourself poorly. You should not have to
care that heavy burden of guilt.
Do you think it would do any good to petition an appeal from the
self appointed newsgroup courtesy and expression quality policeman?

Graham Mayor wrote:
I missed it too until I tested the macro and saw the result ;)


Greg Maxey wrote:
Graham,

Well said. Perfectly expressed. I missed the part on omiting the
dashes.
Graham Mayor wrote:
It should be
\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})
replace with
+1 \1 \2 \3
if you want to remove the dashes also.
http://www.gmayor.com/replace_using_wildcards.htm

You can paste these strings to the dialog boxes in the following
batch process to search all the documents in a folder
http://www.gmayor.com/installing_macro.htm

Public Sub BatchReplaceAnywhere()
'Macro by Doug Robbins - 1st March 2004
'with additional input from Peter Hewett
'and Graham Mayor 'to replace text in all the documents in a
folder Dim FirstLoop As Boolean
Dim myFile As String
Dim strPath As String
Dim myDoc As Document
Dim rngstory As Word.Range
Dim findText As String
Dim Replacement As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.title = "Select Folder containing the documents to be
modifed and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
'Close any documents that may be open
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
FirstLoop = True
myFile = Dir$(strPath & "*.doc")
While myFile <> ""
'Get the text to be replaced and the replacement
If FirstLoop = True Then
findText = InputBox("Enter the text that you want to
replace.", _ "Batch Replace Anywhere")
If findText = "" Then
MsgBox "Cancelled by User"
Exit Sub
End If
TryAgain:
Replacement = InputBox("Enter the replacement text.", _
"Batch ReplaceAnywhere ")
If Replacement = "" Then
Response = MsgBox("Do you just want to delete the
found text?", _
vbYesNoCancel)
If Response = vbNo Then
GoTo TryAgain
ElseIf Response = vbCancel Then
MsgBox "Cancelled by User."
Exit Sub
End If
End If
FirstLoop = False
End If
'Open each file and make the replacement
Set myDoc = Documents.Open(strPath & myFile)
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, _
findText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngstory As
Word.Range, _ ByVal strSearch
As String, _ ByVal strReplace
As String) 'This routine supplied by Peter Hewett
Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk =
ActiveDocument.Sections(1).Headers(1).Range.StoryType End Sub



Greg Maxey wrote:
Use wildcards. Find:

\(([0-9]{3})\)(-[0-9]{3}-[0-9]{4})

Replace with:

1-\1\2

vvskpk wrote:
I am working in Word 2007.

I am trying for a different find and replace option but I am
not getting what I want. Here is the scenario:

I have many documents in which the phone numbers are given as
(000)-000-0000. I want all the numbers to replace with +1
prefixed and without brackets and dashes, like this, +1 000
000 0000. Now, I am able to find the numbers using ^# (any
digit) in "Find
What" by entering(^#^#^#)-^#^#^#-^#^#^#^#.
But couldn't replace with the format I am looking for which is
+1 ^#^#^# ^#^#^# ^#^#^#^# (+1 prefixed and no dashes).
It is giving me error when I give in Replace With field.

I can still use Find What using the any digit option, but
manually need to retype, hence, it will be really great if
someone can give me the easiest way to use Replace command.
There are many documents with minimum 100 pages and with phone
numbers entered in different locations which I need to replace
with the format I required. Again, I am using Vista and Word
2007 Many thanks in advance!


vvskpk


.
 
P

Pamelia Caswell via OfficeKB.com

This is a special kind of search. You must put a check in the card box.
(Click "more" in the find dialog to reveal more options.)

HTH,
Pam
Hi
Thanks for your kind suggestions. BUT I am sorry to say that it's not
working. I tried putting this in the Find and Replace but is not working. In
Find What I typed/copied "\(([0-9]{3})\)-([0-9]{3})-([0-9]{4})" and in
Replace with I typed "+1 \1 \2 \3". It is giving me error saying "Word has
finished searching the document. The search item was not found". If this
thread is still active, please suggest new or correct exisiting one. I am
posting this again hoping that this thread is not active.

Please help me! Really appreacite your authenticity, knowledge, experience
and transparency in sharing about the subject.
[quoted text clipped - 169 lines]
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top