title image


Smiley Re: Makro ausführen nachdem die Datei gestartet wurde
Hi,



noch ein Versuch.

Sub AutoExec()

AutoNew

End Sub

'

Sub AutoNew()

AutoOpen

End Sub

'

Sub AutoOpen()

While Application.Documents.Count = 0

DoEvents

Wend

'

'Intervall kann angepasst werden

'Application.OnTime When:=Now + TimeValue("00:00:30"), Name:="DemoDokumenteigenschaften"



DemoDokumenteigenschaften

End Sub

'

Private Sub DemoDokumenteigenschaften()

'Hinweise in der Hilfe des VBA-Editors, Stichwort DocumentProperty-Objekt

'eku: http://mypage.bluewin.ch/reprobst/WordFAQ/DokEigen.htm

'

With Dialogs(wdDialogFileSummaryInfo)

If .Title = "" Then .Title = ActiveDocument.Name

If .Subject = "" Then .Subject = "Worddokument"

If .Author "" Then .Author = Application.UserName

If .Keywords = "" Then .Keywords = "Word-Version " & Application.Version



If LCase(Mid(ActiveDocument.Path, 4, 7)) = "rezepte" Then

.Comments = "Rezeptsammlung"

ElseIf Mid(ActiveDocument.Path, 4, 9) = "Blutdruck" Then

.Comments = "Blutdrucktabelle"

Else

.Comments = "Korrespondenz"

End If

'If .Comments = "" Then

'Ausführen

.Execute

'zur Kontrolle anzeigen

.Show

End With

End Sub      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: