Replies

I used Firefox for this thread.

Thanks Andrew.

Maybe I should re-look into Table Autoformatting.

At the current moment, I found using VBA for shading easier, as the table size (number of rows and columns) on the documents are more or less fixed, ie. hardly any addition to the size. Apart from the shading, I also did formatting to the cells contents paragraph, which undeniably can be done with Table Autoformatting too. But yes, I will definitely re-look into Table Autoformatting.

Thank you once again. This forum has been super-resourceful.

PS. I did put down the version of Word I am using (Word 2003), but I guess my subject matter was too long, that the version was pushed out the box.

Regards
Rid

Thanks for the suggestion Hans.

It is a bit too much for a newbie like me, but will continue trying. For now, I will only use the multiple entries in the worksheet.

Thank you again,

By changing the .Matchcase from False to True, those matching words but not matching case are not replaced anymore. But is it possible to have the best of both world? With single entry of “abc” in A1 and “def” in B1, all “ABC”, “abc”, “Abc” are replaced with “DEF”, “def”, “Def” respectively. In order words, I do not want to enter additional “ABC” in A2, “DEF” in B2; “Abc” in A3, “Def” in B3, and so on.

Cheers
Rid

Maybe I am asking too much, but is it possible to maintain the original “case” (uppercase, lowercase, title case, etc) of the word without inserting all the possible combination in the worksheet? For example, with one single entry of word “abc” in A1 and “def” in B1, all the occurances of “abc”, “ABC”, “Abc” are replaced with “def”, “DEF”, “Def”, respectively.

Thank you.

It works wonder Hans. Thank you so much.

Asking for your kindness further, how do I go about in modifying the codes so that:
1. Search all the texts in the current Word document based on the list of words in column A of Sheet 1
2. Replace the matching word in the Word document with corresponding cell B value (ie. if there is a text that matches cell A1 value, replace the text with cell B1 value), and highlight the replaced words.

Thank you again in advance. Really appreaciate all the helps.

Rid

Spot on.

Hans has kindly provided some codes. I am testing them out now.

Thank you all.

Genius…genius….

Thank you so much…..I have managed to solve it.

Thank you.

Thank you so much Hans.

At last I am getting somewhere but not there yet.

I guess I did not make myself clear enough.

The final objective of the code is to let user highlight alternate rows with selected pattern Style and Color.

I am this far.

——————————
Dim dlgshadingborders As Dialog
Dim lastRow As Long
Dim i As Integer
Dim lngColor As Long

Set dlgshadingborders = Dialogs(wdDialogFormatBordersAndShading)
With dlgshadingborders
.DefaultTab = wdDialogFormatBordersAndShadingTabShading
.Display
lngColor = .BackgroundRGB
End With
MsgBox lngColor
lastRow = Selection.Information(wdMaximumNumberOfRows)
If lastRow <= 3 Then
MsgBox "No need for shading"
Exit Sub
End If
For i = 3 To lastRow
Selection.Tables(1).Rows(i).Select
With Selection.Tables(1).Rows(i).Shading
.Texture = wdTexture10Percent
.ForegroundPatternColor = lngColor
End With
i = i + 1
Next i
———————–
How can I shade the row with selected Texture style instead of fixing it to wdTexture10Percent ?

Thank you so much in advance.

Regards
Rid

Edited by Bigaldoc to add URL code.[/i] See the Quick Guide or 1-Click TagPanel.[/size]

Try http://www.elcomsoft.com/%5B/url%5D

Ciao.