Hallo zusammen!
Ich bin gerade dabei in einem Word Dokument alle Überschriften welche eine automatische Nummerierung am Anfang haben in Plaintext umzuwandeln. Mein Ziel sind aber wirklich nur die Überschriften, die Aufzählungen im Word Dokument (Bulletpoints) sollen unberührt bleiben.
Meine Ansätze waren schon:
Selection.HomeKey Unit:=wdStory
With ActiveDocument.Range.Find
.Style = ActiveDocument.Styles("Überschrift 1")
Do While .Execute
Selection.Range.ListFormat.ConvertNumbersToText
Loop
End With
bzw.
With ThisDocument.Range.Find
.Style = ActiveDocument.Styles("Überschrift 1")
Dim SearchSuccessful As Boolean
SearchSuccessful = .Execute
If SearchSuccessful Then
Selection.Range.ListFormat.ConvertNumbersToText
Else
' code
End If
End With
....aber leider komme ich nicht zu meinem gewünschten Ergebnis....
Der Befehl
ActiveDocument.Range.ListFormat.ConvertNumbersToText
konvertiert mir alle LISTNUMs im Word zu Plaintext, was ich aber nicht möchte, mein Ziel ist wirklich, dass die Überschriften welche eine Nummer davor stehen haben (z.b.: 1 Einleitung, 1.1 Aufbau, 1.2 Struktur, 1.2.1 Organisation ...)
Hat wer Ideen oder Vorschläge?
LG
Markus
|