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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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