how to italicize text between characters
in [Word VBA]
|
Prev: having trouble with removing ^p at end of lines
Next: The host 'gabriel' could not be found. Please verify that you hav
From: Keith G Hicks on 19 Dec 2009 15:14 Word vba 2003. Okay, this has to be easy but after an hour I'm not getting this to work. I need to italicize text that's between ^ markers. For example: Now ^is^ the time for all ^good^ men to come to the aid of ^their^ country.... The ^ are ALWAYS in pairs. I need all the text that's between ^ to be in italics. I'm seearching for the first instance of the ^ and I can find it but then I need to set the range to be the text between (it can include the ^ too, that's okay) and then italicize it. Then I need to remove all the ^ in the entire doc. Like I said, just not figuring out how to mark the end as the 2nd ^ in my loop. Here's the mess I'm workign with: With Selection .HomeKey wdStory With .Find .ClearFormatting .Replacement.ClearFormatting While .Execute(findtext:="^", MatchWildcards:=False) Set oRng = Selection.Range oRng.End = .Execute(findtext:="^", MatchWildcards:=False) 'oRng.End = oRng.Next(wdCharacter, 1).End oRng.Font.Italic = True If .Execute(findtext:="^", MatchWildcards:=False) Then oRng.End = oRng.GoTo.Find End If 'sNewTextFound = oRng 'If sNewTextFound <> sPrevTextFound Then ' oRng.InsertBefore vbCrLf ' sPrevTextFound = sNewTextFound 'End If Wend End With End With Keith
From: macropod on 19 Dec 2009 15:59 Hi Keith Try using a wildcard Find/Replace with: Find = '(^94[!^94]{1,}^94)' Replace = '^&' (making the replacement font bold and omitting the tick marks in both cases) No macro required (though you could use one, somply recording the above). -- Cheers macropod [Microsoft MVP - Word] "Keith G Hicks" <krh(a)comcast.net> wrote in message news:Om4wpfOgKHA.2184(a)TK2MSFTNGP04.phx.gbl... > Word vba 2003. > > Okay, this has to be easy but after an hour I'm not getting this to work. I > need to italicize text that's between ^ markers. > > For example: > > Now ^is^ the time for all ^good^ men to come to the aid of ^their^ > country.... > > The ^ are ALWAYS in pairs. I need all the text that's between ^ to be in > italics. I'm seearching for the first instance of the ^ and I can find it > but then I need to set the range to be the text between (it can include the > ^ too, that's okay) and then italicize it. Then I need to remove all the ^ > in the entire doc. > > Like I said, just not figuring out how to mark the end as the 2nd ^ in my > loop. Here's the mess I'm workign with: > > With Selection > .HomeKey wdStory > With .Find > .ClearFormatting > .Replacement.ClearFormatting > While .Execute(findtext:="^", MatchWildcards:=False) > Set oRng = Selection.Range > oRng.End = .Execute(findtext:="^", MatchWildcards:=False) > 'oRng.End = oRng.Next(wdCharacter, 1).End > oRng.Font.Italic = True > If .Execute(findtext:="^", MatchWildcards:=False) Then > oRng.End = oRng.GoTo.Find > End If > > 'sNewTextFound = oRng > 'If sNewTextFound <> sPrevTextFound Then > ' oRng.InsertBefore vbCrLf > ' sPrevTextFound = sNewTextFound > 'End If > Wend > End With > End With > > Keith > >
From: Greg Maxey on 20 Dec 2009 08:40 Sub FindAndItalicBoundText() Dim oRng As Range Set oRng = ActiveDocument.Content With oRng.Find .ClearFormatting .Text = "^^<*>^^" .Forward = True .Wrap = wdFindStop .MatchWildcards = True Do While .Execute With oRng .Characters.First.Delete .Characters.Last.Delete .Font.Italic = True .Collapse wdCollapseEnd End With Loop End With End Sub "Keith G Hicks" <krh(a)comcast.net> wrote in message news:Om4wpfOgKHA.2184(a)TK2MSFTNGP04.phx.gbl... > Word vba 2003. > > Okay, this has to be easy but after an hour I'm not getting this to work. > I need to italicize text that's between ^ markers. > > For example: > > Now ^is^ the time for all ^good^ men to come to the aid of ^their^ > country.... > > The ^ are ALWAYS in pairs. I need all the text that's between ^ to be in > italics. I'm seearching for the first instance of the ^ and I can find it > but then I need to set the range to be the text between (it can include > the ^ too, that's okay) and then italicize it. Then I need to remove all > the ^ in the entire doc. > > Like I said, just not figuring out how to mark the end as the 2nd ^ in my > loop. Here's the mess I'm workign with: > > With Selection > .HomeKey wdStory > With .Find > .ClearFormatting > .Replacement.ClearFormatting > While .Execute(findtext:="^", MatchWildcards:=False) > Set oRng = Selection.Range > oRng.End = .Execute(findtext:="^", MatchWildcards:=False) > 'oRng.End = oRng.Next(wdCharacter, 1).End > oRng.Font.Italic = True > If .Execute(findtext:="^", MatchWildcards:=False) Then > oRng.End = oRng.GoTo.Find > End If > > 'sNewTextFound = oRng > 'If sNewTextFound <> sPrevTextFound Then > ' oRng.InsertBefore vbCrLf > ' sPrevTextFound = sNewTextFound > 'End If > Wend > End With > End With > > Keith >
From: macropod on 20 Dec 2009 15:08
To delete the '^' characters at the same time, try using a wildcard Find/Replace with: Find = '^94([!^94]{1,})^94' Replace = '\1' (making the replacement font bold and omitting the tick marks in both cases) -- Cheers macropod [Microsoft MVP - Word] "macropod" <macropod(a)invalid.invalid> wrote in message news:u58VH4OgKHA.3552(a)TK2MSFTNGP06.phx.gbl... > Hi Keith > > Try using a wildcard Find/Replace with: > Find = '(^94[!^94]{1,}^94)' > Replace = '^&' > (making the replacement font bold and omitting the tick marks in both cases) > > No macro required (though you could use one, somply recording the above). > > -- > Cheers > macropod > [Microsoft MVP - Word] > > > "Keith G Hicks" <krh(a)comcast.net> wrote in message news:Om4wpfOgKHA.2184(a)TK2MSFTNGP04.phx.gbl... >> Word vba 2003. >> >> Okay, this has to be easy but after an hour I'm not getting this to work. I >> need to italicize text that's between ^ markers. >> >> For example: >> >> Now ^is^ the time for all ^good^ men to come to the aid of ^their^ >> country.... >> >> The ^ are ALWAYS in pairs. I need all the text that's between ^ to be in >> italics. I'm seearching for the first instance of the ^ and I can find it >> but then I need to set the range to be the text between (it can include the >> ^ too, that's okay) and then italicize it. Then I need to remove all the ^ >> in the entire doc. >> >> Like I said, just not figuring out how to mark the end as the 2nd ^ in my >> loop. Here's the mess I'm workign with: >> >> With Selection >> .HomeKey wdStory >> With .Find >> .ClearFormatting >> .Replacement.ClearFormatting >> While .Execute(findtext:="^", MatchWildcards:=False) >> Set oRng = Selection.Range >> oRng.End = .Execute(findtext:="^", MatchWildcards:=False) >> 'oRng.End = oRng.Next(wdCharacter, 1).End >> oRng.Font.Italic = True >> If .Execute(findtext:="^", MatchWildcards:=False) Then >> oRng.End = oRng.GoTo.Find >> End If >> >> 'sNewTextFound = oRng >> 'If sNewTextFound <> sPrevTextFound Then >> ' oRng.InsertBefore vbCrLf >> ' sPrevTextFound = sNewTextFound >> 'End If >> Wend >> End With >> End With >> >> Keith >> >> |