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.

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

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.

'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

Sub HyperlinkAusschalten()

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

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

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.

mit folgendem Feld wird nur das Erstell-Datum gespeichert:
{ErstellDat \@ "tt.mm.jj"} Es gibt jedoch noch die Möglichkeit das Datum nicht als Feld, sondern mittels Makro als normales Datum einzufügen: Sub dateinf()
Selection.InsertDateTime DateTimeFormat:="tt.MM.jj", InsertAsField:=False
End Sub

In Kopf oder Fußzeile folgendes eingeben:
{wenn{AnzSeiten} > {Seite} {={Seite}+1}} Es wird vorausgesetzt, daß Sie auf der ersten Seite die Seitenzahl angegeben haben. Hat Ihr Dokument mehr als eine Seite, erscheint daraufhin das gewünschte Ergebnis.

'Die Liste läßt sich beliebig erweitern. Das Makro muß den gleichen Namen haben, wie der Word-Öffnen-Befehl

Sub DateiÖffnen()
With Dialogs(wdDialogFileOpen)
.name="*.doc;*.txt;*.asc;*.bmp"
.show
End With
End Sub

'Macarena in Powerpoint97

Klicken Sie auf Info im Hilfe-Menü(?)
Drücken Sie Strg-Alt-Umschalttaste
Klicken Sie dreimal auf die Querlinie über "OK"

'Flipper in Word97

Datei Neu aufrufen,
das Wort "Blue" eingeben (ohne Anführungszeichen),
Text markieren, Fettschrift einstellen, Text blau färben, nach dem Text ein Leerzeichen einfügen.
Im Menü ? auf der Symbolleiste den Eintrag Info wählen, auf das Word-Symbol in der oberen linken Ecke doppelklicken.
Gesteuert wird mit der Taste M und Z. Beenden mit der ESC-Taste

'Flugsimulator in Excel97

neues Tabellenblatt anlegen
F5-Taste drücken
im unteren Feld "X97:L97" eingeben(ohne Anführungszeichen)
Ok klicken
Tab-Taste drücken
Strg-Shift gedrückt halten und auf das Symbol für den Diagramm-Assistenten klicken.

Steuerung linke Maustaste beschleunigt den Flug, rechte Maustaste hält ihn an und schaltet in Rückwärtsflug..

'Druckerbezeichnung muß exakt mit der Menü-Anzeige Datei/Drucken übereinstimmen

Sub Drucken()
ActivePrinter = "Brother HL-820"
If Len(Selection) < 2 Then
ActiveDocument.PrintOut Range:=wdPrintAllDocument
Else
ActiveDocument.PrintOut Range:=wdPrintSelection
End If
End Sub

Das Makro öffnet den Dialog Datei einfügen, Sie wählen die Datei mit einem Doppelklick aus. Die Original-Datei wird dann von diesem Makro umbenannt, fügt den Text in eine neue Datei virenfrei ein und speichert diese Datei unter dem Original-Namen ab. Anschließend werden Sie noch gefragt, ob die ursprüngliche Datei (.do~) gelöscht werden soll.
Nach dem >Download<(1KB) bitte entpacken und im Visual-Basic-Editor in Word "Datei importieren" wählen.