Need a Word VBA program

[Richard]

I have Word 07 running on XP.

I would like to have a Word program to change styles in a large doc. I would
like it to first check if all the words are Normal style between the "*" and
"}" in the doc, then change the words between the "*" and "}" to "Footnote
Text" style.



I would appreciate any help I can get



Richard

 

[Shasur]

Hi Richard

Here is a hint

Sub Find_Replace_Style()

Dim FindChar
Dim ReplaceRange
Dim rngStory As Range
Dim sPos As Long
Dim ePos As Long


Selection.HomeKey wdStory, wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Format = True
Selection.Find.MatchWildcards = True
Selection.Find.Execute FindText:="\*[!}]{1,}\}"
Do While Selection.Find.Found = True
sPos = Selection.Start
ePos = Selection.End
Selection.SetRange sPos + 1, ePos - 1
If Selection.Style = "Normal" Then
Selection.Style = "FootNote"
End If
Selection.MoveRight
Selection.Find.Execute FindText:="\*[!}]{1,}\}"
Loop


End Sub


I have used WildCards to find the text. If it doesn't suit, you can use
Selection.Find and Selection.Extend

Cheers
Shasur

 

[Richard]

Thanks.... I got it to work for me

Richard

Hi Richard

Here is a hint

Sub Find_Replace_Style()

Dim FindChar
Dim ReplaceRange
Dim rngStory As Range
Dim sPos As Long
Dim ePos As Long


Selection.HomeKey wdStory, wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Format = True
Selection.Find.MatchWildcards = True
Selection.Find.Execute FindText:="\*[!}]{1,}\}"
Do While Selection.Find.Found = True
sPos = Selection.Start
ePos = Selection.End
Selection.SetRange sPos + 1, ePos - 1
If Selection.Style = "Normal" Then
Selection.Style = "FootNote"
End If
Selection.MoveRight
Selection.Find.Execute FindText:="\*[!}]{1,}\}"
Loop


End Sub


I have used WildCards to find the text. If it doesn't suit, you can use
Selection.Find and Selection.Extend

Cheers
Shasur
--
http://vbadud.blogspot.com

I have Word 07 running on XP.

I would like to have a Word program to change styles in a large doc. I
would
like it to first check if all the words are Normal style between the "*"
and
"}" in the doc, then change the words between the "*" and "}" to
"Footnote
Text" style.



I would appreciate any help I can get



Richard