title image


Smiley Re: VB.NET und Word2000
Hallo,



es ist möglich MS-Word von außen automatisch zu steuern. (Ähnlich wie VBA)



Voraussetzung:

MS-Word Dokument: C:\Test.docTextmarke im Dokument: Textmarke1



Aufruf der Export Funktion:

If Export("C:\Test.doc") Then   MsgBox("Export erfolgreich abgeschlossen.", MsgBoxStyle.Information)Else   MsgBox("Export fehlgeschlagen.", MsgBoxStyle.Critical)End If



Export Funktion:

Dim objWordApplication As ObjectDim objWordDocument As ObjectFunction Export(ByVal DocumentPath As String) As Boolean   ' Zu MS-Word verbinden   objWordApplication = CreateObject("Word.Application")   If objWordApplication Is Nothing Then      MsgBox("Word konnte nicht gestartet werden!", MsgBoxStyle.Critical)      Exit Function   End If   ' MS-Word verstecken   objWordApplication.Visible = False   ' Dokument öffnen   objWordDocument = objWordApplication.Documents.Open(DocumentPath)   If objWordDocument Is Nothing Then      MsgBox("Word-Dokument konnte nicht geöffnet werden!", MsgBoxStyle.Critical)      GoTo CloseWord   End If   ' "Textmarke1" markieren   objWordDocument.Bookmarks.Item("Textmarke1").Select()   ' Text an die markierte Stelle einfügen   objWordApplication.Selection.TypeText("Wert der Textmarke1")   ' Dokument ausdrucken   objWordDocument.PrintOut(False)   ' MS-Word schließen und dabei keine Speichern-Meldungen anzeigen   objWordApplication.Quit(False)   Return TrueCloseWord:   If Not objWordApplication Is Nothing Then      ' MS-Word schließen und dabei keine Speichern-Meldungen anzeigen      objWordApplication.Quit(False)   End IfEnd Function

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: