Sub FindTaskTitle() Dim FindRange As Range Set FindRange = ActiveDocument.Range With FindRange.Find .ClearFormatting .Forward = True .Format = False .Wrap = wdFindStop .MatchWildcards = False .Text = "Task Title:" Do While .Execute With Selection.Find .Text = "Task Title:" .Replacement.Text = "" .Forward = True .Execute End With Selection.MoveRight Unit:=wdCell Selection.Style = ActiveDocument.Styles("BOE Title") Loop End With End Sub
|*Best* PDF to Word Convertor||4||112|
|MS Word - What are these fields? New to 2010? 2007?||4||71|
|Maximize a Word window WITHOUT converting to Two-Page view or changing zoom||4||37|
|List of 'object codes' used by Find/Replace in Word||4||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!