replace words between two symbols

capitala · #1 01-31-2014, 11:34 AM

I'm working heavily on contracts and agreements (word 2003). so many terms (words) needs to be bold. to save my time I usually put them between the symbols " " and at the end I search for these symbols and start making them bold one by one.

Is there any code to automate this process i.e.:
to search the symbols " " and make the words between them in bold.

Is it possible? thanks in advance

gmaxey · #2 01-31-2014, 12:49 PM

This should do it:

Code:

Sub SearchInQuotes()
Dim bWC As Boolean
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
   .MatchWildcards = True
   'find curly
   '.Text = "^0147*^0148"
   'Find straight
   '.Text = "^34*^34"
   'Find both
   .Text = "[^34^0147]*[^34^0148]"
   While .Execute
     oRng.Characters(1).Delete
     oRng.Characters.Last.Delete
     oRng.Font.Bold = True
     oRng.Collapse wdCollapseEnd
   Wend
End With
End Sub

capitala · #3 01-31-2014, 01:01 PM

Dear Greg.
First of all thanks alot.
the code only removed the "" characters.
If you please; I'd like to keep the "" characters as is and make the text between them (bold)
Thanks in advance

gmaxey · #4 01-31-2014, 01:16 PM

Sub SearchInQuotes()
Dim bWC As Boolean
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.MatchWildcards = True
'find curly
'.Text = "^0147*^0148"
'Find straight
'.Text = "^34*^34"
'Find both
.Text = "[^34^0147]*[^34^0148]"
While .Execute
'oRng.Characters(1).Delete
'oRng.Characters.Last.Delete
oRng.Font.Bold = True
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub

capitala · #5 01-31-2014, 02:28 PM

Good evening Greg,
It seems my description wasn't clear. Hereunder, a sample to what exactly I was searching for.
Thanks for your help

As is text

To be after VBA code
"Register" abc
"Register" abc
The overall "revenue" is
The overall "revenue" is

gmaxey · #6 01-31-2014, 02:31 PM

This finds text between quotes and bolds the text leaving the quotes unbolded:

Code:

Sub SearchInQuotes()
Dim bWC As Boolean
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.MatchWildcards = True
'find curly
'.Text = "^0147*^0148"
'Find straight
'.Text = "^34*^34"
'Find both
.Text = "[^34^0147]*[^34^0148]"
While .Execute
oRng.MoveStart wdCharacter, 1
oRng.MoveEnd wdCharacter, -1
oRng.Font.Bold = True
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub

capitala · #7 02-01-2014, 01:11 AM

I tried with the latest code but nothing happens at all in the document.
sorry to disturb you Greg but it's urgent to me. thanks

capitala · #8 02-01-2014, 05:06 AM

I'm sorry, I was trying on Arabic text. when I tried the code on English text it works perfect but with Arabic not functioning.
Furthermore, please, how to get the code for the other characters like ?, = , {}?
thaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaanks

capitala · #9 02-01-2014, 02:04 PM

I was trying on Arabic text. when I tried the code on English text it works perfect but with Arabic not functioning.
Furthermore, please, how to get the code for the other characters like ?, = , {}?

macropod · #10 02-03-2014, 03:57 AM

Cross-posted, without even acknowledging the prior assistance given here, at: http://www.excelforum.com/word-progr...rd-2013-a.html
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replace words within headers in multiple document	Carchee	Word VBA	14	12-19-2013 04:36 PM
Highlight and then replace multiple words	redhin	Word VBA	5	03-05-2013 05:42 AM
Macro to replace few words in the document	ubns	Word VBA	7	08-16-2012 10:33 PM
Find and Replace - symbols	clisco	Word	5	01-03-2010 05:57 AM