Tabellen Kopfzeilen-Text ändern
Verfasst: Sa, 11.05.2019 20:40
Ich versuche, bei einem Tabellen-Dokument den Text der Kopfzeile zu bearbeiten, laufe aber auf eine Exception...
...und zwar in der Zeite 'Set HText = DefPage.HeaderText.GetString()', also beim Zugriff auf den HeaderText. Auch die Variante 'txt = DefPage.HeaderText.GetString()' bringt einen Fehler. Der Debugger gibt an, dass das Objekt DefPage.HeaderText nicht existiert. Hat jemand eine Ahnung, was ich falsch mache? Ich bin dankbar für jede Hilfe.
LG, Lemmi.
Code: Alles auswählen
Private Sub ReplaceCalcFields()
On Error GoTo Exit_ReplaceCalcFields
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Dim HText As Object
Dim txt As String
Set StyleFamilies = objDocument.StyleFamilies
Set PageStyles = StyleFamilies.getByName("PageStyles")
Set DefPage = PageStyles.getByName("Default")
If DefPage.HeaderIsOn Then
Set HText = DefPage.HeaderText.GetString()
'txt = DefPage.HeaderText.GetString()
End If
Exit_ReplaceCalcFields:
On Error Resume Next
Set HText = Nothing
Set DefPage = Nothing
Set PageStyles = Nothing
Set StyleFamilies = Nothing
Exit Sub
End Sub
LG, Lemmi.