Word VBA-Forum - Das Forum zu Microsoft Word VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Word spricht Kopfzeile und Tabelle darin nicht an	23.04.2021 16:36:51	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	24.04.2021 13:15:55	Gast9915
VBA Word spricht Kopfzeile und Tabelle darin nicht an	24.04.2021 13:21:02	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	25.04.2021 22:35:53	Gast9915
VBA Word spricht Kopfzeile und Tabelle darin nicht an	26.04.2021 16:55:55	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	27.04.2021 09:24:28	Gast35433

Ansicht des Beitrags:

Von:
Gast9915

Datum:
24.04.2021 13:15:55

Views:
303

Rating:

Antwort:

Thema:
VBA Word spricht Kopfzeile und Tabelle darin nicht an

Option Explicit

Sub Test()
  
  Dim objHeader As Word.HeaderFooter
  
  With ThisDocument.Sections(1)
    For Each objHeader In .Headers
      Debug.Print GetHeaderFooterTypeName(objHeader), objHeader.Range.Tables.Count & " tables"
    Next
  End With
  
End Sub

Private Function GetHeaderFooterTypeName(HeaderFooter As Word.HeaderFooter) As String
  Select Case HeaderFooter.Index
    Case wdHeaderFooterPrimary:     GetHeaderFooterTypeName = "wdHeaderFooterPrimary"
    Case wdHeaderFooterFirstPage:   GetHeaderFooterTypeName = "wdHeaderFooterFirstPage"
    Case wdHeaderFooterEvenPages:   GetHeaderFooterTypeName = "wdHeaderFooterEvenPages"
    Case Else:                      GetHeaderFooterTypeName = "UNKNOWN"
  End Select
End Function

Ich vermute du schaust am falschen Ort.

Grüße

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Word spricht Kopfzeile und Tabelle darin nicht an	23.04.2021 16:36:51	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	24.04.2021 13:15:55	Gast9915
VBA Word spricht Kopfzeile und Tabelle darin nicht an	24.04.2021 13:21:02	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	25.04.2021 22:35:53	Gast9915
VBA Word spricht Kopfzeile und Tabelle darin nicht an	26.04.2021 16:55:55	Stephan
VBA Word spricht Kopfzeile und Tabelle darin nicht an	27.04.2021 09:24:28	Gast35433