PLEASE, PLEASE, PLEASE HELLLLP!!! Excel macro destroying Word toolbars !
 

I have a macro in excel which utilises Word using late binding.
Generally its ok but, especially if the user already has Word running
on their machine.If it is the morning and they don't have word running
then when they run the macro the required sheet will appear but in a
Word Document which has NO toolbars - therefore its a bit tricky
printing the document!!

Here's, pretty much, the code I'm using:


strApplication = "Word.Application"
'check to see if Word is running
If Not IsRunning(strApplication) Then
Set WordApplication = CreateObject(strApplication)
Else
Set WordApplication = GetObject(, strApplication)
End If
strApplication = ""

myFilePath = "I:\Fin\" & strFile & ".Doc"
myFileCopy = "I:\Fin\" & strFile & "\" & strFile & " " & Format(Now,
"dd mmm _ yyyy hh-mm-ss AMPM") & ".Doc"

FileSystem.FileCopy myFilePath, myFileCopy


Call CreateVariables 'creates all the following variables starting
with "my"

With WordApplication
'put in the data into the word document
With .documents.Open(Filename:=myFileCopy)
.Range.Bookmarks("Policy_Number").Range.InsertAfte r
myPNumber
.Range.Bookmarks("The_Date").Range.InsertAfter myDate
.Range.Bookmarks("Fund_Description").Range.InsertA fter
_ myDescription
End With
.ACTIVEDOCUMENT.Save
.WindowState = wdWindowStateMinimize
End With

Call DestroyVariables 'destroys all variables starting with "my"

ThisWorkbook.Activate
WordApplication.Visible = True
Set WordApplication = Nothing


ANY HELP ON THIS LITTLE TEASER IS GREATLY APPRECIATED

Jason

PLEASE, PLEASE, PLEASE HELLLLP!!! Excel macro destroying Word toolbars !
 

Jason: I use
doc = Fpath & "\" & Fname & ".doc"
Set WD = CreateObject("Word.Application")
WD.Documents.Open doc
WD.Visible = True
several times each day from my workbook. I always get my full Normal.dot
template, with all the toolbars I had open. You might try posting this to a
Word NG (make sure you point out which line is giving you trouble).

Ed

"jason" wrote in message
om...
I have a macro in excel which utilises Word using late binding.
Generally its ok but, especially if the user already has Word running
on their machine.If it is the morning and they don't have word running
then when they run the macro the required sheet will appear but in a
Word Document which has NO toolbars - therefore its a bit tricky
printing the document!!

Here's, pretty much, the code I'm using:


strApplication = "Word.Application"
'check to see if Word is running
If Not IsRunning(strApplication) Then
Set WordApplication = CreateObject(strApplication)
Else
Set WordApplication = GetObject(, strApplication)
End If
strApplication = ""

myFilePath = "I:\Fin\" & strFile & ".Doc"
myFileCopy = "I:\Fin\" & strFile & "\" & strFile & " " & Format(Now,
"dd mmm _ yyyy hh-mm-ss AMPM") & ".Doc"

FileSystem.FileCopy myFilePath, myFileCopy


Call CreateVariables 'creates all the following variables starting
with "my"

With WordApplication
'put in the data into the word document
With .documents.Open(Filename:=myFileCopy)
.Range.Bookmarks("Policy_Number").Range.InsertAfte r
myPNumber
.Range.Bookmarks("The_Date").Range.InsertAfter myDate
.Range.Bookmarks("Fund_Description").Range.InsertA fter
_ myDescription
End With
.ACTIVEDOCUMENT.Save
.WindowState = wdWindowStateMinimize
End With

Call DestroyVariables 'destroys all variables starting with "my"

ThisWorkbook.Activate
WordApplication.Visible = True
Set WordApplication = Nothing


ANY HELP ON THIS LITTLE TEASER IS GREATLY APPRECIATED

Jason

PLEASE, PLEASE, PLEASE HELLLLP!!! Excel macro destroying Word toolbars !
 

cheers for the help matey

if you try adding stuff into the document and the making it visible
you'll probably get the same problem
but if you make it visible and then manipulate the document then all
is well - PROBLEM SOLVED

Jason

"Ed" wrote in message ...
Jason: I use
doc = Fpath & "\" & Fname & ".doc"
Set WD = CreateObject("Word.Application")
WD.Documents.Open doc
WD.Visible = True
several times each day from my workbook. I always get my full Normal.dot
template, with all the toolbars I had open. You might try posting this to a
Word NG (make sure you point out which line is giving you trouble).

Ed

"jason" wrote in message
om...
I have a macro in excel which utilises Word using late binding.
Generally its ok but, especially if the user already has Word running
on their machine.If it is the morning and they don't have word running
then when they run the macro the required sheet will appear but in a
Word Document which has NO toolbars - therefore its a bit tricky
printing the document!!

Here's, pretty much, the code I'm using:


strApplication = "Word.Application"
'check to see if Word is running
If Not IsRunning(strApplication) Then
Set WordApplication = CreateObject(strApplication)
Else
Set WordApplication = GetObject(, strApplication)
End If
strApplication = ""

myFilePath = "I:\Fin\" & strFile & ".Doc"
myFileCopy = "I:\Fin\" & strFile & "\" & strFile & " " & Format(Now,
"dd mmm _ yyyy hh-mm-ss AMPM") & ".Doc"

FileSystem.FileCopy myFilePath, myFileCopy


Call CreateVariables 'creates all the following variables starting
with "my"

With WordApplication
'put in the data into the word document
With .documents.Open(Filename:=myFileCopy)
.Range.Bookmarks("Policy_Number").Range.InsertAfte r
myPNumber
.Range.Bookmarks("The_Date").Range.InsertAfter myDate
.Range.Bookmarks("Fund_Description").Range.InsertA fter
_ myDescription
End With
.ACTIVEDOCUMENT.Save
.WindowState = wdWindowStateMinimize
End With

Call DestroyVariables 'destroys all variables starting with "my"

ThisWorkbook.Activate
WordApplication.Visible = True
Set WordApplication = Nothing


ANY HELP ON THIS LITTLE TEASER IS GREATLY APPRECIATED

Jason