Seitenzahlen personalisieren

Hallo Urs,

Ich möchte gerne die Seitenzahlen meines Anhangs separat nummerieren und der Seitenzahl ein A voran stellen, zB A - 1.

Gibt es eine Möglichkeit, dass ich meine Seitenzahlen individuell gestalten kann und diese dann auch korrekt im Inhaltsverzeichnis so dargestellt werden?

schau dir mal folgende Diskussionen an. Vielleicht hilft es dir weiter, ansonsten wieder melden:

http://answers.microsoft.com/de-de/...atierung/93e9b61a-7b6d-4ffc-a5eb-98044a1cee5d

http://microsoft.public.de.word.nar...t-unterschiedlichen-seitennummerierungsformat

Viele Grüße

Lisa

Hallo Allerseits

Ich möchte gerne die Seitenzahlen meines Anhangs separat nummerieren und der Seitenzahl ein A voran stellen, zB A - 1. Gibt es eine Möglichkeit, dass ich meine Seitenzahlen individuell gestalten kann und diese dann auch korrekt im Inhaltsverzeichnis so dargestellt
werden?

Vielen Dank im Voraus

Urs

Hallo Urs,

es ist möglich, aber das müsstest du selber in jeder Seite manuell ändern.

Solltest du weitere Fragen haben, sind wir selbstverständlich für dich da.

Liebe Grüße

Ja, super! Vielen Dank Lisa!

Hallo Pauline

Schade das dies nicht ohne VBA geht.

Ich habe den Code mal an meine Bedürfnisse angepasst:

' Voreinstellungen

'-----

Private Const TOC_int As Integer = 1

Private Const BOLD_bol As Boolean = False

'-----
' Oeffentliche Aktion

'-----

Public Function toc_FormatNumbers()

    Call FormatNumbers(ActiveDocument)

End Function

'-----
' Aktion

'-----

Private Function FormatNumbers(ByVal Document_doc As Document)
' Funktion zum Formatieren des IHV

Dim Hyperlink_hyp As Hyperlink

Dim Paragraph_par As Paragraph

Dim TableOfContents_toc As TableOfContentsDim counter As Integer
If Not Document_doc.TablesOfContents.Count = 0 Then

  Set TableOfContents_toc = Document_doc.TablesOfContents(TOC_int)

  

    ' IHV mit Seitenzahlen rechts versehen

    With TableOfContents_toc

      .Update

      

        ' Verzeichniseinträge als Hyperlink?

        If .Range.Hyperlinks.Count = 0 Then

          ' Alle Absätze durchlaufen

          For Each Paragraph_par In TableOfContents_toc.Range.Paragraphs

            counter = Paragraph_par.Range.Words.Count

            If counter > 1 Then

                Paragraph_par.Range.Words(counter - 1).Font.Bold = BOLD_bol

            End If

          Next Paragraph_par

        Else          ' Alle Hyperlinks durchlaufen

          For Each Hyperlink_hyp In TableOfContents_toc.Range.Hyperlinks

            For Each Paragraph_par In Hyperlink_hyp.Range.Paragraphs

              counter = Paragraph_par.Range.Words.Count

              If counter > 1 Then

                Paragraph_par.Range.Words(counter - 1).Font.Bold = BOLD_bol

              End If

            Next Paragraph_par

          Next Hyperlink_hyp

        End If

    End With

End If

End Function

'-----
Falls doch noch jemand eine Lösung ohne VBA hat wäre ich natürlich ein dankbarer Abnehmer.

Hallo Micha,

das wird wohl nur über VBA gehen oder du markierst jeden Titel einzeln und formatierst diesen Fett, denn wenn man die Formatvorlage anpasst, wirkt sich das auf die gesamte Zeile aus. Bezüglich VBA hilft dir eventuell das weiter:
http://www.chf-online.de/vba/vbatoc.htm

Gruß,

Pauline