adding tables based on a number given in a form

coba · #1 12-25-2015, 06:43 AM

Dear forum,

I would like to have a macro that inserts tables based on the number of tables that I need. This number will be above the table in a form field.

Please see attached document and here below:

Number of persons: 5

Person 1
Text1
Text2
Text3

And I type 5, I would like a macro to copy and paste same table 5 times. The table is part of a document that includes more information.

Thank you so much for any help you can give.
Coba

gmaxey · #2 12-25-2015, 07:29 AM

Replace Person 1 with Person {Seq TblNum}
Note that is a sequence field and the braces are created using Ctrl+F9

Bookmark the entire Person # paragraph and table.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oTbl As Table
Dim lngIndex As Long
  Set oRng = ActiveDocument.Bookmarks("PersonTable").Range
  oRng.Copy
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr
  oRng.MoveStart wdParagraph, 1
  For lngIndex = 1 To ActiveDocument.FormFields("Tekst1").Result - 1
    oRng.Paste
    oRng.Collapse wdCollapseEnd
    oRng.InsertBefore vbCr
    oRng.MoveStart wdParagraph, 1
  Next
  ActiveDocument.Fields.Update
lbl_Exit:
  Exit Sub
End Sub

coba · #3 12-25-2015, 07:44 AM

Thank you so much, Greg, for your help.

coba · #4 12-26-2015, 08:43 AM

I am wondering, how can I have the each table name has
"Person1" and the next "Person2" etc...?

Actually, what I would like to have is to use VBA to count the number of tables that are created and to number each of the tables:
"Table 1",
"Table 2",
"Table 3", etc.

Thanks for your help.

coba · #5 12-26-2015, 02:56 PM

The problem is solved

gmaxey · #6 12-26-2015, 07:05 PM

ActiveDocument.Fields.Update as the last active line in the code is one solution as I had already created the SEQ fields in the document that I attached.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatically adding new rows based on form field	tejaspareek	Word VBA	4	04-17-2015 05:35 AM
Adding sums from simuliar tables from different sheets.	LameDuck	Excel	0	12-04-2014 08:57 PM
Adding text to after a bookmark based on drop down menu choice	ksigcajun	Word VBA	6	06-10-2014 09:39 AM
Maximum Number Of Styles-Based-On?	Pluviophile	Word	13	05-08-2014 05:29 AM
finding data from different tables based on header	s7y	Excel	3	11-11-2013 09:09 AM