Can I take information from a checkbox in word and put it into excel?
what I have so far is

Sub OpenDoc()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "Group annuity\language premiums.docx"
WordApp.Visible = True
ShtInput("a1").Value = WordApp.formfield("403B").CheckBox.Value
End Sub

But the last line isn't being accepted - I expect that the "formfield" is
not correct...

I purposely shortened the WordApp.Documents.Open line for readability
It would be nice just to grab the information and not have to "open" the
document.


--
Wag more, bark less

In a nutshell - I want to take information from a checkbox but the "results"
in Excel.


Couple more items to add from the original post - using 2007
Tools - reference - added Microsoft Word 12.0
Changed
shtInput("a1").value
to
shtinput.range("a1").value
--
Wag more, bark less


"Brad" wrote:

Can I take information from a checkbox in word and put it into excel?
what I have so far is

Sub OpenDoc()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "Group annuity\language premiums.docx"
WordApp.Visible = True
ShtInput("a1").Value = WordApp.formfield("403B").CheckBox.Value
End Sub

But the last line isn't being accepted - I expect that the "formfield" is
not correct...

I purposely shortened the WordApp.Documents.Open line for readability
It would be nice just to grab the information and not have to "open" the
document.


--
Wag more, bark less

This is a good resource:
http://blogs.techrepublic.com.com/msoffice/?p=164

Copy/paste the code form here to do what you want:
http://gregmaxey.mvps.org/Extract_Form_Data.htm

You can download an example. You will certainly need to add Fields in
Access to get it working right (one Access Field per Word Form Field).
Finally, you need to run the macro from Word (you probably know this; just
making sure).

Regards,
Ryan---

--
RyGuy


"Brad" wrote:

In a nutshell - I want to take information from a checkbox but the "results"
in Excel.


Couple more items to add from the original post - using 2007
Tools - reference - added Microsoft Word 12.0
Changed
shtInput("a1").value
to
shtinput.range("a1").value
--
Wag more, bark less


"Brad" wrote:

Can I take information from a checkbox in word and put it into excel?
what I have so far is

Sub OpenDoc()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "Group annuity\language premiums.docx"
WordApp.Visible = True
ShtInput("a1").Value = WordApp.formfield("403B").CheckBox.Value
End Sub

But the last line isn't being accepted - I expect that the "formfield" is
not correct...

I purposely shortened the WordApp.Documents.Open line for readability
It would be nice just to grab the information and not have to "open" the
document.


--
Wag more, bark less