Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textbausteine im aktuellen Dokument
zurück: SpeichernUner Button mit Namensvorschlag weiter: Einfügen eines jpg an eine fest definierte Stelle mit VBA Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
steinchen84
Gast


Verfasst am:
25. Jun 2010, 15:12
Rufname:

Textbausteine im aktuellen Dokument - Textbausteine im aktuellen Dokument

Nach oben
       Version: Office 2003

Hallo,

ich möchte per VBA eine Datei ausgeben lassen, die nur die im aktuellen Dokument verwendeten Textbausteine ausgibt.

Am Dokument hängt eine Vorlage, die ziemlich viele Textbausteine enthält; ich möchte nun nicht eine Liste aller Bausteine dieser Vorlage, sondern nur die Bausteine, die im aktuellen Dokument benutzt werden.

Geht das, wenn ja, weiss jemand wie? Mein Ansatz mit

Code:
Set tempTemplate = docActiveDoc.AttachedTemplate

Open "C:\AutoText.txt" For Output As #1
For Each i In tempTemplate.AutoTextEntries
 Print #1, tempTemplate.AutoTextEntries(i).Name
Next i
Close #1


funktioniert nicht.
Danke schonmal im Vorraus.

Viele Grüße, Eva
Hubert_R
Gast


Verfasst am:
25. Jun 2010, 16:57
Rufname:


AW: Textbausteine im aktuellen Dokument - AW: Textbausteine im aktuellen Dokument

Nach oben
       Version: Office 2003

Hallo Eva,

soviel mir bekannt ist, können in Word 2003 keine
Autotexte direkt in einem Dokument, sondern nur
in der verbundenen Vorlage gespeichert werden,
Irrtum vorbehalten.
Das Makro listet die Autotexte aus der mit dem ak-
tiven Dokument verbunden Vorlage in einem neuen
Dokument auf.

Grüsse Hubert
Code:
Sub ListAutoText()
  Dim oAutoText As Word.AutoTextEntry
  '
  With Application
    .ScreenUpdating = False
    .Documents.Add
    '
    For Each oAutoText In ActiveDocument.AttachedTemplate.AutoTextEntries
      With .Selection
        .Font.Bold = True
        .TypeText Text:=oAutoText.Name
        .TypeParagraph ' \\ Insert Para
        .Font.Bold = False
        oAutoText.Insert Where:=.Range, RichText:=True
        .TypeParagraph
        .TypeParagraph
      End With
    Next
    '
    .ScreenUpdating = True
  End With
End Sub
Gast



Verfasst am:
28. Jun 2010, 09:19
Rufname:

AW: Textbausteine im aktuellen Dokument - AW: Textbausteine im aktuellen Dokument

Nach oben
       Version: Office 2003

Hallo Hubert,

vielen Dank für deine Antwort und den Beispielcode! Ich werde es dann auf diese Weise probieren Smile

Viele Grüße,
Eva
steinchen84
Gast


Verfasst am:
28. Jun 2010, 12:46
Rufname:


AW: Textbausteine im aktuellen Dokument - AW: Textbausteine im aktuellen Dokument

Nach oben
       Version: Office 2003

Falls noch jemand dieses Problem haben sollte, ich habe es jetzt anders gelöst, und zwar lasse ich mir den Code zu allen im aktiven Dokument vorhandenen Feldern ausgeben:


Code:
Dim ff As Field
Dim strField as String
Open "C:\AutoText.txt" For Output As #1
For Each ff In ActiveDocument.Fields
    ff.ShowCodes = True
    strField = ff.Code.Text
    Print #1, strField
    Next ff
Close #1


Hier bekommt man zwar auch noch die Felder für Inhaltsverzeichnis u.ä. mit angezeigt, diese kann man bei Bedarf aber auch noch rausfiltern.

Viele Grüße,
Eva
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
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 Serienbriefe: Word Dokument Serienbriefvorlage 2 Biland 109 14. Feb 2014, 16:10
Biland Word Dokument Serienbriefvorlage
Keine neuen Beiträge Word Serienbriefe: Automatisiertes Dokument erstellen 2 Prease 224 20. Nov 2013, 14:43
Prease Automatisiertes Dokument erstellen
Keine neuen Beiträge Word Serienbriefe: Textmarken: Alle innerhalb einem Dokument anzeigen lassen 1 Gast 815 11. März 2013, 23:28
MarkMH_K Textmarken: Alle innerhalb einem Dokument anzeigen lassen
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Quelle aus dem Selben Dokument 4 Muecke.1982 325 07. Jan 2013, 17:54
Muecke1982 Serienbrief mit Quelle aus dem Selben Dokument
Keine neuen Beiträge Word Serienbriefe: Dynamisch erzeugtes dokument in WORD 2 Wotild 284 13. Nov 2012, 14:36
Gast Dynamisch erzeugtes dokument in WORD
Keine neuen Beiträge Word Serienbriefe: Mehrere Datensätze aus excel in ein Dokument 2 Synapse 830 14. Jan 2012, 23:49
Synapse Mehrere Datensätze aus excel in ein Dokument
Keine neuen Beiträge Word Serienbriefe: Wie verwende ich ein gescanntes Dokument als Vorlage? 4 kukaburra 3066 29. Nov 2011, 23:54
will8d Wie verwende ich ein gescanntes Dokument als Vorlage?
Keine neuen Beiträge Word Serienbriefe: Serienbriefe/Platzrahmenhalter/Textbausteine/Textfelder etc. 0 Flyingoeschi 1133 19. Jul 2011, 13:40
Flyingoeschi Serienbriefe/Platzrahmenhalter/Textbausteine/Textfelder etc.
Keine neuen Beiträge Word Serienbriefe: Adresse von Excel Liste in Word Dokument übernehmen 3 BigBöni 4288 21. Apr 2011, 17:57
charlybrown Adresse von Excel Liste in Word Dokument übernehmen
Keine neuen Beiträge Word Serienbriefe: Textbausteine Erstellen 2 Malygos 2948 14. Feb 2011, 18:16
Malygos Textbausteine Erstellen
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief Dokument Namen zuweisen 3 SR-EP 1721 07. Dez 2009, 13:25
charlybrown Word Serienbrief Dokument Namen zuweisen
Keine neuen Beiträge Word Serienbriefe: Adressen aus Office tabellen dokument in dokument einfügen 1 Anna-L. 1217 15. Nov 2009, 21:42
charlybrown Adressen aus Office tabellen dokument in dokument einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen