Italic2CharStyle (Word2010, Makro, Win10)

[Gast] Foren Programme Office Microsoft Office Italic2CharStyle (Word2010, Makro, Win10)

Office - Alles fürs Büro

Themen

Beiträge

Moderatoren

Letzter Beitrag

Microsoft Office

1624

6235

29. Feb 2024, 08:40

mudelinchen

cwenet

Beiträge gesamt: 1139

23. Jun 2018, 08:42
Beitrag # 1 von 1
Bewertung:
(1755 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

Aktuell

Diverses

Tipps zum Aufräumen und Ordnung schaffen

| 29.11.2023

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.

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

Veranstaltungen

17.04.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Mittwoch, 17. Apr. 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!

Weitere Events

Neuste Foreneinträge

Lizenzfrage – Windows-Schriften in Linux einsetzen

Eizo Monitorkalibrierung auf Windows

Fußnoten zu Endnoten konvertieren

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

Platzierte Vektorgrafiken skalieren

SMS ab Server senden? Wie geht das?

WebShare Verzeichnisse im SharePoint erstellen

Buchsrabensteuerung

Klickbare Links zu Seiten in einem Buch aus extern erzeugtem Index erstellen

Gleiche Ebene mit untersch. Fonts in Text + autom. IHVZ: Probleme mit Kursivierung

Weitere Stellenangebote