Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Liste der "Zuletzt verwendete Vorlagen" ausweiten
Gehe zu Seite Zurück  1, 2, 3
zurück: Alle Dateien aus Ordner drucken (bestimmtes Format) weiter: Zeichenzähler bei Eingabe Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
28. Apr 2014, 09:20
Rufname:
Wohnort: Karlsruhe

AW: Liste der "Zuletzt verwendete Vorlagen" auswei - AW: Liste der "Zuletzt verwendete Vorlagen" auswei

Nach oben
       Version: Office 2003

Hallo!

Ich war jetzt 2 Wochen in Urlaub, habe mich deshalb nicht gemeldet.

Den Einwand von Miss Marple, die normal.dot in Ruhe zu lassen, kann ich teilweise gelten lassen.
Streng genommen, stimmt die Argumentation, dass die normal.dot dem Anwender gehört und ich die Finger davon lassen sollte. Zumal diese normal.dot jederzeit gelöscht werden kann etc.
Allerdings macht so gut wie kein Anwender bei uns etwas in Sachen VBA. Es gibt die Anweisung, dass dies nur die DV-Abt. machen darf.
Ich werde mir bei Gelegenheit nochmals Gedanken zu dem Thema 'AddIns' machen und es wohl auch ausprobieren.

Danke für die konstruktive Diskussion, aus der ich wieder einiges gelernt habe.
Zu meinen VBA-Kenntnissen - ich habe das ein oder andere Makro geschrieben, allerdings festgestellt, dass ich noch einiges zu lernen habe... (in Sachen IT lernt wohl jeder ständig neu dazu...)

_________________
Gruß
Steffen Kuch
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
30. Apr 2014, 08:49
Rufname:
Wohnort: Karlsruhe

AW: Liste der "Zuletzt verwendete Vorlagen" auswei - AW: Liste der "Zuletzt verwendete Vorlagen" auswei

Nach oben
       Version: Office 2003

Guten Morgen!

Folgender Stand:

  1. Das Thema 'RecentFiles' hilft mir nicht, da hier nicht die Dateien auftauchen, die ich in meine Liste aufnehmen möchte (warum auch immer)
  2. Programmcode in AutoNew oder Document_New innerhalb der normal.dot hilft mir nicht, da dies bei vielen unserer Dokumentvorlagen nicht zum Zuge kommt
  3. Meine Lösung sieht so aus, dass ich über AutoExec() ein Makro starte, dass alle 10 Sek. prüft welche Dokumente offen sind und die zugrunde liegende dot-Datei ermittelt und in eine globale Variable speichert.
    Den Inhalt dieser Variable übergebe ich dann an eine Listbox in einer UserForm.
    Dabei muss ich allerdings den String mit split() wieder teilen und in ein array speichern.

Mein Problem ist nun, wie ich den Inhalt des array in die Listbox bekomme und die einzelnen Einträge so gestalte, dass der Anwender darauf klicken kann und Word ein neues Dokument auf Basis dieser Dot-Datei erstellt.
Mein Programmcode zur userform:
Code:
Private Sub UserForm_Initialize()

Dim varVorlage As Variant
Dim arrVorlagen As Variant
Dim strZeichen As String
Dim lngZaehler As Long

'Damit hole ich mir den Wert der globalen Variablen
varVorlage = Normal.ThisDocument.WertTransfer

arrVorlagen = Split(varVorlage, Chr(13))

For lngZaehler = 0 To 1
    lstVorlagen.AddItem (arrVorlagen(lngZaehler))
Next

End Sub


Wie kann ich die Schleife so gestalten, dass je nach Anzahl der Stringblöcke im array die listbox gefüllt wird?
Oder brauche ich einen anderen Ansatz?
Danke für eure Hilfe!

_________________
Gruß
Steffen Kuch
Miss Marple
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 08:58
Rufname:
Wohnort: 52° 15' 53" N, 10° 31' 26" E

AW: Liste der "Zuletzt verwendete Vorlagen" auswei - AW: Liste der "Zuletzt verwendete Vorlagen" auswei

Nach oben
       Version: Office 2003

Hi,
Code:

For lngZaehler = LBound(arrVorlagen) To UBound(arrVorlagen)

... und vorher die alte Liste löschen.

Gruß
MM
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
30. Apr 2014, 09:32
Rufname:
Wohnort: Karlsruhe

AW: Liste der "Zuletzt verwendete Vorlagen" auswei - AW: Liste der "Zuletzt verwendete Vorlagen" auswei

Nach oben
       Version: Office 2003

Danke Miss Marple!
_________________
Gruß
Steffen Kuch
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
30. Apr 2014, 14:38
Rufname:
Wohnort: Karlsruhe

AW: Liste der "Zuletzt verwendete Vorlagen" auswei - AW: Liste der "Zuletzt verwendete Vorlagen" auswei

Nach oben
       Version: Office 2003

Hallo!

Ich denke, ich bin nun zunächst mal fertig

Ich benutze drei globale Variablen (globVorlagen, globVorlagenPfad und varNextStart, alles Variant).
Folgender Code muss in der normal.dot in "ThisDocument":
Code:
Sub AutoExec()

Dim varNextStart As Variant

varNextStart = Now + TimeValue("00:00:10")
Application.OnTime When:=varNextStart, Name:="Normal.ThisDocument.VorlagenErkennen"

End Sub


Sub VorlagenErkennen()

Dim ddX As Document: Set ddX = ThisDocument
Dim d As Document, byInd As Byte, varC As Variable
Dim vaaLaUsd As Variable
Dim vblVorlagenPfad As Variable


If Application.Documents.Count < 1 Then
    Exit Sub
End If

ddX.Variables("vaaLaUsd").Value = globVorlagen
ddX.Variables("vblVorlagenPfad").Value = globVorlagenPfad

For Each d In Application.Documents
    For Each varC In ddX.Variables
        byInd = varC.Index
    Next varC

    If byInd = 0 Then
        ddX.Variables.Add Name:="vaaLaUsd", _
        Value:=d.AttachedTemplate.Path & "\" & d.AttachedTemplate.Name
        ddX.Variables.Add Name:="vblVorlagenPfad", Value:=d.AttachedTemplate.Path
    Else
        If InStr(1, ddX.Variables("vaaLaUsd").Value, d.AttachedTemplate.Name) = 0 Then
            ddX.Variables("vaaLaUsd").Value = _
            ddX.Variables("vaaLaUsd").Value & Chr(13) & _
            d.AttachedTemplate.Path & "\" & d.AttachedTemplate.Name
        End If
    End If

Next d

globVorlagen = ddX.Variables("vaaLaUsd").Value
globVorlagenPfad = ddX.Variables("vblVorlagenPfad").Value


varNextStart = Now + TimeValue("00:00:10")

Application.OnTime When:=varNextStart, Name:="Normal.ThisDocument.VorlagenErkennen"

End Sub

Function WertTransfer()

WertTransfer = globVorlagen

End Function

Sub Vorlagen()

usfVorlagenListe.Show

End Sub


Meine UserForm heißt "usfVorlagenListe" und enthält eine listbox namens "lstVorlagen". Hier der Code dazu:
Code:
Private Sub lstVorlagen_DBlClick(ByVal Cancel As MSForms.ReturnBoolean)

Documents.Add Template:=lstVorlagen.List(lstVorlagen.ListIndex), _
        NewTemplate:=False, DocumentType:=0

Unload usfVorlagenListe

End Sub


Private Sub UserForm_Initialize()

Dim varVorlage As Variant
Dim arrVorlagen As Variant
Dim lngZaehler As Long


varVorlage = Normal.ThisDocument.WertTransfer

arrVorlagen = Split(varVorlage, Chr(13))

For lngZaehler = LBound(arrVorlagen) To UBound(arrVorlagen)
    lstVorlagen.AddItem (arrVorlagen(lngZaehler))
Next

End Sub


Vielen Dank nochmals an alle, die mit Ihren Tipps, konstruktiven Kritik und Diskussion zur Lösung beigetragen haben!

Kann gut sein, dass diese Lösung nicht sonderlich elegant ist, aber die ersten Tests zeigen, dass sie funktioniert.
Ich hoffe, der Anwender ist zufrieden damit...

_________________
Gruß
Steffen Kuch
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2, 3
Diese Seite Freunden empfehlen

Seite 3 von 3
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Anzahl der zuletzt verwendeten Vorlagen vergrößern 8 riri 5085 07. Apr 2014, 07:47
Steffen Kuch Anzahl der zuletzt verwendeten Vorlagen vergrößern
Keine neuen Beiträge Word Formate: Word Vorlagen mit nicht druckbaren hintergrund 7 Justmicha 7930 17. Sep 2009, 12:05
Garath Word Vorlagen mit nicht druckbaren hintergrund
Keine neuen Beiträge Word Formate: Pulldown Menü Word als Liste anzeigbar? 1 PCPia 1000 07. Jun 2009, 19:16
Schneewittchen Pulldown Menü Word als Liste anzeigbar?
Keine neuen Beiträge Word Formate: Vorlagen in Word (Vista) 0 T.M. 2828 13. Mai 2009, 13:30
T.M. Vorlagen in Word (Vista)
Keine neuen Beiträge Word Formate: Vorlagen von 2000 1 pp_star 409 20. Apr 2009, 13:48
Clarxes Vorlagen von 2000
Keine neuen Beiträge Word Serienbriefe: Serienbriefe - bereits erstellte Vorlagen importieren 1 Gast 3733 26. Sep 2008, 17:06
Gast Serienbriefe - bereits erstellte Vorlagen importieren
Keine neuen Beiträge Word Serienbriefe: Access Abfragen in Word Serienbriefen, Liste leer? 1 Dominik C. 2014 04. Sep 2008, 14:01
Dominik C. Access Abfragen in Word Serienbriefen, Liste leer?
Keine neuen Beiträge Word Formate: Vorlagen für Umschläge 0 maneich 5363 14. Apr 2008, 19:21
maneich Vorlagen für Umschläge
Keine neuen Beiträge Word Formate: Word 2007 Vorlagen im Buch von Natascha Nicol 2 goofy 3316 11. Apr 2008, 14:04
Gast Word 2007 Vorlagen im Buch von Natascha Nicol
Keine neuen Beiträge Word Formate: Zu verwendende Vorlagen für Inhaltsverzeichnis definieren - 2 Hirsch77 5865 13. Aug 2007, 12:08
Hirsch77 Zu verwendende Vorlagen für Inhaltsverzeichnis definieren -
Keine neuen Beiträge Word Formate: Word "Liste zuletzt geöffneter Dateien" DateiPfad 2 asdfgig 3716 27. März 2007, 12:16
asdfgig Word "Liste zuletzt geöffneter Dateien" DateiPfad
Keine neuen Beiträge Word Serienbriefe: Access-Daten (Liste) in eine Word-Tabelle in einem Textfeld 0 hausl78 1617 16. März 2007, 22:48
hausl78 Access-Daten (Liste) in eine Word-Tabelle in einem Textfeld
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum