Quelle für Makros bzw. Toturial

[pascal87]

Moin!

Ich möchte mir gerne ein Makro bauen, durch welches eine Kopf- und eine Fußzeile angelegt wird, in beiden soll etwas bestimmtes stehen (immer nur ein Text, also braucht nur einmal im Code angegeben werden).

Ich brauche 2 Makros, für Excel und Word, die ich dann jeweils durch einen Button ausführe (das krieg ich selbst hin).

Einziges Problem: Ich habe keine Ahnung vom VB Syntax, aber bin bereit mich einzuarbeiten, wo finde ich gutes Material dazu bzw. wo kriege ich einen Code her, den ich entsprechend anpassen kann?

Vielen Dank!

[DevHB]

Hi,

zum Einen gibt es die Hilfe (MSDN) bei VBA/Office, zum Anderen kannst Du Dir bei http://www.vb-seminar.de einen Überblick verschaffen.

[Amstelchen]

unter dem menüpunkt extras / makro / makro aufzeichnen (sowohl in word als auch in excel) kannst du all das, was du als VBA-prozeduren haben willst, eben aufzeichnen und dann anpassen.

z.b. für word eine kopf- und eine fusszeile erstellen:

Sub KopfFusszeile()

'

' KopfFusszeile Makro

' Makro aufgezeichnet am 07.06.2006 von Amstelchen

'

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

    Selection.TypeText Text:="Kopfzeile" & vbTab & "bla" & vbTab & "bla"

    If Selection.HeaderFooter.IsHeader = True Then

        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

    Else

        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

    End If

    Selection.TypeText Text:="Fusszeile" & vbTab & "bla" & vbTab & "foo"

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

s'Amstel

[pascal87]

@Amstelchen: Vielen Dank!