Hello all,
Now they want to add information to a form from the Excel workbook NoSparks helped me code.
The code is in Excel and is below. I have it calling to where I have the Word template fine.
It goes to a word document with more content controls then what I am requesting to be filled.
So
1) How do I engage a checkbox
2) Go to specific content controls not just the first one found.
I have labeled the Content Controls with unique names and tags if that helps.
This opens and places initial value(Text description) in first content control box as an erroneous date but nothing else.
I almost have this whipped.
Any ideas?
DThib
Now they want to add information to a form from the Excel workbook NoSparks helped me code.
The code is in Excel and is below. I have it calling to where I have the Word template fine.
It goes to a word document with more content controls then what I am requesting to be filled.
So
1) How do I engage a checkbox
2) Go to specific content controls not just the first one found.
Code:
Sub Fuzzy()
Dim wordApp As Word.Application
Dim wDoc As Word.Document
Dim r As Integer
Doc_land = "location on server"
Set wordApp = CreateObject("word.application")
Set wDoc = wordApp.Documents.Open(Doc_land & "/" & Range("K31").Value & ".docx")
wordApp.Visible = True
r = 2
For i = 1 To 1
With wDoc
.ContentControls(i).Range.Text = Sheets("Released Product").Cells(r, 3) 'Text description
.ContentControls(i).Range.Text = Sheets("Released Product").Cells(r, 6) 'Numerical Value
.ContentControls(i).Range.Text = Sheets("Released Product").Cells(r, 7) 'Date opened
.ContentControls(i).Range.Text = Sheets("Released Product").Cells(r, 5) 'Date closed
r = r + 1
End With
Next i
End Sub
This opens and places initial value(Text description) in first content control box as an erroneous date but nothing else.
I almost have this whipped.
Any ideas?
DThib