Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Vorlage von Word
Autor: Prian0815
Datum: 15.03.04 11:24
Hierzu mußt du in dem zu ändernden WordDocument Textmarken einfügen: Einfügen----> Textmarke. Diesen kannst du dann mit folgendem Code Text zuweisen Private Sub Wordfernsteuern() On Error GoTo Errorsprungmarke 'Variablendeklaration für Word - Zugriff Dim wdApp as Object Dim filename As String Dim path As String Dim WordLiefnicht as boolean 'Ende der Deklarationen WordLiefNicht = False path = Application.CurrentProject.path filename = path + "\" + "documentname" + ".doc" Set WDApp = GetObject(, Word.Application) Err.Clear ' Err-Objekt im Fehlerfall löschen. ' Word starten Set WDApp = CreateObject("Word.Application") If WDApp Is Nothing Then ' Fehler: Word nicht vorhanden! MsgBox msgNoWord, vbExclamation Exit Sub End If WDApp.Documents.Open filename:=filename Documents(1).Activate ActiveDocument.Bookmarks("Textmarke1").Select Selection.Text = " Ich hoffe der Code hilft weiter " filename = path + "\" + newdocument_name+ ".doc" WDApp.ActiveDocument.SaveAs filename:=filename WDApp.Quit Errorsprungmarke: P.S.: always look on the bright side of Life! If Err.Number = 429 Then WordLiefNicht = True Resume Next Else MsgBox Err.Description Resume Exit End If Exit: Exit Sub End Sub

Vorlage von Word	751	AnGe-Programmie...	12.03.04 20:29
Re: Vorlage von Word	607	Prian0815	15.03.04 11:24
Re: Vorlage von Word	484	AnGe-Programmie...	16.03.04 08:42
Re: Vorlage von Word	488	AnGe-Programmie...	16.03.04 10:18
Re: Vorlage von Word	478	Prian0815	16.03.04 15:42
Re: Vorlage von Word	506	AnGe-Programmie...	16.03.04 21:01

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