Automation need help

[HS1]

Hello all

In my window application, I have a button that can open a Word template
(letter). After add some details, I click "Save as" in this Word document.
I can insert a name for this file, then when I close this word file, I want
to print this file name (and its path).
Could you please tell me a method to do that. Below is what I did but it
does seem to work
I created a WithEvents in the module level:
--------
Public WithEvents objWdDoc As Word.Document
------

Then in a button events, I have
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Dim objWdApp As Object

objWdApp = CreateObject("W ord.Application ")

objWdApp.Visibl e = True

objWdDoc = objWdApp.Docume nts.Open(Filena me:="c:\wordTem plate.doc")

-------------------------------------------

Then I have function to handle its Close event.
------

Private Sub objWdApp_Close( )
Debug.Write("ob jWdDoc.FullName ")
set objWdDoc = nothing
End Sub

However, the event seems not work
Could you please help
Many thanks
SH

[Crouchie1998]

A file with the extension of 'doc' is a Word Document. Word templates have
the file extension 'dot'

What type of information do you want to add?

As soon as you answer me the above question, I will post the cose you want.

Awaiting your reply.

"HS1" wrote:

Hello all

In my window application, I have a button that can open a Word template
(letter). After add some details, I click "Save as" in this Word document.
I can insert a name for this file, then when I close this word file, I want
to print this file name (and its path).
Could you please tell me a method to do that. Below is what I did but it
does seem to work
I created a WithEvents in the module level:
--------
Public WithEvents objWdDoc As Word.Document
------

Then in a button events, I have
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Dim objWdApp As Object

objWdApp = CreateObject("W ord.Application ")

objWdApp.Visibl e = True

objWdDoc = objWdApp.Docume nts.Open(Filena me:="c:\wordTem plate.doc")

-------------------------------------------

Then I have function to handle its Close event.
------

Private Sub objWdApp_Close( )
Debug.Write("ob jWdDoc.FullName ")
set objWdDoc = nothing
End Sub

However, the event seems not work
Could you please help
Many thanks
SH

[john helen]

Thanks for you reply.

Yes, you're right. THe file is wordTemplate.do t.

I'm waiting for your further response. THanks.

SH
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Crouchie1998]

Hi

Sorry, I forgot to poste the code a few hours ago. After just checking my
e-mail I realised that.

Ok. This is what I have done:

Start a new Windows application

Add reference to the 'Microsoft Word object library' (my library version is
11.0)

Add a button to the form (Button1) & double-click it.

Paste in the following code:

Dim objWord As Word.Applicatio n = New Word.Applicatio n
Dim objDoc As New Word.Document
objWord.Documen ts.Open(Filenam e:="C:\WordTemp late.doc")
objDoc.Range.In sertAfter("Word Question" & ControlChars.Cr Lf)
objDoc.Range.In sertAfter("Solv ed by Crouchie1998")
objWord.Visible = True
objDoc.SaveAs(A pplication.Star tupPath & "\Test.doc" )
Dim strFilename As String = objDoc.FullName
'MessageBox.Sho w(strFilename)
Console.WriteLi ne(strFilename)
objWord.Quit()
objWord = Nothing

---------------------------------

Once again, sorry to keep you waiting

I hope this helps

"john helen" wrote:

Thanks for you reply.

Yes, you're right. THe file is wordTemplate.do t.

I'm waiting for your further response. THanks.

SH
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[john helen]

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[john helen]

Thank you for your help

In your code, the file is saved as "Test.doc". Could you please tell me
how to change the default "Test.doc". That means I can input a file name
in "Save As" dialog. when I close this file, I the name of the file is
printed in Console

Thank you
SH1
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Crouchie1998]

Do you want MS Word to quit each time you've finished entering a filename or
not?

"john helen" wrote:

Thank you for your help

In your code, the file is saved as "Test.doc". Could you please tell me
how to change the default "Test.doc". That means I can input a file name
in "Save As" dialog. when I close this file, I the name of the file is
printed in Console

Thank you
SH1
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Crouchie1998]

Hi John,

I have re-written the code.

1) Start a new Windows application

2) Add two buttons (Button1 & Button2 respectively)

3) Add a SaveFileDialog (SaveFileDialog 1) control by double-clicking on it
from the toolbox

4) Add a reference to the 'Microsoft Word Object Model'

5) Go to the code view of Form1.

6) At the top, paste in the following line:

Imports Word = Microsoft.Offic e.Interop.Word

7) Paste in the following declarations under the 'form's designer generated
code':

Dim objWord As Word.Applicatio n
Dim objDoc As Word.Document
Dim strTemplate As String = "C:\WordTemplat e.doc"
Dim strFilename As String

8) Switch to form view & double-click 'Button1' & paste in the following
code in the 'click:

If objWord Is Nothing Then
objWord = CreateObject("W ord.Application ")
End If
objDoc = objWord.Documen ts.Open(strTemp late)
Console.WriteLi ne(objDoc.FullN ame)
objWord.Visible = True
objDoc.Range.In sertAfter("Word Automation Text" & ControlChars.Cr Lf)
objDoc.Range.In sertAfter("Crea ted By Crouchie1998")

9) Switch to form view & double-click 'Button2' & paste in the following
code in the 'click:

With SaveFileDialog1
.InitialDirecto ry =
Environment.Get FolderPath(Envi ronment.Special Folder.Desktop)
.DefaultExt = "doc"
.Filter = "Microsoft Word Docs (*.doc)|*.doc|A ll Files (*.*)|*.*"
.FilterIndex = 0
If .ShowDialog = DialogResult.OK Then
strFilename = .FileName
End If
End With
objDoc.SaveAs(s trFilename)
'MessageBox.Sho w(strFilename)
Console.WriteLi ne(strFilename)
CloseWord()

10) Paste in the the following sub:

Private Sub CloseWord()
If Not objWord Is Nothing Then
objWord.Quit()
objWord = Nothing
End If
End Sub

11) Lastly, go to code view, choose 'Form1 Events' from the drop down list.
In the right drop down list choose the 'Form Closing' Enent & paste in this
line of code:

CloseWord()

Now, save the application & run it (F5)

---------------------------------------

I hope this have solved your question

[john helen]

Thank you very very much for your help
I am applying the code
SH

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!