Hallo Hartmut,
ich habe einmal versucht, aus einem gespeicherten (!) Dokument die benutzte Vorlage zu extrahieren. Da ich nur wenig mit Vorlagen arbeite und noch Office 2000 benutze, wäre ich sehr daran interessiert zu erfahren, ob die Funktion bei dir geklappt hat.
Function Vorlage(datei)
Dim a1 As Byte, a2 As Byte, a3 As Byte, a4 As Byte
s1 = ".dot"
s2 = ":\"
Open datei For Binary As #1 Len = 1
q = False
Do Until EOF(1) Or z = 1
w = w + 1
Get 1, w, a1
Get 1, w + 2, a2
Get 1, w + 4, a3
Get 1, w + 6, a4
a = Chr(a1) + Chr(a2) + Chr(a3) + Chr(a4)
If a = s1 Then q = True: Exit Do
Loop
If q = False Then
Close 1
Vorlage = "Normal.dot"
Exit Function
End If
v = w
Do Until v < 5
v = v - 2
Get 1, v - 2, a1
Get 1, v, a2
b = Chr(a1) + Chr(a2)
If b = s2 Then Exit Do
Loop
vorl = ""
For i = v - 4 To w + 6 Step 2
Get 1, i, a1
Vorlage = Vorlage + Chr(a1)
Next i
Close 1
End Function
Sub Dokument ()
BenutzteVorlage = Vorlage(ActiveDocument.FullName)
End Sub
Viel Erfolg
Holger
|