Word

Word - Abkürzungen identifizieren

Am Ende eines Berichts soll ein Abkürzungsverzeichnis erstellt werden. Die Suche nach den Abkürzungen kann sehr mühevoll sein. Abhilfe mit VBA: Dieses Skript durchsucht das Dokument nach Abkürzungen. Wichtig! Abkürzungen sind im Text wie folgt einzuführen: Visual Basis for Application (VBA).

Die Funktion PrintAbbreviations erzeugt eine Liste aller Abkürzungen im Direktbereich.

Option Explicit
  

Word 2013 vs. Word 2010 - Nicht bearbeitbare Dateien im Lesemodus öffnen

Bei der Umstellung von Word 2010 auf Word 2013 ist mir neulich ein Problem aufgefallen. Offensichtlich hat sich ein Standardwert geändert. Nicht bearbeitbare Dateien werden seit Word 2013 standardmäßig im Lesemodus geöffnet. Bei Automatisierungen mit VBA kann das zu Problemen führen.

Der Menüpunkt lautet: "E-Mail-Anlagen und andere nicht bearbeitbare Dateien im Lesemodus öffnen"
Die notwendige Einstellung kann auch über VBA erfolgen: Application.Options.AllowReadingMode=FALSE

Prüfen ob ein Wort in einem Word-Dokument vorkommt

Mit folgender Funtkion kann geprüft werden, ob ein Wort in einem Worddokument vorkommt.


Function WordExists(suche As StringAs Boolean
    Dim txt As String

    txt = ActiveDocument.Range.Text

Inhalt abgleichen