Nickles › Forum › Software › Programmieren - alles kontrollieren

Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

Mit einem VBScript eine Word-Datei öffnen

aggroberlin am 20.01.2005, 10:10 / 28 Antworten / Flachansicht

Hallo,

wie ist es Möglich, eine Word-Datei über ein VBScript zu öffnen?? Wie man Wörd öffnet weiß ich schon. mir fehlt nur noch deer Befehl zum öffnen einer Word-datei und wie man den Inhalt kopieren kann. Danke schon mal für eure Antworten

Gruß Aggro

Hier mein bisheriger Quelltext:

Set appWord = CreateObject("Word.Application")

appWord.WindowState = 0
appWord.Height = 600
appWord.Width = 800
appWord.Left = 40
appWord.Top = 20
appWord.Visible = True \' Display the application.

      Schau mal hier drück mich , da wird ein T-Rex 20.01.2005, 10:19
    
      Super Tip! Jetzt kann ich zumindest schon mal die Word-Datei öffnen!! Hast ... aggroberlin 20.01.2005, 10:37
    
      Oder mal anders gefragt: Gibt es eine Möglichkeit, die Word-Datei per ... aggroberlin 20.01.2005, 10:49
    
      klar, es gibt sogar mehrere moeglichkeiten... thomas woelfer 20.01.2005, 11:10
    
      Habe ich schon mal erwähnt wie super ich diese Internetseite finde??? Der ... aggroberlin 20.01.2005, 12:20
    
      Hallo, ich habe mir gerade noch mal den Quelltext angeschaut und bin mir ... aggroberlin 20.01.2005, 12:41
    
      es fehlt AddAttachment - dann haengt das doc file einfach als attachment an ... thomas woelfer 20.01.2005, 12:46
    
      Es tut mir leid und ich weiß auch das ich anfange zu nerven, aber das ... aggroberlin 20.01.2005, 12:57
    
      nein thomas woelfer 20.01.2005, 14:36
    
      Siehe 1. Zeile Öffne Wörd-Anwendung Könnte das der Fehler sein ? Alf 123 20.01.2005, 14:21
    
      Nein, da es sich dabei um einen Kommentar handelt. In der nachfolgenden ... T-Rex 20.01.2005, 14:31
    
      Ja, aber wie sende ich nun eine E-Mail aus Word? aggroberlin 20.01.2005, 14:35
    
      Ändere folgende Zeile: Öffne Word-Dokument appWord.Documents.Open C: ... T-Rex 20.01.2005, 15:02
    
        aggroberlin Nachtrag zu: „Mit einem VBScript eine Word-Datei öffnen“
      
        20.01.2005, 16:03 Optionen
      
          "objSendMail.AddAttachmen HierKommtDannderPfadInAnfuehrungszeichen"

          Es kommt die Fehlermeldung "Das Objekt ünterstützt diese Eigenschaft oder Methode nicht."

          Ich habe mir die Doku angeschaut, zumindest das, was ich im inet gefunden habe. Ich werde da aber nicht schlau raus! Ich meine ich habe echt null vorkenntnisse und weil ich halt Azubi bin, heißt das für meine Vorgesetzten automatisch die Sachen wo Sie keine Lust zu haben oder was sie auch nicht können muss ich am besten bis gestern erledigt haben! Ich meine ich mache eine Ausbildung zum IT-Systemelektroniker und nicht zum Fachinformatiker! Oder nicht!

          Quelltext thomas woelfer

          'Öffne Wörd-Anwendung

          Set appWord = CreateObject("Word.Application")

          appWord.WindowState = 0

          appWord.Height = 600

          appWord.Width = 800

          appWord.Left = 40

          appWord.Top = 20

          appWord.Visible = True

          'Öffne Word-Dokument

          appWord.Documents.Open "C:\Dokumente und Einstellungen\b600806\Desktop\http.doc"

          'öffne E-Mail und sende Sie Anschließend

          emailHere = "m.heinrich@krz.de"

          Set objSendMail = CreateObject("CDO.Message")

          objSendMail.Subject = "Test"

          objSendMail.From = "m.heinrich@krz.de"

          objSendMail.To = "m.heinrich@krz.de"

          objSendMail.AddAttachmen "C:\Dokumente und Einstellungen\b600806\Desktop\http.doc"

          objSendMail.send

          'Schließe Worddukument

          appWord.Quit wdSaveChanges

          T-Rex: Bei deinem Vorschlag kommt genau der gleiche Fehler :(

          Quelltext T-Rex

          'Öffne Word-Anwendung

          Set appWord = CreateObject("Word.Application")

          appWord.WindowState = 0

          appWord.Height = 600

          appWord.Width = 800

          appWord.Left = 40

          appWord.Top = 20

          appWord.Visible = True

          'Öffne Word-Dokument

          Dim wrdDoc

          Set wrdDoc = appWord.Documents.Open("C:\Dokumente und Einstellungen\b600806\Desktop\http.doc")

          'öffne E-Mail und sende Sie Anschließend

          emailHere = "m.heinrich@krz.de"

          Set objSendMail = CreateObject("CDO.Message")

          objSendMail.Subject = "Test"

          objSendMail.From = "m.heinrich@krz.de"

          objSendMail.To = "m.heinrich@krz.de"

          appWord.Options.SendMail = True

          Call wrdDoc.SendMail

          'Schließe Worddukument

          Call wrdDoc.Close(-1)

          Set wrdDoc = Nothing

          Call appWord.Quit(-1)

          Set appWord = Nothing
        
             bei Antwort benachrichtigen
        
      Öffne Word-Anwendung Dim appWord Set appWord CreateObject Word.Application ... T-Rex 20.01.2005, 16:09
    
      Mist, es muß so heißen: appWord.Options.SendMailAttach True T-Rex 20.01.2005, 16:10
    
      tippfehler thomas woelfer 20.01.2005, 16:10
    
      davon ab... thomas woelfer 20.01.2005, 16:16
    
      Aber so wie der Quelltext jetzt geschrieben ist, wird die entsprechende ... aggroberlin 21.01.2005, 07:42
    
      Wenn Du hier postest, darfst Du das Denken und Selbersuchen nicht ... T-Rex 21.01.2005, 08:42
    
      sorry ... aber da helfe ich nicht thomas woelfer 21.01.2005, 15:14
    
      sorry ... aber da helfe ich nicht aggroberlin 24.01.2005, 08:04
    
      Hallo noch mal der Link war hilfreich ersteinmal zu verstehen, was ... aggroberlin 21.01.2005, 07:48
    
      Was meinst du mit Schau in die Hilfe . Ich benutze Proton als VBS-Editor, da ... aggroberlin 21.01.2005, 10:59
    
      Was meinst du mit Schau in die Hilfe Die Hilfe zu Word. Word hast Du ja ... T-Rex 21.01.2005, 14:47
    
      Hallo Aggroberlin, Du solltest dich zum einen entscheiden und zum anderen ... Uli M 22.01.2005, 17:18
    
      Hallo, ok, ich versuche es jetzt noch mal auf den Punkt zu bringen. Ich habe ... aggroberlin 24.01.2005, 08:26
    
      Hallo aggroberlin, Wie ich sehe hast du einen Teil der Problematik zumindest ... Uli M 24.01.2005, 10:00