Trying to wrap HTML tags around multiple different words in one operation

String · #1 06-05-2013, 06:43 AM

Hey.

Ok, I want to do something which to me seems pretty straight forward but I can't think how to do it.

In a body of text I have managed to find and use a vb macro script which will select and highlight multiple words. e.g. I can tell it to find "yellow,green,horse,cat" etc and it will find each of these words separately within the text and highlight them. This is awesome.

However, is there a way to get ms word to replace each word I tell it to find, with the same word but with HTML tags either side?

e.g. In a body of text, I want it to find every instance of the words "yellow", "green" etc. and replace each "yellow", with "<command>yellow</command>" and each "green" with "<command>green</command>". Is it possible to do this in one go if you tell it which words to look for, or would this be an operation I need to do separately for each different word?

I ask because I need to find about 200 separate words in a large body of text and have each word basically wrapped in one specific HTML tag. Seems simple enough if it was only one word I needed to find but multiple words make it more complicated.

Thanks for any help guys, its much appreciated!

macropod · #2 06-05-2013, 07:36 AM

If you provide at least a link to the macro to which you refer (better still, post a formatted copy - using code tags), someone might be able to tell you how you could modify it. It's probably a simple modification, but no-one can say exactly what to change without seeing the code.

String · #3 06-05-2013, 07:44 AM

Sure,

This is the macro code I am using to highlight each separate word. Its a very lightly modified code I found on these forums.

Code:

Sub HiLightList()
Application.ScreenUpdating = False
Dim StrFnd As String, Rng As Range, i As Long
StrFnd = "yellow,green,dog,horse"
For i = 0 To UBound(Split(StrFnd, ","))
  Set Rng = ActiveDocument.Range
  With Rng.Find
    .ClearFormatting
    .Text = Split(StrFnd, ",")(i)
    .Replacement.ClearFormatting
    .Replacement.Highlight = True
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
Next
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

So once its found and highlighted these words, I need it to wrap an HTML tag around them all.

Thx

macropod · #4 06-05-2013, 03:34 PM

You could change:
.Replacement.Text = "^&"
to:
.Replacement.Text = "<command>^&</command>"

Note that, with this approach, the entire replacement string is highlighted.

String · #5 06-06-2013, 06:23 AM

Thanks very much Paul. That seems to have worked. A few things I need to iron out, but it works really well.

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
Highlight and then replace multiple words	redhin	Word VBA	5	03-05-2013 05:42 AM
Create and populate multiple templates with merge tags	jelarbey	Word	1	10-09-2012 05:20 AM
How can I count multiple usage of the same words?	coffee_king	Word VBA	1	03-24-2012 07:52 PM
Attaching MSG file is stripped on send and HTML tags show on previewing prior to send	Fantastic4	Outlook	0	01-09-2012 12:18 PM
Making Multiple Words Bold	mtk989	Word	2	06-25-2011 11:27 AM