Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Word Document öffnen und Textmarken durch text ersetzen
Autor: Pc-Dummy2
Datum: 04.03.04 16:48
Private Sub cmdOK_Click() Dim wdAppl As Object Dim wdDoc As Object Dim sFile As String Dim sAnredeLang As String ' On Error Resume Next ' Set wdAppl = GetObject(, "Word.Application") err.Clear If wdAppl Is Nothing Then Set wdAppl = CreateObject("Word.Application") If err.Number <> 0 Then err.Raise 520, , "Konnte keine Verbindunge zu Word herstellen!" End If End If ' On Error GoTo err sFile = CurrentProject.Path Select Case Me.opgVorlage.Value Case 1 sFile = sFile & "\vorlagen\absage1.doc" Case 2 sFile = sFile & "\vorlagen\absage2.doc" Case 3 sFile = sFile & "\vorlagen\absage3.doc" End Select If FileExists(sFile) Then Set wdDoc = wdAppl.Documents.Open(sFile, , True) Else err.Raise 522, , "Fehler beim öffnen des Documents: '" & sFile & "', Document exestiert nicht!" End If If left(rs!titel, 1) = "H" Then sAnredeLang = "Sehr geehrter Herr" ElseIf left(rs!titel, 1) = "F" Then sAnredeLang = "Sehr geehrte Frau" Else err.Raise 523, , "Unbekannte Anrede: " & rs!titel & "!" End If setBookmark wdDoc, "Titel", rs!titel setBookmark wdDoc, "Anredelang", sAnredeLang setBookmark wdDoc, "Anschrift", rs!anschrift setBookmark wdDoc, "Land", rs!Land setBookmark wdDoc, "Name1", rs!name & Chr(32) & rs!vorname setBookmark wdDoc, "Name2", rs!name & Chr(32) & rs!vorname setBookmark wdDoc, "ort", rs!ort setBookmark wdDoc, "Plz", Trim(CStr(rs!plz)) setBookmark wdDoc, "vom", rs!vom With wdAppl .Application.Visible = True .Application.Activate .WindowState = wdWindowStateMaximize .ActiveWindow.View.Type = wdPageView .ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit End With Set wdDoc = Nothing Set wdAppl = Nothing DoCmd.Close Form_frmMain.Refresh2 Exit Sub err: If Not wdAppl Is Nothing Then Set wdDoc = Nothing wdAppl.Quit False Set wdAppl = Nothing End If MsgBox err.Description, vbCritical End Sub ' Very little helper function for cmd_ok Private Sub setBookmark(ByRef WordDoc As Word.Document, ByVal BookmarkName As String, BookmarkText As Variant) Dim TMRange As Word.Range If WordDoc.Bookmarks.Exists(BookmarkName) Then Set TMRange = WordDoc.Bookmarks(BookmarkName).Range If Not IsNull(BookmarkText) Then TMRange.Text = BookmarkText Else TMRange.Text = "" End If WordDoc.Bookmarks.Add name:=BookmarkName, Range:=TMRange Set TMRange = Nothing Else MsgBox "Fehler Bookmark: " & BookmarkName & " existiert nicht im document: " & WordDoc.FullName & "!", vbCritical End If End Sub

Word Document öffnen und Textmarken durch text ersetzen	1.953	Pc-Dummy2	04.03.04 16:48
Re: Word Document öffnen und Textmarken durch text ersetzen	1.681	Pc-Dummy2	04.03.04 16:48

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