Programmieren - alles kontrollieren 4.941 Themen, 20.708 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
Es tut mir leid und ich weiß auch das ich anfange zu nerven, aber das ... aggroberlin
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
T-Rex aggroberlin „ objSendMail.AddAttachmen HierKommtDannderPfadInAnfuehrungszeichen Es kommt die...“
Optionen
'Öffne Word-Anwendung
Dim appWord
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")

appWord.Options.SendMail = True
Call wrdDoc.SendMail

'Schließe Worddukument
Call wrdDoc.Close(-1)
Set wrdDoc = Nothing
Call appWord.Quit(-1)
Set appWord = Nothing
 GrüßeT-Rex 
bei Antwort benachrichtigen
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