View Single Post
 
Old 05-20-2009, 11:19 PM
Bird_FAT's Avatar
Bird_FAT Bird_FAT is offline Office 2007
Expert
 
Join Date: Apr 2009
Location: South East
Posts: 271
Bird_FAT is on a distinguished road
Default

Quote:
Originally Posted by Bahir Barak View Post
My dear :

I try the macro with changing the code , but it did not works with me , there is the file with attachments it is just empty foonotes , I want to change just the font or colour of the quotes not the number of footnoe,

Thankssss
Umm...You have:
Code:
.Text = "(*)"
as your search choice. This is telling the search and replace to change the brackets AND EVERYTHING IN BETWEEN! If you ONLY want it to effect the brackets, then you need to enter the brackets ONLY. You will need to repeat the code to search 1st for
Code:
.Text = "("
, followed by copying the code again (Everything from 'Selection.Find.ClearFormatting' to 'Wend'), and changing it to
Code:
.Text = ")"
Also you have it changing to Italic, not colour?
Code:
Selection.Font.Italic = wdToggle
you will need to change it to a colour code instead
Code:
Selection.Font.Color = wdColorRed
Reply With Quote