Office: Schnellbaustein per Makro einfügen

Hallo,
ich habe eine Dokumentvorlage für einen Briefkopf in Word erstellt. Per Autonew-Makro werden der Adressat, der Betreff, die Anrede etc. abgefragt und eingefügt. Für jeden zu erstellenden Brief kann es unterschiedliche Sachbearbeiter, sprich Ansprechpartner geben. Für jeden Ansprechpartner habe ich jeweils einen Schnellbaustein mit Telefonnummer, Emailanschrift etc. angelegt. Es gelingt mir auch, den Namen des Schnellbausteines abzufragen.
Was mir nicht gelingen will ist, den abgefragten Namen des Schnellbausteines anschließend per Variable an die Feldfunktion "AutoTextFeld" zu übergeben, um den Schnellbaustein aufrufen zu können.
Kann mir dabei jemand helfen?

P.S.: Gibt es vielleicht alternativ eine Möglichkeit über eine VBA-Zeile? Auch da bekomme ich es leider nicht hin, die Variable zu übergeben.

 

Hallo ,

ich kenn keine Feldfunktion "AutotextFeld". Meinst du vielleicht "AutotextList"? Da erfolgt die Zuweisung der Autotexte doch automatisch in Abhängigkeit der Formatvorlage, in der die Autotexte erstellt wurden. VBA ist nicht nötig.
Allerdings erscheint mir dies doch recht antiquiert und gewohnheitsbedürftig, weil man die Liste per Rechtsklick aufklappen muss.

Die moderne Version davon heißt "Bausteinkatalog-Inhaltssteuerelement" und benötigt ebenfalls keine Zuweisung von Autotexten per VBA. Dort machst du das über die Kategorie, die du beim Erstellen der Schnellbausteine gewählt/erzeugt hast. Kurzanleitung im Anhang.

 

Hallo Gerhard,
vielen Dank für Deine Antwort. War leider etwas länger abwesend und konnte nicht früher antworten. Ich meinte natürlich das Feld "AutoText". Du hast Recht, meine Kenntnisse sind wirklich etwas eingerostet, weil ich in den letzten 20 Jahren recht wenig mit Word zu tun hatte. Dein Hinweis auf die moderne Version "Bausteinkatalog-Inhaltssteuerelement" war schon recht hilfreich.
Allerdings löst es mein Problem nicht. Ich möchte den Texterfasser zu Beginn eines Briefes dazu auffordern, das Kürzel desjenigen anzugeben, der sich für den Text verantwortlich zeichnet (z.B. "AKS") . Das geht ganz gut mittels eines Makros. Das angegebene Kürzel wird dann in einer Variablen gespeichert. Abhängig vom angegebenen Kürzel sollen nunmehr Informationen zum Ansprechpartner (EMail, Durchwahltelefon etc.), also "AKS" eingefügt werden. Es gibt zu jedem möglichen Ansprechpartner einen Schnellbaustein z.B. mit dem Namen "AP_AKS" in dem diese Informationen gespeichert sind. Außerdem soll abhängig vom Kürzel auch die Schlusszeile (mfg) gestaltet werden.
Diese Vorgehensweise hätte den Vorteil, dass ich nicht für jeden Briefeschreiber eigene Dokumentvorlagen anlegen müsste, sondern mit einer einzigen Vorlage arbeiten könnte.

 

Hallo AKS,

da hab ich deinen Plan ein bisschen missverstanden. Also ein neuer Anlauf: Da ich dein Makro, welches nach deinen Kürzeln fragt, nicht kenne, hab ich das im angehängten Musterdokument selber erledigt. Die Start-Automatik per Document_new() hab ich einstweilen lahmgelegt.
In der Vorlage gibt es zwei Textbausteine mit dem Namen AKS und BKS (beliebig erweiterbar). Beim Start wird das Kürzel per InputBox abgefragt und der Baustein gleichen Namens eingefügt. Als Einfügestelle hab ich ein Rich-Text-Inhaltssteuerelement gewählt.

Code:

Private Sub starteManuell() 'document_new()
Dim kuerzel As String
Dim myTemplate As Template

kuerzel = InputBox("Kürzel?", , "AKS")
Set myTemplate = ActiveDocument.AttachedTemplate

On Error GoTo fehler
myTemplate.BuildingBlockEntries(kuerzel).Insert _
where:=ActiveDocument.SelectContentControlsByTag("mitarbeiter").Item(1).Range

Exit Sub
fehler:
MsgBox "Es gibt keinen Baustein dieses Namens"
End Sub

Analog kannst du für die Schlusszeile verfahren, indem du die Bausteine einfach mit einem Präfix versiehst, wie du es schon angedeutet hast. Das folgende Makro ist im Musterdokument bereits enthalten

Anmerkung:
Es ist günstiger, die Kürzel per Dropdown auswählen zu lassen; dann entfällt die Prüfung auf nicht vorhandene Kürzel.