How to I create a macro that dynamically creates a table, to enter questions, in the below format?

gmaxey · #1 01-03-2019, 08:53 AM

If each question consists of a single paragraph and there are no other paragraphs in the document (including empty paragraphs) then something like this mash of unorganized mess might do. I don't have time to refine:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 1/3/2019
Dim oCol As New Collection
Dim lngIndex As Long
Dim oTbl As Table
Dim oRng As Range, oRngDup As Range
  Set oRng = ActiveDocument.Range
  For lngIndex = 1 To oRng.Paragraphs.Count
    oCol.Add Left(oRng.Paragraphs(lngIndex).Range.Text, Len(oRng.Paragraphs(lngIndex).Range.Text) - 1)
  Next
  Set oRngDup = oRng.Duplicate
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr
  oRng.Collapse wdCollapseEnd
  oRngDup.End = oRng.Start
  Set oTbl = oRng.Tables.Add(oRng, 4, 2)
  With oTbl
    .Style = "Table Grid"
        For lngIndex = 1 To 4
      .Cell(lngIndex, 1).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Next lngIndex
    .Columns(1).Width = 18
    .AutoFitBehavior wdAutoFitWindow
    .Cell(1, 2).Range.Text = oCol.Item(1)
    For lngIndex = 2 To oCol.Count
      .Rows.Add
      .Rows.Last.Cells(2).Range.Text = oCol.Item(lngIndex)
      .Rows.Add
      .Rows.Add
      .Rows.Add
    Next
    For lngIndex = 4 To .Rows.Count Step 4
      .Cell(lngIndex, 1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    Next lngIndex
  End With
  oRngDup.Delete
  ActiveDocument.Paragraphs(1).Range.Delete
lbl_Exit:
  Exit Sub
End Sub

MathiasFC · #2 01-04-2019, 06:25 AM

Quote:

Originally Posted by gmaxey

If each question consists of a single paragraph and there are no other paragraphs in the document (including empty paragraphs) then something like this mash of unorganized mess might do.

This is crazy, and almost exactly what I needed

thank you so much. I'll try and refine it myself. If there were other paragraphs in the document, could there be a way to exclude these? eg, only carry out the macro on highlighted text? Again, thank you for taking the time.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Legal Caption needs a way to dynamically create right-paren separator	gilly1	Mail Merge	2	03-08-2017 08:39 AM
Create a ComboBox in a Form that creates a new document and autofills a textBox	BlackGirlMagic	Word VBA	5	02-13-2017 02:39 PM
Automatically Organize data in a sheet differently (in order to create a dynamically updated graph)	carlos_cs	Excel	3	05-04-2016 08:44 AM
Looking for code to create a macro that prompts user to enter text, then does a find/replace.	sfvegas	PowerPoint	0	01-08-2016 02:22 AM
Dynamically create documents	MrRikkie	Word VBA	1	10-12-2012 09:15 AM