[GastForen Programme Office Microsoft Office Word: Formate automatisch zuweisen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Word: Formate automatisch zuweisen

suppel
Beiträge gesamt: 203

27. Nov 2011, 22:42
Beitrag # 1 von 3
Bewertung:
(1134 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ich arbeite mit Office 2010 unter Windows XP. Ich erhalte vom Kunden eine bearbeitete Worddatei, die Steuerzeichen enthält.
Die Steuerzeichen sehen z.B. so aus:#13 oder #09. Zwischen diesen Steuerzeichen befindet sich Fließtext. Die ganze Datei hat nur einen Textstil, aber die Aufgabe lautet, den Text zwischen den Steuerzeichen ein Format zuweisen. Also der Text zwischen #13text text text text text text text text text#14 soll das Format „Titel" erhalten, der Text zwischen #09text text text text text text text text text#10 soll das Format Inhalt zugewiesen bekommen.
Da es sich um tausend Einträge handelt, ist das manuell sehr mühselig. Kann man das über ein Makro lösen?

Danke für Tipps!
suppel
X

Word: Formate automatisch zuweisen

MurphysLaw
Beiträge gesamt: 588

28. Nov 2011, 10:49
Beitrag # 2 von 3
Beitrag ID: #485274
Bewertung:
(1099 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Suppel,

ja, sollte kein Problem sein.

1.) Lege die Formatvorlagen "Titel" und "Inhalt" an
2.) Mach ne Sicherungskopie
3.) Lass dieses Makro laufen:
Code
Sub Formate() 

With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\#13*\#14"
.Replacement.Text = ""
.Format=True
.Replacement.Style = ActiveDocument.Styles("Titel")
.MatchWildcards = True
.Execute Replace:=wdReplaceAll

.Text = "\#09*\#10"
.Replacement.Style = ActiveDocument.Styles("Inhalt")
.Execute Replace:=wdReplaceAll
End With

MsgBox "Fertig!"

End Sub


Das sollte reichen.
;-)

Viele Grüße,
Murphy


als Antwort auf: [#485248]
(Dieser Beitrag wurde von MurphysLaw am 28. Nov 2011, 10:50 geändert)

Word: Formate automatisch zuweisen

suppel
Beiträge gesamt: 203

2. Dez 2011, 00:16
Beitrag # 3 von 3
Beitrag ID: #485604
Bewertung:
(1021 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Vielen Dank! Funzt super.

gruss suppel


als Antwort auf: [#485274]

Aktuell

PDF / Print
Wolken_300

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/