open word from excel & then back again
i need to open word from excel and then close word & open excel again. i have
a form that opens in excel without showing excel, only the form is visibe on start up with command buttons to open different documents. i can open word but it does not make it the active item. It sits at the bottom of the screen, not visible for use. Second question; when i open another excel workbook and then try to close and return to the original form the original form will not display, can anyone help me? code i am using below for first problem and also second problem. Private Sub CommandButton1_Click() Unload Me Dim Word As New Word.Application Dim WordDoc As New Word.Document Set WordDoc = Word.Documents.Open("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\Safety\document register") Word.Visible = True End Sub Private Sub CommandButton2_Click() 'saves and closes this workbook while opening the Switchboard workbook Workbooks("Permit Register.XLS").Close SaveChanges:=True Workbooks.Open ("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\SWITCHBOARD") End Sub |
open word from excel & then back again
I would advise not to use object words as names of variables for a start.
e.g. Use Dim WordApp As New Word.Application If you do not close Excel, you do not need to open it again. Maybe use Me.Hide instead of Unload Me I think the problem is that you are closing the WB containing the running code. Use a single WB (or add-in) to contain all the code that manipulates the other Word docs and Excel WBs. NickHK "new_to_vba" wrote in message ... i need to open word from excel and then close word & open excel again. i have a form that opens in excel without showing excel, only the form is visibe on start up with command buttons to open different documents. i can open word but it does not make it the active item. It sits at the bottom of the screen, not visible for use. Second question; when i open another excel workbook and then try to close and return to the original form the original form will not display, can anyone help me? code i am using below for first problem and also second problem. Private Sub CommandButton1_Click() Unload Me Dim Word As New Word.Application Dim WordDoc As New Word.Document Set WordDoc = Word.Documents.Open("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\Safety\document register") Word.Visible = True End Sub Private Sub CommandButton2_Click() 'saves and closes this workbook while opening the Switchboard workbook Workbooks("Permit Register.XLS").Close SaveChanges:=True Workbooks.Open ("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\SWITCHBOARD") End Sub |
open word from excel & then back again
hit wrong button and posted as a question. Thanks NickHK, i will try that .
"NickHK" wrote: I would advise not to use object words as names of variables for a start. e.g. Use Dim WordApp As New Word.Application If you do not close Excel, you do not need to open it again. Maybe use Me.Hide instead of Unload Me I think the problem is that you are closing the WB containing the running code. Use a single WB (or add-in) to contain all the code that manipulates the other Word docs and Excel WBs. NickHK "new_to_vba" wrote in message ... i need to open word from excel and then close word & open excel again. i have a form that opens in excel without showing excel, only the form is visibe on start up with command buttons to open different documents. i can open word but it does not make it the active item. It sits at the bottom of the screen, not visible for use. Second question; when i open another excel workbook and then try to close and return to the original form the original form will not display, can anyone help me? code i am using below for first problem and also second problem. Private Sub CommandButton1_Click() Unload Me Dim Word As New Word.Application Dim WordDoc As New Word.Document Set WordDoc = Word.Documents.Open("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\Safety\document register") Word.Visible = True End Sub Private Sub CommandButton2_Click() 'saves and closes this workbook while opening the Switchboard workbook Workbooks("Permit Register.XLS").Close SaveChanges:=True Workbooks.Open ("D:\NSS BULK\KUSTOM CONCRETE\Kustom Working Documents\SWITCHBOARD") End Sub |
All times are GMT +1. The time now is 12:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com