Per Button immer die gleiche Datei öffnen?

Computer: Software & Programmierung Office Software
1

Ich möchte am Desktop einen Button (Word Datei) haben, welche ich anklicke (Z.B. : „Bericht“)und es öffnet sich immer folgende Datei:

Ab 06:00 Uhr soll sich immer die gleiche Datei (zb. Mit dem heutigen Datum : 04.09.2008) öffnet (Zb. Aus dem Ordner C:\Test/
Und dieses Worddokument sollte sich immer öffnen, wenn ich den Button (oder Word Datei) anklicke, bis am nächsten Tag um 06:00 öffnen.
Ab 06:01 am nächsten Tag sollte sich dann der nächste Tag (bzw. währe es dann der heutige) 05.09.2008 öffnen usw…

Ist so etwas überhaupt mit Word möglich?

Ich danke euch für eure Mühen.

2

Ich möchte am Desktop einen Button (Word Datei) haben, welche
ich anklicke (Z.B. : „Bericht“)und es öffnet sich immer
folgende Datei:

Und dieses Worddokument sollte sich immer öffnen, wenn ich den
Button (oder Word Datei) anklicke, bis am nächsten Tag um
06:00 öffnen.
Ab 06:01 am nächsten Tag sollte sich dann der nächste Tag
(bzw. währe es dann der heutige) 05.09.2008 öffnen usw…

Hallo Anton,

beachte den Hinweis auf den Verweis (Im VB-Editor Extras–Verweise)

Option Explicit
'
Sub Zeit()
Dim Pfad As String, Datei As String
Pfad = "C:\Test\"
Datei = "Dateiname" & IIf(Time \> "06:00:59", Format(Date, "yyyymmdd"), Format(Date - 1, "yyyymmdd")) & ".doc"
If Dir(Pfad & Datei) "" Then
 Documents.Open Pfad & Datei
Else
 Documents.Add
 ActiveDocument.SaveAs Pfad & Datei
End If
End Sub
'
Sub MakeDesktopShortcut()
' Verweis auf Windows Script Host Object Model setzen!
Dim wsh As New WSHShell
Dim sc As WshShortcut
Dim sPath As String
sPath = wsh.SpecialFolders.Item("Desktop")
Set sc = wsh.CreateShortcut(sPath & "\Bericht.lnk")
sc.TargetPath = Application.Path & "\winword.exe" & " /mZeit"
sc.Save
Set wsh = Nothing
End Sub

Gruß
Reinhard