Extract form fields to Word Document

macropod · #22 01-11-2014, 04:51 AM

That suggests the document to which this applies might not be the first one to be opened. Allowing for that possibility -

On the end of:
Dim StrFlds As String, i As Long
add:
, Rng As Range

After:
Set wdTgtDoc = ActiveDocument
insert:
Set Rng = wdTgtDoc.Characters.Last

Change:
wdTgtDoc.Range.InsertAfter .FormFields(4).Result & vbCr
to:

Code:

    If .Name = "Form1.doc" Then
      Rng.InsertBefore .FormFields(1).Result & vbCr & .FormFields(4).Result & vbCr
    Else
      wdTgtDoc.Range.InsertAfter .FormFields(4).Result & vbCr
    End If

and replace "Form1.doc" with whatever the document's name should be.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Inserting spreadsheet data rows as form fields in a document	b3nz	Word	3	03-31-2013 07:47 PM
Form Fields in Word	jwm1346	Word	1	04-17-2012 07:02 PM
Issues with Microsoft Word Form Fields	hbforsyth	Word	9	11-14-2011 04:26 PM
Calculating Form Fields in Microsoft Word	wubba80	Word	1	06-25-2010 12:42 AM
Form fields in Word messed up	mba	Word VBA	0	02-07-2010 09:54 PM