Abfrage-Dialoge

Eine Vorlage erstellen (oder eine vorhandene öffnen), Mauszeiger an die Stelle setzen, an der das Abfragefeld erscheinen soll, dann "Einfügen - Feld" wählen. Unter der Kategorie Seriendruck den Feldnamen "Eingeben" wählen. Klicken Sie hinter das Wort Eingeben und geben Sie hier Ihren Abfragetext ein (Wichtig!! muß in Anführungszeichen stehen). Dann unter Optionen noch den Schalter \o hinzufügen (wenn gewünscht).
So können beliebig viele Abfragefelder erstellt werden.
Beim nächsten Öffnen der Vorlage werden die Felder nacheinander abgefragt.

---

Umlaute konvertieren

Sub UmlauteKonvertieren() 'Cursor an den Dokumentanfang
Selection.HomeKey Unit:=wdStory 'Suchen und Ersetzen für alle äöüÄÖÜß beginnen
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ä"
.Replacement.Text = "ae"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ö"
.Replacement.Text = "oe"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ü"
.Replacement.Text = "ue"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ü"
.Replacement.Text = "Ue"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ä"
.Replacement.Text = "Ae"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ö"
.Replacement.Text = "Oe"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ß"
.Replacement.Text = "ss"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll End Sub

---

Hyperlink ausschalten

Sub HyperlinkAusschalten()

'Hyperlink der aktuellen Markierung entferenen
Selection.Range.Hyperlinks(1).Delete End Sub

---

Datenverlust in Formularfeldern verhindern

'Wenn Sie mit diesem Makro Ihr Dokument schützen, verhindern Sie, daß bereits ausgefüllte Felder ihren Inhalt verlieren nachdem der Dokumentschutz aufgehoben und wieder neu aktiviert wird.

Sub dokumentschutz()
ActiveDocument.Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields
End Sub

---

Zeichnungsschaltflächen auf Dauerbetrieb stellen

In der Symbolleiste von Word sind die Schaltflächen "Linie, Rechteck, Ellipse usw." nach jedem Ausführen wieder deaktiviert und müssen erneut betätigt werden. Mit einen Doppelklick werden die Schaltflächen aktiv gehalten bis das Werkzeug gewechselt oder die Taste DEL oder ESC gedrückt wird.

---

Formatierten Text unformatiert einfügen

Sub Einftxt()
On Error Resume Next
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False

'Wenn der Inhalt der Zwischenablage keinen formatierten Text enthält
'dann den Inhalt ohne Änderung einfügen = Err 5342
If Err.Number = 5342 Then
Selection.Paste
ElseIf Err.Number <> 0 Then
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
End If
End Sub

---

Berechnung außerhalb einer Tabelle im Fließtext anzeigen

Die vorhandene Tabelle markieren und eine Textmarke vergeben.
Über Einfügen - Feld... z.B.für die Summe folgende Formel eingeben:
=SUMME(Textmarke[a1:a2])

je nach Word-Version entweder SUMME oder nur SUM angeben.