Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

Verfolgung starten Optionen

Mit einem VBScript eine Word-Datei öffnen

aggroberlin / 28 Antworten / Flachansicht Nickles

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.

bei Antwort benachrichtigen
Schau mal hier drück mich , da wird ein T-Rex
Super Tip! Jetzt kann ich zumindest schon mal die Word-Datei öffnen!! Hast ... aggroberlin
Oder mal anders gefragt: Gibt es eine Möglichkeit, die Word-Datei per ... aggroberlin
klar, es gibt sogar mehrere moeglichkeiten... thomas woelfer
Habe ich schon mal erwähnt wie super ich diese Internetseite finde??? Der ... aggroberlin
Hallo, ich habe mir gerade noch mal den Quelltext angeschaut und bin mir ... aggroberlin
es fehlt AddAttachment - dann haengt das doc file einfach als attachment an ... thomas woelfer
aggroberlin Nachtrag zu: „Mit einem VBScript eine Word-Datei öffnen“
Optionen

Es tut mir leid und ich weiß auch das ich anfange zu nerven, aber das funktioniert immer noch nicht. ich bekomme weiter eine leere E-Mail zugeschickt :-(( Bitte Hilf mir. Danke schon mal im vorhinaus. Den Befehl AddAttachment habe ich bei "objSendMail.HTMLBody = AddAttachment" eingefügt war das von dir auch so gemeint?




'Ö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.HTMLBody = AddAttachment
objSendMail.send

'Schließe Worddukument
appWord.Quit wdSaveChanges

bei Antwort benachrichtigen
nein thomas woelfer
Siehe 1. Zeile Öffne Wörd-Anwendung Könnte das der Fehler sein ? Alf 123
Nein, da es sich dabei um einen Kommentar handelt. In der nachfolgenden ... T-Rex
Ja, aber wie sende ich nun eine E-Mail aus Word? aggroberlin
Ändere folgende Zeile: Öffne Word-Dokument appWord.Documents.Open C: ... T-Rex
objSendMail.AddAttachmen HierKommtDannderPfadInAnfuehrungszeichen Es kommt ... aggroberlin
Öffne Word-Anwendung Dim appWord Set appWord CreateObject Word.Application ... T-Rex
Mist, es muß so heißen: appWord.Options.SendMailAttach True T-Rex
tippfehler thomas woelfer
davon ab... thomas woelfer
Aber so wie der Quelltext jetzt geschrieben ist, wird die entsprechende ... aggroberlin
Wenn Du hier postest, darfst Du das Denken und Selbersuchen nicht ... T-Rex
sorry ... aber da helfe ich nicht thomas woelfer
sorry ... aber da helfe ich nicht aggroberlin
Hallo noch mal der Link war hilfreich ersteinmal zu verstehen, was ... aggroberlin
Was meinst du mit Schau in die Hilfe . Ich benutze Proton als VBS-Editor, da ... aggroberlin
Was meinst du mit Schau in die Hilfe Die Hilfe zu Word. Word hast Du ja ... T-Rex
Hallo Aggroberlin, Du solltest dich zum einen entscheiden und zum anderen ... Uli M
Hallo, ok, ich versuche es jetzt noch mal auf den Punkt zu bringen. Ich habe ... aggroberlin
Hallo aggroberlin, Wie ich sehe hast du einen Teil der Problematik zumindest ... Uli M