Worddokumente - Makros

Hauptmenü

Infos

Lesezeichen

J!Analytics

Worddokumente - Makros

Folgende Vorlagen werden durch Makros formatiert:

Rechnung
Mahnung
Stornorechnung
Unterschriftenliste
Teilnehmerliste 1/2

Der Name des Makros lautet immer "format". Das Makro übernimmt dabei folgende Funktionen:

- es entfernt überflüssige Zeilen aus Tabellen
- es formatiert in Rechnung / Mahnung / Storno die Gesamt- und Zwischensummen
- es ersetzt eventuelle Sonderzeichen

Natürlich können Sie dem Makro weitere Funktionalitäten zuweisen. Das Makro wird automatisch aufgerufen wenn ein entsprechendes Dokument durch die EWU SEMINARVERWALTUNG erstellt wird.

Als Beispiel soll hier das Makro der Vorlage Rechnung.dot dienen. Sie erreichen dieses Makro wiefolgt:

- öffnen Sie in Word die Vorlage
- wählen Sie in Word Extras -> Makro -> Makros
- markieren Sie das Makro format und wählen Sie "Bearbeiten"

Das Makro wird nun im VB Editor geöffnet.
Nahcfolgend finden Sie den kommentierten Code eines Beispielmakros. Kommentare werden durch ' eingeleitet.

Sub format()

Selection.GoTo What:=wdGoToBookmark, Name:="adress"

' als erstes werden die Sonderzeichen hier das Zeichen € ersetzt

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Û"
.Replacement.Text = "€"
.Forward = True
.Wrap = wdFindContinue
.format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

' nun werden die überflüssigen Zeilen der Positionstabelle entfernt

a = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Rows(a).Select

Do
Do While a > 1
ActiveDocument.Tables(1).Columns(6).Cells(a).Select
b = Trim(Selection.Text)
If Len(b) > 3 Then
b1 = Left(b, Len(b) - 3)
Else
b1 = Left(b, Len(b) - 2)
End If
If b1 = "" And a > 1 Then
ActiveDocument.Tables(1).Rows(a).Select
Selection.Cut
a = a - 1
Else
a = a - 1
Exit Do
End If
Loop
Loop Until b1 <> "" Or a <= 1

If a > 1 Then

' zum Schluss werden die Gesamtbeträge der Rechnung formatiert
' hier fett und doppelt unterstrichen

a = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Columns(6).Cells(a).Select
Selection.Font.Underline = wdUnderlineDouble
Selection.Font.Bold = wdToggle
ActiveDocument.Tables(1).Columns(3).Cells(a).Select
Selection.Font.Bold = wdToggle

Selection.MoveUp Unit:=wdLine, Count:=1
End If

End Sub

Natürlich können Sie dem Makro weitere Funktionen zuweisen.

Haben Sie ein neues Dokument erstellt, so kopieren Sie den Makroinhalt. Legen Sie in Ihrem Dokument ein neues Makro an. Nennen Sie dieses "format". Fügen Sie den Inhalt ein.

< Zurück		Weiter >