Autokorrektureinträge sichern
Diese Einträge werden teilweise in der Datei .acl im Windows-Verzeichnis
abgespeichert, teilweise auch in der Normal.dot. Eine komplette Sicherung
der Einträge werden mit einem Makro erledigt. In der mitgelieferten
Dokumentvorlage makro80.dot der Office-CD ist das entsprechende Makro
zum abspeichern und wieder zurückspeichern der Einträge:
Autokorrektur speichern - Sichern wählen
zum zurückspeichern der Einträge den Menüpunkt Wiederherstellen
wählen
Einzelne Datensätze einfügen
'Das Makro kopiert Felder aus einem Access-Formular in ein geöffnetes
Word-Dokument. Die Feldbezeichnungen müssen noch an die vorhandenen
Bezeichnungen angepaßt werden.
In der Entwurfsansicht fügen Sie über die Toolbox eine Befehlsschaltfläche
ein, geben über Eigenschaften den Namen und Bezeichnung "Word
Export" ein, wählen Ereignis und geben im Code-Editor den
untenstehenden Code ein. Anschließend noch unter Extras - Verweise
die Referenz "Microsoft Word 8.0 Object-Library" aktivieren.
Private Sub Word_Export_Click()
Dim Adresse As String
Dim LF As String * 2
Dim WordObj As Word.Application
Set WordObj = GetObject(, "Word.Application")
LF = Chr$(13) & Chr$(10)
If Not IsNull(Me!Firma) Then
Adresse = Me!Firma & LF & Me!Kontaktperson & LF &
Me!Strasse
Adresse = Adresse & LF & Me!PLZ & " " &
Me!Ort & LF & Me!Telefon
End If
WordObj.Selection.TypeText Text:=Adresse & LF
Set WordObj = Nothing
End Sub
Textanzeige während des Scrollens
ist mit folgender Änderung in der Registry nachrüstbar:
unter dem Schlüssel
"Hkey_Current_User\Software\Microsoft\Office\8.0\Word\Options"
erstellen Sie eine neue Zeichenfolge mit dem Namen "LiveScrolling"
und setzen den Wert auf "1".
Null als Ergebnis unterdrücken
'das Zahlenformat wird in der Formel nochmals wiederholt in einer
Klammer, ohne Leerzeichen und gefolgt von einem Semikokon. Die Darstellung
wird mit F9 aktualisiert.
Beispiel:
{=sum(b1:b2)\#0,00;} wird geändert in {=sum(b1:b2)\#0,00;-0,00;}
Shortcuts für Word-Befehle
für die Anzeige einzelner Shortcuts aktivieren Sie unter Extras-
Anpassen auf der Registerkarte Optionen die Klickbox: Tastenkombinationen
in Quickinfo anzeigen".
Einen Überblick sämtlicher Tastenkombinationen erhalten
Sie unter Extras - Makro - Makros und markieren in der Dropdownliste
neben 'Makros in:' den Eintrag 'Word-Befehle'. Wählen Sie dann
unter Makroname 'Befehle auflisten' und anschließend Ausführen.
Nach dem OK werden alle Tastenkombinationen aufgeführt.
Zeilenumbrüche entfernen
Sub zeilenumbruch()
WordBasic.editReplace Find:="^a^a", Replace:="$#$#",
direction:=0, replaceall:=1, Format:=0, Wrap:=0
WordBasic.editReplace Find:="^a", Replace:=" ",
replaceall:=1, Format:=0, Wrap:=0
WordBasic.editReplace Find:="$#$#", Replace:="^a",
replaceall:=1, Format:=0, Wrap:=0
End Sub
Menüs komplett anzeigen
wenn unter Extras - Anpassen - auf dem Registerblatt Optionen den Haken
vor "Menüs zeigen zuletzt verwendete Befehle zuerst an"
entfernt wird, werden die Menüs wieder komplett angezeigt.
Zahlen in Worte umwandeln
'mit einem zusätzlichen Schalter in den Feldfunktionen \*Cardtext (ab Word2000) und
\*Grundtext (für Word97).
Beispiel:
=SUMME(a1:a55) \*Cardtext
oder
REF Textmarke \*Cardtext
