Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB6: Vorlagen Pfad in Worddateien ändern
Autor: babedejade
Datum: 11.02.05 13:00
Hallo ihr lieben, möchte erstmal mein Problem schildern so kurz wie möglich... Fileserver auf dem sich user anmelden wurde ersetzt und heißt auch anders (nicht änderbar!) Wordvorlagen der einzelnen user lagen/liegen im Pfad \\server\user\vorlagen Problem... beim öffnen von einzelnen Worddateien dauert es ewig bis sich diese Datei öffnet da sie auf einem Server sucht den es nicht mehr gibt... Das Problem konnte ich wie folgt beheben: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim wdappl As Object Dim wdDoc As Object Dim wdApplLiefNicht As Boolean Const wdDocVorlage As String = "*.doc" Private Sub Command1_Click() Dim OrigVorlage As String Dim path As String Dim AlterServer As String Dim NeuerServer As String Dim lenServer As Integer Dim Dokk Dim i As Integer Dokk = App.path & "\Datei.doc" Call ShellExecute(hwnd, "Open", Dokk, "", "", 1) AlterServer = Text1.Text NeuerServer = Text2.Text lenServer = Len(AlterServer) With Dialogs(wdDialogToolsTemplates) path = .Template End With With ActiveDocument ' Prüfung, ob die Vorlageninfo im Dokument tatsächlich auf den ' nicht mehr vorhandenen Server zeigt: If Mid(path, 1, 9) = Mid(AlterServer, 1, 9) Then ' Ermittlung des ursprünglichen Vorlagennamens: OrigVorlage = Mid(path, lenServer + 1, Len(path) - lenServer + 1) ' Weise Vorlage mit gleichem Namen im neuen Vorlagenpfad zu: .AttachedTemplate = NeuerServer '& OrigVorlage ' Aktuelles Dokument als nicht gespeichert markieren: .Saved = False ' Änderungen speichern und Dokument schließen: .Close SaveChanges:=wdSaveChanges, _ OriginalFormat:=wdOriginalDocumentFormat Else ' Falls die Vorlage nicht auf dem nicht mehr vorhandenen Server liegt: ' Dokument wieder schließen: ActiveDocument.Saved = True ActiveDocument.Close End If End With End Sub <- Tipp von Microsoft ( einer der Funktioniert Jetzt möchte ich folgendes realisieren: Ich möchte ein Laufwerk und/oder Verzeichnis angeben können in dem sich Worddateien befinden und das Programm soll eigenständig ALLE Dateien (*.DOC) durchlaufen... leider bin ich bisher einfach nur gescheitert... Bitte helft mir Vielen lieben Dank Franzi

VB6: Vorlagen Pfad in Worddateien ändern	2.371	babedejade	11.02.05 13:00
Re: VB6: Vorlagen Pfad in Worddateien ändern	832	wb-soft	11.02.05 13:53
Re: VB6: Vorlagen Pfad in Worddateien ändern	864	babedejade	11.02.05 14:17
Re: VB6: Vorlagen Pfad in Worddateien ändern	836	wb-soft	11.02.05 14:25
Re: VB6: Vorlagen Pfad in Worddateien ändern	817	babedejade	11.02.05 14:35
Re: VB6: Vorlagen Pfad in Worddateien ändern	796	wb-soft	11.02.05 15:16

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