Text formatiert in ein anderes Dokument übertragen (Word2010, Makro, Win10)

[Gast] Foren Programme Office Microsoft Office Text formatiert in ein anderes Dokument übertragen (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

11. Nov 2016, 17:35
Beitrag # 1 von 3
Bewertung:
(1529 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Guten Abend,

ich versuche gerade mit folgendem Makro alle Absätze, die mit einem bestimmten String <?--MeinAbsatz--> beginnen, in ein neues Dokument zu übertragen.
Leider geht hierbei die Textformatierung wie z.B. Kursiv, Color usw. verloren

Code

Selection.Find.ClearFormatting 
With Selection.Find 
.Text = "<?--MeinAbsatz-->" 
.Forward = True 
.Wrap = wdFindStop 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Do While Selection.Find.Execute 
 
Selection.StartOf Unit:=wdParagraph 
Selection.MoveEnd Unit:=wdParagraph 
sBigString = sBigString + Selection.Text 
Selection.MoveStart Unit:=wdParagraph 
Loop 
Documents.Add DocumentType:=wdNewBlankDocument 
Selection.InsertAfter (sBigString)

Bitte um Hilfe
Grüße
Christoph

(Dieser Beitrag wurde von cwenet am 11. Nov 2016, 17:36 geändert)

Text formatiert in ein anderes Dokument übertragen (Word2010, Makro, Win10)

Henry

Beiträge gesamt: 967

12. Nov 2016, 10:09
Beitrag # 2 von 3
Beitrag ID: #553878
Bewertung:
(1433 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

>sBigString = sBigString + Selection.Text

Es gibt auch noch die Eigenschaft "Selection.FormattedText" - ich weiß aber nicht, ob es genügt, die in der o.g. Zeile einfach zu tauschen?!

als Antwort auf: [#553869]

Text formatiert in ein anderes Dokument übertragen (Word2010, Makro, Win10)

cwenet

Beiträge gesamt: 1139

12. Nov 2016, 12:48
Beitrag # 3 von 3
Beitrag ID: #553880
Bewertung:
(1390 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Henry,

danke für den Hinweis.
Nun sieht es doch ganz anders aus und funktioniert:

Code

Application.ScreenUpdating = False 
'ActiveDocument.UndoClear  'Disables undo to save memory on very large documents. 
Dim RngSrc As Range, RngTgt As Range, DocSrc As Document, DocTgt As Document, FName As String 
Set DocSrc = ActiveDocument 
  Set DocTgt = Documents.Add 
  With DocSrc.Range 
    With .Find 
      .ClearFormatting 
      .Replacement.ClearFormatting 
      .Text = "<?--MeinAbsatz-->" 
      .Replacement.Text = "" 
      .Forward = True 
      .Wrap = wdFindStop 
      .Format = False 
      .MatchCase = False 
      .MatchWholeWord = False 
      .MatchWildcards = False 
      .MatchSoundsLike = False 
      .MatchAllWordForms = False 
      .Execute 
    End With 
    Do While .Find.Found 
      Set RngSrc = .Paragraphs(1).Range 
      Set RngTgt = DocTgt.Range.Characters.Last 
      RngTgt.Collapse wdCollapseStart 
      RngTgt.FormattedText = RngSrc.FormattedText 
      .Start = RngSrc.End 
      .Find.Execute 
    Loop 
  End With 
   
  FName = Left(DocSrc.Name, InStr(DocSrc.Name, ".") - 1) 
  DocTgt.SaveAs2 FileName:=DocSrc.Path & "/" & FName & "_[MeinAbsatz]", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False 
 
DocTgt.Close False 
Application.ScreenUpdating = True 
MsgBox ("Fertig.")

Einen schönen Tag
Christoph

als Antwort auf: [#553878]

Aktuell

Farbmanagement

ColorLogic präsentiert CoPrA 10: Revolution der Farbprofilierung mit verbesserten â€¨Funktionen

| 27.09.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

14.05.2024

Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. 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 / Horizon

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

Einsparpotenziale in der Weiterverarbeitung

Veranstaltungen

16.05.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 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

Nein

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

Aussehen der Formularfelder

Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

Weitere Stellenangebote