Delete starting number *) and delete Unneeded data in series

frustrated teacher · #1 12-07-2014, 01:44 PM

Hello friends,

It's another year of exams for my students and I am stuck trying to upload an exam to our antiquated system.

The exam system takes a particular format, I figured out how to upload the questions, but not the answers.

The questions are in plain text, no tables that I can see.

1) This is a question #1.
A) cat
B) dog
C) mouse
D) bird
Answer: C

11) This is a question #11.
A) cat
B) dog
C) mouse
D) bird
Answer: B

Ideally, I would like it to look like:

This is question #1. Answer: C) mouse

This is question #11. Answer: B) dog

What I've tried: I've used search functions

"Find what": ^13[0-9]
"Replace with": ^p

But that only deletes one number at a time and does not delete the ")"

Ive tried:

Code:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
  .Text = "*\)" <<< and variations
  .Replacement.Text = ""
  .Forward = True
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = True
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

But it doesnt seem to like the ")"

I know how to get RID of whole lines using a variation of:

Code:

Dim oRng As Word.Range
Dim oRngDelete As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
  .Text = "word"
  While .Execute
    oRng.Select
    Set oRngDelete = ActiveDocument.Bookmarks("\Line").Range
    oRngDelete.Delete
  Wend
End With
End Sub
 
Sub ScratchMacroII()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
  .Text = "word"
  While .Execute
  oRng.Paragraphs(1).Range.Delete
  Wend
End With
End Sub

But I'm still stuck on how to automatically "chose the right whole answer" and not just the letter of the right answer

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Needed to delete Unwanted paragraphs in series	frustrated teacher	Word VBA	1	05-02-2014 03:32 PM
Macro Needed to Delete Unneeded Answers in Multiple Choice Format Question	frustrated teacher	Word VBA	6	05-02-2014 03:37 AM
Delete table if cell has data	So New2 This	Word VBA	1	05-06-2013 09:00 PM
Delete option greyed out when trying to delete row 1	tpcervelo	Excel	2	11-15-2011 06:48 AM
delete email message via blackberry and have it delete on my pop3 and my outlook	Iamthestorm	Outlook	2	10-28-2010 12:21 AM