Thread: [Solved] Macro Needed to Insert Asnwer to A Question in Multiple Choice Format Question
View Single Post
 
Old 03-28-2014, 06:37 AM
Larry Sulky Larry Sulky is offline Windows 7 64bit Office 2010 64bit
Novice
  
Join Date: Mar 2014
Posts: 14
Larry Sulky is on a distinguished road
Default Silly me!
You'll need to change the second find statement:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Answer (A)"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
End With

Insert a Selection.MoveDown before that block, and change the .Text value as shown:

Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Answer (A"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
End With
Last edited by Larry Sulky; 03-28-2014 at 07:17 AM. Reason: accidentally included extra code lines in snippet
Reply With Quote