dwadek
asked on
Populating Word Checkboxes with VB
Is there a way to change the value of a checkbox in a Word 97 .dot from the VB6 code that references it?
I'm populating the .dot using bookmarks
and creating the reference to the Word object as follows ...
Set objWord = GetObject(,"Word.Applicati
If objWord Is Nothing Then ' If true, Word is not running.
Set objWord = New Word.Application ' Create a new instance of the Word application.
If objWord Is Nothing Then ' If true, MS Word 8.0 is not installed.
MsgBox "MS Word is not installed on your computer."
End If
End If
'set template name
objWord.Documents.Add (App.Path & "\accinc.dot")
objWord.Selection.GoTo what:=wdGoToBookmark, Name:="mybookmark"
objWord.Selection.TypeText
need something like
objword.formfield("mycheck
but cannot find!
Thanks!
I'm populating the .dot using bookmarks
and creating the reference to the Word object as follows ...
Set objWord = GetObject(,"Word.Applicati
If objWord Is Nothing Then ' If true, Word is not running.
Set objWord = New Word.Application ' Create a new instance of the Word application.
If objWord Is Nothing Then ' If true, MS Word 8.0 is not installed.
MsgBox "MS Word is not installed on your computer."
End If
End If
'set template name
objWord.Documents.Add (App.Path & "\accinc.dot")
objWord.Selection.GoTo what:=wdGoToBookmark, Name:="mybookmark"
objWord.Selection.TypeText
need something like
objword.formfield("mycheck
but cannot find!
Thanks!
hello? anybody out there?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
From my reference to a .dot file ...
it should have been apparent that I was trying to modify a copy of an existing document ... not create a new one.
Your answer got me looking in the right
direction ... but the way you approached it had me experimenting with the code and I ended up only needing one line "ActiveDocument.FormFields
For your reference, you must also refer to the "ActiveDocument" with the object or the code will only work the first time the program reference the word object. (i.e. wrdApp.ActiveDocument)
it should have been apparent that I was trying to modify a copy of an existing document ... not create a new one.
Your answer got me looking in the right
direction ... but the way you approached it had me experimenting with the code and I ended up only needing one line "ActiveDocument.FormFields
For your reference, you must also refer to the "ActiveDocument" with the object or the code will only work the first time the program reference the word object. (i.e. wrdApp.ActiveDocument)
OK, I realize that you were using an existing document, however
since I couldn't use the "exact" document you were using, I posted a example of code, that gave you examples of creating , checking and unchecking by index, and checking and unchecking by name value. This I believed could be easily recreated by pasting the code into a blank project, simply by adding a command button, shows true clear examples of addressing your issue.
Though you may not have wanted to know how to create the checkboxes by VB,and the example of creating the checkboxes were superflous to your particular application, because you were wanting to modify the existing file.In my case since I did not have any of your documents to play with, I created my own document with checkboxes,and manipulated the values of said checkboxes, and it is obvious that, you have by just looking at the code, have determined the correct call.
The example that I gave wasnt just an answer, it was a "proof", something that can be proved that it works(like in math ,programming, etc....), I only post answers that work ...i.e. this code was taken directly out of a
project that worked 100% and pasted into the post message box............though I didn't address your "application" as a .dot file directly, I did address your question right on the mark....and right on the money....
since I couldn't use the "exact" document you were using, I posted a example of code, that gave you examples of creating , checking and unchecking by index, and checking and unchecking by name value. This I believed could be easily recreated by pasting the code into a blank project, simply by adding a command button, shows true clear examples of addressing your issue.
Though you may not have wanted to know how to create the checkboxes by VB,and the example of creating the checkboxes were superflous to your particular application, because you were wanting to modify the existing file.In my case since I did not have any of your documents to play with, I created my own document with checkboxes,and manipulated the values of said checkboxes, and it is obvious that, you have by just looking at the code, have determined the correct call.
The example that I gave wasnt just an answer, it was a "proof", something that can be proved that it works(like in math ,programming, etc....), I only post answers that work ...i.e. this code was taken directly out of a
project that worked 100% and pasted into the post message box............though I didn't address your "application" as a .dot file directly, I did address your question right on the mark....and right on the money....
OK, I realize that you were using an existing document, however
since I couldn't use the "exact" document you were using, I posted a example of code, that gave you examples of creating , checking and unchecking by index, and checking and unchecking by name value. This I believed could be easily recreated by pasting the code into a blank project, simply by adding a command button, shows true clear examples of addressing your issue.
Though you may not have wanted to know how to create the checkboxes by VB,and the example of creating the checkboxes were superflous to your particular application, because you were wanting to modify the existing file.In my case since I did not have any of your documents to play with, I created my own document with checkboxes,and manipulated the values of said checkboxes, and it is obvious that, you have by just looking at the code, have determined the correct call.
The example that I gave wasnt just an answer, it was a "proof", something that can be proved that it works(like in math ,programming, etc....), I only post answers that work ...i.e. this code was taken directly out of a
project that worked 100% and pasted into the post message box............though I didn't address your "application" as a .dot file directly, I did address your question right on the mark....and right on the money....
since I couldn't use the "exact" document you were using, I posted a example of code, that gave you examples of creating , checking and unchecking by index, and checking and unchecking by name value. This I believed could be easily recreated by pasting the code into a blank project, simply by adding a command button, shows true clear examples of addressing your issue.
Though you may not have wanted to know how to create the checkboxes by VB,and the example of creating the checkboxes were superflous to your particular application, because you were wanting to modify the existing file.In my case since I did not have any of your documents to play with, I created my own document with checkboxes,and manipulated the values of said checkboxes, and it is obvious that, you have by just looking at the code, have determined the correct call.
The example that I gave wasnt just an answer, it was a "proof", something that can be proved that it works(like in math ,programming, etc....), I only post answers that work ...i.e. this code was taken directly out of a
project that worked 100% and pasted into the post message box............though I didn't address your "application" as a .dot file directly, I did address your question right on the mark....and right on the money....
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdSelection As Word.Selection
Private Sub cmdWordCheckBoxes_Click()
Dim StrToAdd As String
On Error GoTo Error_Handler
'let us know we are doing something
Screen.MousePointer = vbHourglass
' Create an instance of Word and make it visible
Set wrdApp = CreateObject("Word.Applica
wrdApp.Visible = True
' Add a new document
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.Select
Set wrdSelection = wrdApp.Selection
Dim x As Integer
For x = 4 To 1 Step -1
' Create 4 check boxes and insert it into the document
With ActiveDocument.FormFields.
(Start:=0, End:=0), Type:=wdFieldFormCheckBox)
.Name = "Color" & x
.CheckBox.Value = True
End With
Next
'checking checkboxes with index values
ActiveDocument.FormFields(
ActiveDocument.FormFields(
ActiveDocument.FormFields(
ActiveDocument.FormFields(
'checking checkboxes with name values
ActiveDocument.FormFields(
ActiveDocument.FormFields(
ActiveDocument.FormFields(
ActiveDocument.FormFields(
' wrdDoc.SaveAs ("c:\Test.doc")
' wrdDoc.Close False
Exit Sub
Error_Handler:
Screen.MousePointer = vbDefault
MsgBox "Error: " & Err.Number & vbLf & vbLf & Err.Description, vbExclamation, "Mail Merge Error!"
End Sub