Globale Dokumentvorlage laden-/entladen

[Fredy Ackermann]

Guten Tag NG'ler

Ich versuche, in WordXP beim Aufruf eines Dokuments mit
Hilfe eines Automakros eine spezielle Dokumentvorlage in
den StartUp-Ordner zu laden und anschliessend zu
aktivieren.

Const conPfad As String = "C:\WordVorlagen\"
...
If Not fSchonInstalliert Then
FileCopy conPfad & "Layouts\A5h.dot", _
conPfad & "StartUp\A5h.dot"
AddIns(conPfad & "StartUp\A5h.dot").Installed = True
ActiveDocument.UpdateStylesOnOpen = False
End If
...

Die Einträge in Extras - Optionen - Dateiablage sind
entsprechend gesetzt.

Das Problem: Beim Ausführen des Befehls AddIns() kommt ein
"Laufzeitfehler 5941: Das angeforderte Element ist nicht in
der Sammlung vorhanden." Lasse ich das Makro in
Einzelschritten ablaufen und wechsle ich beim Auftreten der
Fehlermeldung zur Kontrolle nach Word, so sehe ich unter
Extras - Vorlagen und AddIns, dass das File richtigerweise
kopiert wurde, aber eben noch nicht aktiviert ist (kein
Haken im Kästchen). Nach Rückkehr in den VBA-Editor, kann
ich nun erstaunlicherweise mit F8 das Makro weiter
ausführen ...

Ist da evtl. ein zeitliches Problem hinter dieser
Fehlermeldung?

Danke für eure Mithilfe.
Fredy

[Thomas Gahler]

Hallo Fredy

Post by Fredy Ackermann
Ich versuche, in WordXP beim Aufruf eines Dokuments mit
Hilfe eines Automakros eine spezielle Dokumentvorlage in
den StartUp-Ordner zu laden und anschliessend zu
aktivieren.

Das ist gar nicht nötig, di kannst das Addin von Irgewoher laden. Es muss
nicht im Startup-Ordner gespeichert sein. Hier hat es einfach den Vortaiel,
dass es beim nächsten Wordstart automatisch wieder geladen wird.


- AddIns.Add FileName:="C:\Temp\TestAddin.Dot", Install:=True


--
Thomas Gahler
MVP für WordVBA

- NT 4.0, SP6 | Office 97, SP2

[Fredy Ackermann]

Sali Thomas

danke für deine Antwort mit einer an sich eleganten Lösung.
Ein Problem kann dadurch jedoch nicht behoben werden ...

Post by Fredy Ackermann
Ich versuche, in WordXP beim Aufruf eines Dokuments mit
Hilfe eines Automakros eine spezielle Dokumentvorlage in
den StartUp-Ordner zu laden und anschliessend zu
aktivieren.

Das ist nicht nötig, du kannst das Addin von Irgendwoher
laden. Im Startup-Ordner hat es einfach den Vorteil, dass
es beim nächsten Wordstart automatisch wieder geladen
wird.
AddIns.Add FileName:="C:\Temp\MyDot.Dot", Install:=True

Ursache für meinen eingeschlagenen Weg ist die Problematik
der Hierarchie, wie Makros abgearbeitet werden. Ich habe
diesbezüglich bereits früher in drei Threads Fragen
gepostet:

- Falscher Makrozugriff
http://groups.google.com/groups?hl=de&lr=&ie=UTF-8&safe=off
&selm=061401c32fd4%248c06e460%24a601280a%40phx.gbl

- "Falscher" Makrozugriff
http://groups.google.com/groups?hl=de&lr=&ie=UTF-8&safe=off
&selm=046601c333d5%24501e00a0%24a301280a%40phx.gbl

- Reihenfolge der globalen Vorlagen ändern
http://groups.google.com/groups?hl=de&lr=&ie=UTF-8&safe=off
&selm=0d8b01c335a2%2433176090%24a301280a%40phx.gbl

Durch die Namenwahl der in den StartUp-Ordner zu ladenden
Dokumentvorlage wäre die Reihenfolge so, dass auf die
richtigen Makros zugegriffen wird, (nach meinem derzeitigen
Kenntnisstand) gewährleistet.

Mich erstaunt es einfach, dass nach dem "Abstecher" ins
Word der Code im VBA-Editor korrekt zu Ende ausgeführt
werden kann.

Grüsse aus Liechtenstein
Fredy

[Thomas Gahler]

Hallo Fredy

Post by Fredy Ackermann
Ursache für meinen eingeschlagenen Weg ist die Problematik
der Hierarchie, wie Makros abgearbeitet werden. Ich habe
diesbezüglich bereits früher in drei Threads Fragen

Kann mich noch knapp an diese Diskussionen erinnern.

Wenn ich richtig liege, hies es damals die Addins würden alphabethisch
geladen. Jetzt zu deiner Fage kann ich nur sagfen wieso nimmst du den ganzen
Ladevorgan nicht selber in die Hand.

Kleines Addin sachreiben welches im Startup-Ordner liegt, diese hat die
Aufgabe die benötigten Addins in der richtigen Reihenfolge nach zu laden.
Also ungefähr so:

AddIns.Add FileName:="C:\Temp\A.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\Z.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\1.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\M.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\B.Dot", Install:=True





--
Thomas Gahler
MVP für WordVBA

- NT 4.0, SP6 | Office 97, SP2

[Fredy Ackermann]

Sali Thomas

Post by Thomas Gahler
Kann mich noch knapp an diese Diskussionen erinnern.
Wenn ich richtig liege, hies es damals die Addins würden
alphabethisch geladen.

Richtig. Zudem werden aus irgendwelchen Ordnern mit
AddIns.Add dazugeladene Vorlagen generell _nach_ jenen aus
dem StartUp-Ordner aufgelistet (und demnach abgearbeitet).

Post by Thomas Gahler
Nimm den ganzen Ladevorgang selber in die Hand. Kleines
Addin sachreiben welches im Startup-Ordner liegt, dieses
hat die Aufgabe, die benötigten Addins in der richtigen
Reihenfolge nach zu laden.
AddIns.Add FileName:="C:\Temp\A.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\Z.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\1.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\M.Dot", Install:=True
AddIns.Add FileName:="C:\Temp\B.Dot", Install:=True

Leider werden die Dateien trotzdem in der Reihenfolge
1.Dot, A.dot, B.dot, M.dot, Z.dot eingereiht :-((

Ich bin also weiterhin überzeugt, grundsätzlich den
richtigen (weil einzigen?) Lösungsansatz gewählt zu haben.
Ich frage mich einfach nur, weshalb ich mit diesem Vorgehen
die geschilderte Fehlermeldung "angefordertes Element ist
nicht in der Sammlung vorhanden" provoziere ???

Übrigens entferne ich beim Schliessen des Dokuments die
Vorlage mit dem Befehl Kill jeweils wieder aus dem
StartUp-Ordner.

Guter Rat ist ...
gefragt, erhältlich von, nicht möglich, teuer, ... ;-)

Gruss Fredy

[Rainer H. Rauschenberg]

Post by Fredy Ackermann
Das Problem: Beim Ausführen des Befehls AddIns() kommt ein
"Laufzeitfehler 5941: Das angeforderte Element ist nicht in
der Sammlung vorhanden." Lasse ich das Makro in
Einzelschritten ablaufen und wechsle ich beim Auftreten der
Fehlermeldung zur Kontrolle nach Word, so sehe ich unter
Extras - Vorlagen und AddIns, dass das File richtigerweise
kopiert wurde, aber eben noch nicht aktiviert ist (kein
Haken im Kästchen). Nach Rückkehr in den VBA-Editor, kann
ich nun erstaunlicherweise mit F8 das Makro weiter
ausführen ...
Ist da evtl. ein zeitliches Problem hinter dieser
Fehlermeldung?

Schon mal ein paar DoEvents eingestreut?

[Rainer H. Rauschenberg]

Als naechstes wuerde ich ein wenig sleep() einstreuen. API-Call, fuer
Aufruf vgl. z.B. http://dbforums.com/arch/219/2002/9/493718

Wirkt leider auch nicht :-(
Mich dünkt, VBA sei nicht à jour was den aktuellen Status der AddIns
anbelangt: Die fraglichen dots sind nach dem entladen mittels eines
Automakros (im Einzelschrittmodus ausgeführt) zB. weder im
StartUp-Ordner noch in Word Extras -> Vorlagen und AddIns aufgeführt
und trotzdem erscheint beim anschliessenden Ausführen des Automakros
zum Laden des AddIns in einer MsgBox die fragliche dot (nebst anderen
tatsächlich geladenen) als bereits existent ?!
Funken da vielleicht eher irgendwelche tempöräre Einträge dazwischen
als das es sich um ein zeitliches Problem handelt?

Hmm ... naechster Versuch: Das Makro beim Start ruft das eigentlich zu
startende Makro nicht direkt auf, sondern ueber Application.OnTime.
Beispiel aus der Hilfe (VBA/W97):
Application.OnTime When:=Now + TimeValue("00:00:15"), Name:="Projekt1.Modul1.Makro1"

Rainer "ich benutze so eine Konstruktion, weil beim Start von Word 97 ein
Makro aus einem Addin nicht per Kommandozeilenschalter gestartet werden
kann, weil das Addin zu diesem Zeitpunkt noch nicht geladen ist"
Rauschenberg

[Fredy Ackermann]

Hallo Mitdenker, hallo Christian Freßdorf

nach einer kleinen Pause grüble ich wieder weiter an meinem
Makroproblem rum.

Gefühlsmässig ist die Richtung der Ursachenforschung wirklich falsch,
das Problem also nicht zeitlich begründet ...

Ich bin mittlerweile auch der festen Überzeugung, dass das Problem ein
'nicht Erkennen des Neulings' ist, sprich: es fehlt irgendwie ein
refresh, welches dem Makro klar macht, dass mittlerweile ein neues
Addin hinzugekmmen ist (durch einen FileCopy-Befehl) und dieses Addin
jetzt 'nur noch' aktiviert werden muss.

Hoppla - eben bin ich auf einen Thread gestossen, bei dem Christian
Freßdorf vor über drei Jahren ein ähnliches Erlebnis schilderte:
http://groups.google.com/groups?hl=de&lr=&ie=UTF-8&safe=off&threadm=8tnabsk1ns0q5cmv67uin5fdfj74shk30d%404ax.com&rnum=1&prev=/groups%3Fhl%3Dde%26lr%3D%26ie%3DISO-8859-1%26safe%3Doff%26q%3Daddin%2Bauflistung%2Bgroup%253Amicrosoft.public.de.word.vba%2Bgroup%253Amicrosoft.public.de.word.vba%26meta%3Dgroup%253Dmicrosoft.public.de.word.vba

Hallo Christian, bist du diesbezüglich zwischenzeitlich weitergekommen
???

Fredy

[Christian Freßdorf]

Hallo Fredy,

... dessen 'nochmalige Überprüfung der "Registrierung"' ich aber nicht
verstanden habe / nicht nachvollziehen konnte.

hiermit ist gemeint, dass nicht 100%ig sichergestellt werden kann, dass das
AddIn auch markiert und somit als geladen registriert ist. Daher wird die
Funktion ein weiteres mal durchlaufen, um eben die Installed-Eigenschaft zu
prüfen.
Geht bestimmt einfacher, aber damals hab ich's so gemacht.

Function addin()
Dim vorhanden As Boolean
Dim newAddin As addin
vorhanden = False
'Beispiel
Const c_DOTPATH = _
"C:\Programme\Microsoft Office\Office\Macros\SUPPORT9.DOT"
Const c_DOT = "SUPPORT9.DOT"
For Each einAddin In AddIns
If InStr(LCase$(einAddin.Name), LCase(c_DOT)) > 0 Then
If einAddin.Installed = False Then
vorhanden = True
einAddin.Installed = True
Exit For
Else
vorhanden = True
Exit For
End If
End If
Next einAddin
If Not vorhanden Then
Set newAddin = AddIns.Add(c_DOTPATH, True)
' erneuter Durchlauf
addin
End If
End Function

[Fredy Ackermann]

Sali Christian und alle anderen Mitdenker

Daher wird die Funktion ein weiteres mal durchlaufen, um
eben die Installed-Eigenschaft zu prüfen. Geht bestimmt
einfacher, aber damals hab ich's so gemacht.
Function addin()
Dim vorhanden As Boolean
Dim newAddin As addin
vorhanden = False
'Beispiel
Const c_DOTPATH = _
"C:\Programme\Microsoft Office\Office\Macros\SUPPORT9.DOT"
Const c_DOT = "SUPPORT9.DOT"
For Each einAddin In AddIns
If InStr(LCase$(einAddin.Name), LCase(c_DOT)) > 0 Then
If einAddin.Installed = False Then
vorhanden = True
einAddin.Installed = True
Exit For
Else
vorhanden = True
Exit For
End If
End If
Next einAddin
If Not vorhanden Then
Set newAddin = AddIns.Add(c_DOTPATH, True)

Mit dem Befehl AddIns.Add funktioniert es prinipiell auch
bei mir, aber ich brauch den Datei-Copy- Befehl, damit die
Reihenfolge der AddIns passt (siehe Diskussionsbeiträge
3-5). Wenn ich nun deinen Befehl durch
FileCopy Quelle, Ziel
ersetze, stimmt zwar die Priorität, die Funktion addin()
greift aber nicht mehr. Sie erkennt den Neueintrag in der
AddIn-Liste nicht ...

' erneuter Durchlauf
addin

... und gerät somit in eine Endlos-Schleife!

End If
End Function

Was könnt' ich bloss noch tun ???

Vielen Dank für weitere Tipps
und Grüsse aus dem prächtigen, herbstlichen Liechtenstein

Fredy

[Christian Freßdorf]

Hallo Fredy,

Post by Fredy Ackermann
Wenn ich nun deinen Befehl durch
FileCopy Quelle, Ziel
ersetze, stimmt zwar die Priorität, die Funktion addin()
greift aber nicht mehr.

? Kannst Du da vielleicht mal Deinen Code posten, damit ich mir ein
besseres Bild machen kann?
Denn wenn Du den Add-Befehl ersetzt, kann auch die Variable vorhanden nicht
gesetzt werden und Installed kann nicht greifen. Daher: warum ersetzen und
nicht ergänzen?

Gruß nach Vaduz von der ebenfalls sonnigen "schäl sick"
Christian

[Fredy Ackermann]

Hallo Christian

das war ja fast schneller als die Feuerwehr - Danke!

Post by Christian Freßdorf

Post by Fredy Ackermann
Wenn ich nun deinen Befehl durch
FileCopy Quelle, Ziel
ersetze, stimmt zwar die Priorität, die Funktion addin()
greift aber nicht mehr.

Kannst Du da vielleicht mal Deinen Code posten, damit
ich mir ein besseres Bild machen kann?

Sub AutoOpen()
Dim fSchonInstalliert As Boolean
Dim addinLoop As addin
Const conPfad As String = _
"C:\Daten\Allgemein\Vorlagen\Aca_Vorlagen_WinWord2002\"

' Prüfen, ob globale Dokumentvorlage nicht bereits im
' StartUp-Order vorhanden ist
fSchonInstalliert = False
For n = 1 To AddIns.Count
If AddIns(n) = "A5h.dot" _
Then fSchonInstalliert = True
Next n

' Globale Dokumentvorlage laden, wenn noch nicht
' vorhanden
If Not fSchonInstalliert _
Then FileCopy conPfad & "Layouts allgemein\A5h.dot", _
conPfad & "StartUp\A5h.dot"

' Const conPfad As String = _
"C:\Daten\Allgemein\Vorlagen\Aca_Vorlagen_WinWord2002\"
' x = conPfad & "StartUp\A5h.dot"
' If AddIns(x).Installed = False _
Then AddIns(x).Installed = True
' ActiveDocument.UpdateStylesOnOpen = False
' If AddIns("A5h.dot").Installed = True _
Then StatusBar = "A5h.dot wurde geladen"
addin
End If
End Sub

Function addin()
Dim vorhanden As Boolean
Dim newAddin As addin
Const c_DOTPATH = _

"C:\Daten\Allgemein\Vorlagen\Aca_Vorlagen_WinWord2002\Start
Up\A5h.dot"
Const c_DOT = "A5h.dot"
Const conPfad As String =
"C:\Daten\Allgemein\Vorlagen\Aca_Vorlagen_WinWord2002\"
vorhanden = False

For Each einAddin In AddIns
If InStr(LCase$(einAddin.Name), LCase(c_DOT)) > 0
Then
If einAddin.Installed = False Then
vorhanden = True
einAddin.Installed = True
Exit For
Else
vorhanden = True
Exit For
End If
End If
Next einAddin

If Not vorhanden Then
' Set newAddin = AddIns.Add(c_DOTPATH, True)
FileCopy conPfad & "Layouts allgemein\A5h.dot", _
conPfad & "StartUp\A5h.dot"

Hier hab' ich deinen Code frisiert!

' erneuter Durchlauf
addin
End If
End Function

Post by Christian Freßdorf
Wenn Du den Add-Befehl ersetzt, kann auch die Variable
vorhanden nicht gesetzt werden und Installed kann nicht
greifen. Daher: warum ersetzen und nicht ergänzen?

Wenn ich den die Dokumentvorlage A5h mit add dazufüge, ist
sie am Schluss der in 'Vorlagen und AddIns' aufgeführten
Liste, ich brauch sie aber am Anfang, weil sonst
gleichlautende Makros mit anderen (falschen) Werten
aufgerufen werden.

Gruss Fredy

[Fredy Ackermann]

Grüezi Christian

mit ein paar Pfadanpassungen klappt das hier eigentlich
gut. Hier mal meine Version (Pfade prüfen!)
[...]
If Not fSchonInstalliert Then
FileCopy conPfad & c_DOT, Application.StartupPath &

"\" & c_DOT

End If

Bis hierher klappt es tiptop :-)

If AddIns(c_DOT).Installed = False _
Then AddIns(c_DOT).Installed = True

Hier kommt jetzt aber die berühmt-berüchtigte Fehlermeldung
'Laufzeitfehler 5941: Das angeforderte Element ist nicht in
der Sammlung vorhanden' :-(
Hier könnte ich somit wieder eine Schlaufe zum ersten
Posting machen ... -> Lasse ich das Makro in
Einzelschritten ablaufen und wechsle ich beim Auftreten der
Fehlermeldung zur Kontrolle nach Word, so sehe ich unter
Extras - Vorlagen und AddIns, dass das File richtigerweise
kopiert wurde, aber eben noch nicht aktiviert ist (kein
Haken im Kästchen). Nach Rückkehr in den VBA-Editor, kann
ich nun mit F8 das Makro korrekt zu Ende bringen.

ActiveDocument.UpdateStylesOnOpen = False
If AddIns(c_DOT).Installed = True Then
StatusBar = c_DOT & " wurde geladen"
addin

Zum Aufruf dieser Funktion komme ich mit diesem Code nicht
mehr. Ich habe aber auch den Eindruck, dass es diesen
Aufruf auch gar nicht mehr braucht (If AddIns(x).Installed
=True Then 'Alles in Butter')

End If
End Sub

Mit einem herzlichen Dank für deine bisherigen (und
künftigen) Bemühungen grüsse ich aus dem
Alt-Weiber-Sommerlichen Liechtenstein

Fredy

[Fredy Ackermann]

Sali Christian

On Error Resume Next
If AddIns(c_DOT).Installed = False _
Then AddIns(c_DOT).Installed = True
On Error GoTo 0
besser?

Jein, nein, eigentlich nicht. Gut, das Makro läuft zwar
ohne Aufhängen durch, aber der Sinn des Ganzen ist
natürlich nicht erfüllt.
Ich habe zwischenzeitlich weitere (scheinbar banale)
Versuche unternommen:

a) Habe leere DV ebenfalls im StartUp-Ordner abgelegt.
Innerhalb meines Makros aktiviere/deaktiviere ich dieses
AddIn:
If AddIns("Dummy.dot").Installed = True _
Then AddIns("Dummy.dot").Installed = False _
Else AddIns("Dummy.dot").Installed = True
Meine Hoffnung, dass ich dadurch den händischen Aufruf des
Menüs 'Extras' > 'Vorlagen und AddIns' simulieren und damit
die Liste der geladenen DV refreshen könnte, hat sich
jedoch nicht erfüllt.

b) Habe versucht, den selben händischen Aufruf in Word95
aufzuzeichnen und dann den Code in mein Makro einzufügen:
WordBasic.AddInState c_DOTPATH, 0
Auch dieser Veruch verläuft negativ.

Bisher hilft einzig ein Unterbechen des Makros nach dem
Kopieren des AddIns in den StartUp-Ordner (im
Einzelschritt-Test ja gut möglich), dann ein Wechsel ins
Word, Aufrufen des erwähnten Menüs, Verlassen des Menüs
durch 'Abbrechen' oder 'OK' und dann Weiterführen des
Makros ...

Ich glaube bald, ich muss mir auf Microsofts Kosten Roboter
anschaffen, damit mein Makro ohne Eingreifen des Benutzers
vollständig und korrekt durchläuft ;-))

Gruss Fredy

[Christian Freßdorf]

Hallo Fredy,

Post by Fredy Ackermann
a) Habe leere DV ebenfalls im StartUp-Ordner abgelegt.
Innerhalb meines Makros aktiviere/deaktiviere ich dieses

klappt hier soweit ganz gut (Wd2k)

Post by Fredy Ackermann
b) Habe versucht, den selben händischen Aufruf in Word95

mh, Word95 ist die einzige Word-Version, die ich nicht auf dieser
Win2k-Umgebung installiert habe.

Post by Fredy Ackermann
Bisher hilft einzig ein Unterbechen des Makros nach dem
Kopieren des AddIns in den StartUp-Ordner (im
Einzelschritt-Test ja gut möglich), dann ein Wechsel ins
Word, Aufrufen des erwähnten Menüs, Verlassen des Menüs
durch 'Abbrechen' oder 'OK' und dann Weiterführen des
Makros ...

wie gesagt, kann ich das Problem hier nicht so recht nachvollziehen, da die
Häkchen korrekt gesetzt werden.
Vielleicht solltest Du Dir auch mal Gedanken über die doppelte Verwendung
von Makro-Namen machen. Vielleicht gibt es da ja eine Alternative.

Wenn es bei Dir nur über das EInblenden des Dialogfenster geht, das lässt
sich in Wd2k folgendermaßen automatisieren:

With Dialogs(wdDialogToolsTemplates)
.Execute
'.Show (1) alternativ mit ausbelnden
End With

[Fredy Ackermann]

Grüezi Christian

danke für deine Antwort.

Post by Christian Freßdorf

Post by Fredy Ackermann
a) Habe leere DV ebenfalls im StartUp-Ordner abgelegt.
Innerhalb meines Makros aktiviere/deaktiviere ich dieses
AddIn

klappt hier soweit ganz gut (Wd2k)

Ist auch bei mir kein Problem (WdXP). Idee war nur, eine
nicht störende) Aktion im Dialogfeld auszuführen.

Post by Christian Freßdorf

Post by Fredy Ackermann
b) Habe versucht, den selben händischen Aufruf in Word95
aufzuzeichnen und dann den Code in mein Makro einzufügen

mh, Word95 ist ... nicht ... installiert.

Nicht tragisch, habe das eher in einem Anflug der
Hilflosigkeit probiert (da es ja nich für alle alten
Befehle VBA-Entsprechungen gibt).

Post by Christian Freßdorf

Post by Fredy Ackermann
Bisher hilft einzig ... händisches Eingreifen

wie gesagt, kann ich das Problem hier nicht so recht
nachvollziehen, da die Häkchen korrekt gesetzt werden.
...
With Dialogs(wdDialogToolsTemplates)
.Execute
'.Show (1) alternativ mit ausbelnden
End With

Zeigt bei mir das Dialogfeld an, aber *keine* Einträge in
'globale Dokumentvorlagen ...' :-(( , nur jene in
'Dokumentvorlage'! Ist auch eher kurios, oder?

Post by Christian Freßdorf
Vielleicht solltest Du Dir auch mal Gedanken über die
doppelte Verwendung von Makro-Namen machen. Vielleicht
gibt es da ja eine Alternative.

Hintergrund: Ich habe ein anderes Makro, welches Grafiken
auf einen fixen %-Satz skaliert, abhängig von der
Formatgrösse des Dokumentes (A4, A5, usw.). Dieses Makro
wird über einen Button in der Symbolleiste aufgerufen, der
%-Satz ist in jeweils spezifischen DV definiert (Zusammen
mit jenen anderen Einstellungen).

Ich denke, die Verwendung des selben Makronamens sei somit
durchaus sinnvoll ...

Gruss Fredy