Bolding in script

pentagram_31 · #1 02-23-2015, 08:29 AM

Thanks for your reply. In the meantime, I tried and found sth like this and it works like charm for me so far:

Code:

Sub Makro5()

Selection.Find.ClearFormatting
With Selection.Find
   .Text = "A)"
   .Forward = True
   '.Wrap = wdFindContinue
   .Format = False
   .MatchCase = True
   .MatchWholeWord = True
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection.Find.Found = True Then
    
    Selection.MoveUp Unit:=wdParagraph, Count:=3, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    Selection.MoveDown Unit:=wdParagraph, Count:=2
End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with VBA script	nsyrax	Word VBA	1	01-18-2014 03:38 AM
Outlook Script Help	TheInfinetGroup	Outlook	1	03-02-2013 07:43 AM
Add Shared Calendar using script	Antros	Outlook	0	03-15-2012 01:01 PM
Script Doesn't works on other machine	ravininave	Word	1	01-05-2011 01:45 PM
[ask] about VB Script + Ms. Project	anak_baru	Project	2	03-10-2009 01:42 AM