Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel VBA Funktion auch im WORD vorhanden ???

Excel VBA Funktion auch im WORD vorhanden ?
06.08.2007 15:57:18
thomas
Hallo Zusammen,
habe ein Problem im WORD.
Ich nutze eine VBA-Funktion in Excel "Workbook_BeforeSave" um beim Speichen des Workbook
Einzugreifen um den Dateinamen in einen Bestimmten Syntax vorzugeben.
Gibt es diese Möglichkeit auch im WORD ?
Gruß Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nein! oT
06.08.2007 15:58:56
Hubert
oT

logisch !!!
06.08.2007 16:31:00
Nepumuk
Hallo Thomas,
klar gibt's die heißt dann DocumentBeforeSave. Du musst aber, um sie zu nutzen, eine Klasse der Application anlegen.
Gruß
Nepumuk

AW: logisch !!!
06.08.2007 17:20:34
Leo
Hi Nepumuk,
könnte ich gut gebrauchen, kannst du mal bitte ein Beispiel posten?
Klassen sind nicht so mein Ding.
mfg Leo

AW: logisch !!!
06.08.2007 17:32:00
Nepumuk
Hallo Leo,
in das Modul "ThisDocument":
Option Explicit

Private objApplication As clsApplication

Private Sub Document_Open()
    Set objApplication = New clsApplication
    Set objApplication.prpApplication = Word.Application
End Sub

In ein Klassenmodul mit dem Namen "clsApplication":
Option Explicit

Private WithEvents mobjApplication As Word.Application

Friend Property Set prpApplication(objApplication As Word.Application)
    Set mobjApplication = objApplication
End Property

Private Sub mobjApplication_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    If Doc Is ThisDocument Then
        MsgBox "Du willst mich wirklich schließen?", vbQuestion, "Abfrage"
    End If
End Sub

Gruß
Nepumuk

Anzeige
Danke, klappt super! oT
06.08.2007 17:36:00
Leo
oT

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige