[GastForen Programme Office Microsoft Office Italic2CharStyle (Word2010, Makro, Win10)

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

Italic2CharStyle (Word2010, Makro, Win10)

cwenet
Beiträge gesamt: 1082

23. Jun 2018, 08:42
Beitrag # 1 von 1
Bewertung:
(1671 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Guten Tag,

folgendes Makro belegt alle kursiven Textstellen mit einer Stilvorlage:


Code
Sub italic2charsytle() 
'
' italic2charsytle Makro
With ActiveDocument.Content.Find
.Text = vbNullString
.Replacement.Text = vbNullString
.ClearFormatting
.Replacement.ClearFormatting
.Font.Italic = True
.Replacement.Style = ActiveDocument.Styles("MyItalic")
.Format = True
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

End Sub


Nun sollen alle Textstellen, die bereits eine Zeichenvorlage besitzen, ignoriert werden.
Außerdem sollen alle Textstellen, die weitere manuelle Formatierungen wie z.B. Hochgestellt, Tiefgestellt, BoldItalic, Unterstrichen usw. ebenfalls ignoriert werden.
Also nur normaler kursiver Text soll behandelt werden.

Bitte um Hilfe
Gruß Christoph
X

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/