Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

doc öffnen nur wenn zu, wenn offen Fehlfunktionen bzw fehlende Objektzuweisung
Autor: GM
Datum: 06.07.05 19:27
Hallo Ich möchte, falls eine Word-Datei nicht offen ist, selbige öffnen. Danach soll ein Wort gesucht werden. War die Datei offen, wird die Suche jedoch leider nicht durchgeführt, da die Objekt-Zuweisung nicht klappt bzw ich weiß nicht wie sie hinbekommen soll. Hier der Code: ' Definitionen FUNKTION WORD ==> #C-GGM-BIL.doc öffnen und warten bis offen --- falls offen nur aktivieren + POS1 ' Abfrage ob BIL offen For Each Prozess As Process In Process.GetProcesses If Prozess.MainWindowTitle = "#C-GGM-BIL.doc - Microsoft Word" Then GoTo BILoffen End If Next ' WZM wenn BIL = ZU Dim WordApp As Microsoft.Office.Interop.Word.Application WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Microsoft.Office.Interop.Word.Document WordDoc = WordApp.Documents.Open("C:\Eigene-D\#C-GGM-BIL.doc") Dim i As Integer For i = 1 To 240 Threading.Thread.Sleep(250) ' 240*0,25=60 Sekunden Wartezeit For Each Prozess As Process In Process.GetProcesses If Prozess.MainWindowTitle = "#C-GGM-BIL.doc - Microsoft Word" Then GoTo FensterAbfrageEnde End If Next Next GoTo FensterAbfrageEnde ' WZM wenn BIL = OFFEN BILoffen: AppActivate("#C-GGM-BIL.doc - Microsoft Word") SendKeys.SendWait("^{HOME}") ' WZM ENDE FensterAbfrageEnde: ' XXXXXXXXXXXXXXXX Beginn der Suche XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' GMF-Artikel-Nr. = oYXCGMFNr suchen AppActivate("#C-GGM-BIL.doc - Microsoft Word") Threading.Thread.Sleep(400) ' 0,4 Sekunden Wartezeit strFind = oYXCGMFNr With WordApp.Selection.Find .ClearFormatting() ' vorherige Einstellungen löschen .Text = strFind .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue If .Execute = True Then GoTo WEITER Else MessageBox.Show("Artikelnummer wurde im #C-GGM-BIL.doc NICHT gefunden") End If End With WEITER: Vielleicht kann mir jemand weiterhelfen Danke Gunnar

doc öffnen nur wenn zu, wenn offen Fehlfunktionen bzw fehlen...	1.188	GM	06.07.05 19:27
Re: doc öffnen nur wenn zu, wenn offen Fehlfunktionen bzw fe...	716	Maywood	08.07.05 00:00
Re: doc öffnen nur wenn zu, wenn offen Fehlfunktionen bzw fe...	706	GM	08.07.05 09:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen