Delete table lines/Condense table

frustrated teacher · #1 12-13-2015, 01:47 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 tables.

1. This animal says meow.
a. cat
b. dog

c. mouse
d. bird

ANS: A

2. This animal says woof.
a. cat
b. dog
c. mouse
d. bird

ANS: B

3. Birds have wings.

ANS: T

Ideally, I would like it to look like:

This animal says meow. a. cat

This animal says woof. b. dog

Birds have wings. T

I had a similar macro that I was taught last year on this forum:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Text = "([0-9]@\)*^13)(*)(Answer:*^13)"
    .Replacement.Text = "\1\3\2"
    .Execute Replace:=wdReplaceAll
    .Text = "^13^13"
    .Replacement.Text = "^px^&"
    .Execute Replace:=wdReplaceAll
    .Text = "[0-9]@\) (*Answer:*)([A-Z])*(\2\)*^13)*^13{2}"
    .Replacement.Text = "\1\3^p"
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

However, that deals with a different initial format.
I have attached a sample:
sampletext.docx

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copying multiple lines in a table	Surge	Word	3	09-19-2015 04:01 AM
How can I delete spaces & lines in a table cell	mrayncrental	Word VBA	3	10-20-2014 07:09 PM
How do I make invisible the lines in the table	Snvlsfoal	Word Tables	1	08-11-2011 05:45 AM
table composed from lines (drawing)	czomberzdaniela	Word Tables	8	04-12-2011 05:48 AM
Adding table lines to protected form	razberri	Word Tables	2	10-27-2010 05:58 PM