Office: Formatvorlage für Absatz automatisch ändern (Makro)

Hallo zusammen,

das Thema Makro ist für mich nach wie vor eine Ansammlung böhmischer Dörfer. Aber vielleicht hat ja jemand eine Idee bzw. so etwas schon einmal gemacht. (SuFu hat mit mehreren Kombinationen nichts ergeben - sorry, falls ich da was übersehen habe!).

Kurz ausgedrückt:
ich möchte automatisiert die Formatvorlage für bestimmte Absätze eines Dokuments ändern.

Also rein metasprachlich sähe das dann in etwa so aus:

Where
Absatz.Style = "Standard"
set

Absatz.Style=" "Fliesstext"

Aber mich verlassen da sowohl VB-Kenntnisse als auch Wissen über das Objektmodell.

Das soll jetzt auch keine Anfrage à la "Gebt mir die fertige Lösung sein" (wobei das natürlich zugegebenermaßen schön wäre ;-) )
Jeder Fingerzeig, der beim Ausknobeln hilft, ist höchst willkommen!!!

Danke und Grüße,
Stefanie

 

Hallo Stefanie,

ich weiß jetz nicht, ob ich auf dem Schlauch stehe, oder Du....

Warum änderst Du nicht einfach die Formatvorlage Standard, dann werden alles bisher als Standrad formatierte im neuen Format angezeigt.

Gruß

 

Hallo,

ja, das habe ich bisher so gemacht. Aber irgendwie gab es hin und wieder - vor allem bei ganz großen Dokumenten - Probleme mit den Änderungen bzw. auch gerne mal mit auf Vorlage Standard beruhenden Listen.

Aber ich habe das Problem gestern abend noch ausknobeln können. Meine Frage hat sich also erledigt. :-D

 

Wär nett, wenn Du dann auch die Lösung verraten könntest ;-)

Noch ein Vorschlag wäre folgender:
Erstelle die Formatvorlage Fließtext. Markiere dann über das Formatvorlagen Fenster alles, was in Standard formatiert ist, und klicke anschließend auf Fließtext. Jetzt hat sich alles, was Standard war, geändert und trotzdem verzieht es die anderen Formatvorlagen nicht.

Gruß

 

Hi,

ja, das ginge auch, aber die Docs sind so abartig groß. (Ich hantiere schon mit Zentraldokumenten, aber die Filialdocs wachsen auch stetig. *seufz*)

Ich hab das jetzt so gemacht (mit freundlicher Unterstützung eines findigen Kollegens):

Sub wasauchimmer()
'
'
Dim i As Long

Dim count As Long

count = ActiveDocument.Paragraphs.count


For i = 1 To count
If ActiveDocument.Paragraphs(i).Style = ActiveDocument.Styles("Standard") Then
ActiveDocument.Paragraphs(i).Style = ActiveDocument.Styles("neuername")
End If
Next i

End Sub