It's easy! Check out this step-by-step guide for asking an anonymous question on Experts Exchange.
Dim c As Range Dim startword As String startword = "Reference: " Set c = ActiveDocument.Content c.Find.ClearFormatting c.Find.Replacement.ClearFormatting With c.Find .Text = startword .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWildcards = True End With c.Find.Execute
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.