Thank you PH that did help a lot :). I have ran into another problem.
When it opens the .doc file and searches for the part numbers starting with 2200,2100 and 2000 it thinks I modified something and ask me to save it. I would put in code to make it automaticaly save it, but they are read...
Actually I have one more question...
If Left(FileEntered, 1) = "A" Then
FileName = Join(Array("C:\PLANT\ENG\DOC\GE-A\", Left(FileEntered, 4), ".DOC"), "")
ElseIf Left(FileEntered, 1) = "B" Then
FileName =...
Thank you guys! I finaly got the code working. You were right about the VBA reference. I was trying to reference word through excel not VBA. Thanks Again
tbl, did excel 2000 have a text wizard? I tryed to open the file as a .txt file and I recieved a "File format is not valid" error. :/
TonyJollans, thank you for the code. I wasn't quite able to get it working though..... I would get an error right away on this line ---> "Dim...
Here is a sample of the document. I bolded the info i want to put into excel. I am putting it into excel so the user can just simply print out the wire or cable they are going to need to cut, instead of printing off the whole process, which could be a about 15 pages long.
--
SEQ # 20 WIRE...
I am trying to open a document and retrieve some info from it and place it into excel. The file name would be 9005-607.doc or something like that, and i want it to search through the file till it finds the sentence seq # 20 and then i want it to put anything that starts with 2100 or 2000 to be...
I have to questions.
When i have a user form open on one of my woorkbooks why can't i switch to a different workbook?
How do you use vb to close a workbook?
Thanx :)
Private Sub Workbook_Open()
Worksheets("Daily").OptionButton1.Value = True
End Sub
This is the code that worked for me!!
Thanks for all the help! Oh yeah, yes it is an option button from the Control Toolbox. Thanks again!
BENCNU
Actually I was just using that button as a test. When I got it working I was going to use the code in the Workbook_Open() sub.
Private Sub Workbook_Open()
If OptionButton2 Then
OptionButton1.Value = OptionButton2.Value
End If
End Sub
I have integrated barcodeing into my program...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.