CreateObject("W ord.Application ")

[Darryl Kerkeslager]

Below is a section of the code I use to open Word with late binding, insert
text at the selected bookmarks, and make Word visible. Everything works
fine. However, I also have some Word check boxes, that I cannot figure out
how to make 'checked'. I am not allowed to alter the layout of the form; it
must be a check box. Up until now, I have simply required users to check
the box themselves, but now I'm opening up four Word forms that all have the
same check box - I really need to get this.

Anybody got a one-line solution?
Darryl Kerkeslager

-----------------------------------------------------------------
Dim mWord As Object
Set mWord = CreateObject("W ord.Application ")
mWord.Documents .Add oDocs & "odis_PPS_100_C aseClosing.dot"
With mWord.ActiveDoc ument
.Bookmarks("off _name").Range.F ields(1).Result .Text =
GetOffenderName ()
.Bookmarks("dis trict_id").Rang e.Fields(1).Res ult.Text = "#" &
GetDistrictID()
.Bookmarks("Tod ay").Range.Fiel ds(1).Result.Te xt = Date
End With
mWord.Visible = True
Set mWord = Nothing
---------------------------------------------------------------------

[Herbert Chan]

Does the following help?

http://groups.google.com/groups?hl=z....microsoft.com

Herbert

"Darryl Kerkeslager" <Ke*********@co mcast.net> ¦b¶l¥ó
news:vd******** ************@co mcast.com ¤¤¼¶¼g...

Below is a section of the code I use to open Word with late binding, insert text at the selected bookmarks, and make Word visible. Everything works
fine. However, I also have some Word check boxes, that I cannot figure out how to make 'checked'. I am not allowed to alter the layout of the form; it must be a check box. Up until now, I have simply required users to check
the box themselves, but now I'm opening up four Word forms that all have the same check box - I really need to get this.

Anybody got a one-line solution?
Darryl Kerkeslager

-----------------------------------------------------------------
Dim mWord As Object
Set mWord = CreateObject("W ord.Application ")
mWord.Documents .Add oDocs & "odis_PPS_100_C aseClosing.dot"
With mWord.ActiveDoc ument
.Bookmarks("off _name").Range.F ields(1).Result .Text =
GetOffenderName ()
.Bookmarks("dis trict_id").Rang e.Fields(1).Res ult.Text = "#" &
GetDistrictID()
.Bookmarks("Tod ay").Range.Fiel ds(1).Result.Te xt = Date
End With
mWord.Visible = True
Set mWord = Nothing
---------------------------------------------------------------------

[Nicole]

For checkboxes, I do this:
If Forms!frmForm!f rmGroup = 1 Then
.ActiveDocument .Bookmarks("chk Box1").Select
.Selection.Text = "X"
End If
If Forms!frmForm!f rmGroup = 2 Then
.ActiveDocument .Bookmarks("chk Box2").Select
.Selection.Text = "X"
End If

Et cetera. You don't get the square around the checkbox, but it
works.

I suggest using DocVariables instead of bookmarks if you have a lot of
things to bring over -- much faster. (No checkboxes, though.)

Below is a section of the code I use to open Word with late binding,

insert

text at the selected bookmarks, and make Word visible. Everything works
fine. However, I also have some Word check boxes, that I cannot figure

out

how to make 'checked'. I am not allowed to alter the layout of the form;

it

must be a check box. Up until now, I have simply required users to check
the box themselves, but now I'm opening up four Word forms that all have

the

same check box - I really need to get this.

Anybody got a one-line solution?
Darryl Kerkeslager

-----------------------------------------------------------------
Dim mWord As Object
Set mWord = CreateObject("W ord.Application ")
mWord.Documents .Add oDocs & "odis_PPS_100_C aseClosing.dot"
With mWord.ActiveDoc ument
.Bookmarks("off _name").Range.F ields(1).Result .Text =
GetOffenderName ()
.Bookmarks("dis trict_id").Rang e.Fields(1).Res ult.Text = "#" &
GetDistrictID()
.Bookmarks("Tod ay").Range.Fiel ds(1).Result.Te xt = Date
End With
mWord.Visible = True
Set mWord = Nothing
---------------------------------------------------------------------

[Darryl Kerkeslager]

Yes, that did it. I think I tried something like that earlier, but it must
not have been *exactly* that.

Thanks.

Darryl Kerkeslager

"Herbert Chan" <he*****@chan.c om> wrote:

Does the following help?

http://groups.google.com/groups?hl=z....microsoft.com

[Darryl Kerkeslager]

Thanks, but unfortunately, I had to use the checkBox. I could not alter the
form in any way.
Darryl Kerkeslager

"Nicole" <ni*****@namg.c om> wrote:
:
:

Et cetera. You don't get the square around the checkbox, but it
works.