Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

 [Word 2003] Formatvorlage für Absatz automatisch ändern (Makro)
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
Tamino
Newbie
Newbie


Anmeldedatum: 02.05.2007
Beiträge: 6

BeitragVerfasst am: 26.11.2007, 16:47 Nach oben

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 Wink )
Jeder Fingerzeig, der beim Ausknobeln hilft, ist höchst willkommen!!!

Danke und Grüße,
Stefanie
Benutzer-Profile anzeigenPrivate Nachricht senden
Andei
Moderator
Moderator


Anmeldedatum: 21.04.2006
Beiträge: 1028

BeitragVerfasst am: 27.11.2007, 09:55 Nach oben

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ß

_________________
Andei

Windows XP Pro SP 2
Office 2003 Pro SP 2
Benutzer-Profile anzeigenPrivate Nachricht senden
Tamino
Newbie
Newbie


Anmeldedatum: 02.05.2007
Beiträge: 6

BeitragVerfasst am: 27.11.2007, 09:59 Nach oben

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. Very Happy

_________________
Grüße,
Stef
Benutzer-Profile anzeigenPrivate Nachricht senden
Andei
Moderator
Moderator


Anmeldedatum: 21.04.2006
Beiträge: 1028

BeitragVerfasst am: 27.11.2007, 10:04 Nach oben

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

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ß

_________________
Andei

Windows XP Pro SP 2
Office 2003 Pro SP 2
Benutzer-Profile anzeigenPrivate Nachricht senden
Tamino
Newbie
Newbie


Anmeldedatum: 02.05.2007
Beiträge: 6

BeitragVerfasst am: 27.11.2007, 11:59 Nach oben

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

_________________
Grüße,
Stef
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Ergebnis einer Spalte automatisch auf... smart-jr Microsoft Excel Hilfe 6 05.01.2009, 07:14 Letzten Beitrag anzeigen
Keine neuen Beiträge Hilfe!! Excel öffnet automatisch sämt... Moehrchen61 Microsoft Excel Hilfe 4 03.01.2009, 00:07 Letzten Beitrag anzeigen
Keine neuen Beiträge Anpassung von Diagrammen per Makro? gassi83 Microsoft Excel Hilfe 0 19.12.2008, 12:31 Letzten Beitrag anzeigen
Keine neuen Beiträge [Word 2007] Listenebene ändern via sh... gregsamsa Microsoft Word Hilfe 2 12.12.2008, 15:47 Letzten Beitrag anzeigen
Keine neuen Beiträge Makro Rückgängig floater Microsoft Excel Hilfe 3 12.12.2008, 01:00 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de