https://www.clever-excel-forum.de/ Wed, 06 May 2026 11:03:10 +0000 MyBB https://www.clever-excel-forum.de/Thread-Position-Startbildschirm Mon, 30 Mar 2026 09:08:42 +0000 ahpzet]]> https://www.clever-excel-forum.de/Thread-Position-Startbildschirm
In den vielen Internet Beiträgen habe ich gelesen, dass sich Word merkt in welcher Bildschirmposition Word abgemeldet wurde. Bei mir hat wohl WORD MS 365 sein Gedächtnis verloren denn ich arbeite mit Word immer mit der rechten Bildschirmhälfte und verlasse dann Word auch so. Beim nächsten Start von WORD wird aber auf der linken Seite der Startbildschirm angezeigt. Ich muss also jedesmal mit Hilfe der beiden Tasten WINDOWS und Pfeil nach rechts die Anzeige nach rechts verschieben.

Für die Zukunft würde ich nun am liebsten eine Startdatei mit VBA Code für die Startposition erstellen, die beim Start von WORD geöffnet wird und die Startposition festlegt. Bei EXCEL heißt dieses Verzeichnis XLSTART. Wie bei WORD und welcher VBA Code würde die Startposition festlegen?]]>
In den vielen Internet Beiträgen habe ich gelesen, dass sich Word merkt in welcher Bildschirmposition Word abgemeldet wurde. Bei mir hat wohl WORD MS 365 sein Gedächtnis verloren denn ich arbeite mit Word immer mit der rechten Bildschirmhälfte und verlasse dann Word auch so. Beim nächsten Start von WORD wird aber auf der linken Seite der Startbildschirm angezeigt. Ich muss also jedesmal mit Hilfe der beiden Tasten WINDOWS und Pfeil nach rechts die Anzeige nach rechts verschieben.

Für die Zukunft würde ich nun am liebsten eine Startdatei mit VBA Code für die Startposition erstellen, die beim Start von WORD geöffnet wird und die Startposition festlegt. Bei EXCEL heißt dieses Verzeichnis XLSTART. Wie bei WORD und welcher VBA Code würde die Startposition festlegen?]]> https://www.clever-excel-forum.de/Thread-Word-Datei-per-Makro-in-Excel-kopieren Fri, 06 Mar 2026 10:42:12 +0000 Gast 123]]> https://www.clever-excel-forum.de/Thread-Word-Datei-per-Makro-in-Excel-kopieren
@ snb

Habe mich bisher nicht mit diesem Thema beschäftigt.
ich habe gerade diesen Code gefunden um Word Dateien als Mail zu senden.
Wie muss ich ihn ändern, wenn ich den Text in eine Excel Tabelle kopieren will.
Mit .Content geht es, aber als endloser Textstring, ohne Absatz, Endlos Text!
Ist es möglich Schriftart, Schriftgröße und Text Umbruch in Excel zu kopieren.
So wie von Hand mit Ctrl-C und Ctrl-V.   Was müsste ich ändern??

Sub M_snb()
  With GetObject("X:\__Heute neu\Klares Nein.docx")
    c00 = .Content
    .Close 0
  End With

  With ActiveWorkbook.Sheets(1)   'von Mail Versand auf Excel geändert!
    .Range("B2") = c00
  End With
End Sub

mfg Gast 123]]>
@ snb

Habe mich bisher nicht mit diesem Thema beschäftigt.
ich habe gerade diesen Code gefunden um Word Dateien als Mail zu senden.
Wie muss ich ihn ändern, wenn ich den Text in eine Excel Tabelle kopieren will.
Mit .Content geht es, aber als endloser Textstring, ohne Absatz, Endlos Text!
Ist es möglich Schriftart, Schriftgröße und Text Umbruch in Excel zu kopieren.
So wie von Hand mit Ctrl-C und Ctrl-V.   Was müsste ich ändern??

Sub M_snb()
  With GetObject("X:\__Heute neu\Klares Nein.docx")
    c00 = .Content
    .Close 0
  End With

  With ActiveWorkbook.Sheets(1)   'von Mail Versand auf Excel geändert!
    .Range("B2") = c00
  End With
End Sub

mfg Gast 123]]> https://www.clever-excel-forum.de/Thread-Datum-automatisch-in-Zeile-einfuegen Mon, 05 Jan 2026 12:19:08 +0000 ahpzet]]> https://www.clever-excel-forum.de/Thread-Datum-automatisch-in-Zeile-einfuegen
Ich benötige Hilfe zum autmatischeneinfügeneine Datums in Überschriften. Die detailierte Beschreibung befindet sich in der beigefügten Testdatei.


  Tips&Tricks_Leer.docm (Größe: 55,37 KB / Downloads: 9) ]]>
Ich benötige Hilfe zum autmatischeneinfügeneine Datums in Überschriften. Die detailierte Beschreibung befindet sich in der beigefügten Testdatei.


  Tips&Tricks_Leer.docm (Größe: 55,37 KB / Downloads: 9) ]]> https://www.clever-excel-forum.de/Thread-Eingefuegte-Grafik-veraendert-Farbe Tue, 16 Dec 2025 07:10:39 +0000 Gabriela69]]> https://www.clever-excel-forum.de/Thread-Eingefuegte-Grafik-veraendert-Farbe
Ich habe eine Grafik welche Markierungen in schwarzer Farbe enthält. Wenn ich diese Grafik in Word einfüge, wird aus Schwarz ein helles Grau und man sieht die Markierungen kaum noch. Weiss jemand wie man das beheben kann?

Grafikformat: PNG erstellt in Snagit 2025
Word: MS Office LTSC Professional Plus 2021

Ich habe mal die Grafik und das fertige Dokument angehängt.

Besten Dank und liebe Grüsse


  Infrastruktur.docx (Größe: 23,83 KB / Downloads: 4)

  raster_tuerschilder.png (Größe: 2,07 KB / Downloads: 8) ]]>
Ich habe eine Grafik welche Markierungen in schwarzer Farbe enthält. Wenn ich diese Grafik in Word einfüge, wird aus Schwarz ein helles Grau und man sieht die Markierungen kaum noch. Weiss jemand wie man das beheben kann?

Grafikformat: PNG erstellt in Snagit 2025
Word: MS Office LTSC Professional Plus 2021

Ich habe mal die Grafik und das fertige Dokument angehängt.

Besten Dank und liebe Grüsse


  Infrastruktur.docx (Größe: 23,83 KB / Downloads: 4)

  raster_tuerschilder.png (Größe: 2,07 KB / Downloads: 8) ]]> https://www.clever-excel-forum.de/Thread-Tipp-fuer-Word-und-Excel-Nutzer-SEPA-QR-Code-einfach-in-bestehende-PDF-Rechnungen-ei Sun, 07 Dec 2025 22:20:21 +0000 marius2552]]> https://www.clever-excel-forum.de/Thread-Tipp-fuer-Word-und-Excel-Nutzer-SEPA-QR-Code-einfach-in-bestehende-PDF-Rechnungen-ei
ich wollte hier eine kleine Lösung teilen, die vielleicht für alle interessant ist, die ihre Rechnungen oder Zahlungsanforderungen noch in Word oder Excel erstellen und anschließend als PDF verschicken.

Die meisten Banken unterstützen inzwischen den SEPA-QR-Code (oft auch GiroCode genannt). Wenn man diesen mit der Banking-App scannt, werden IBAN, Betrag und Verwendungszweck automatisch übernommen. Das spart Zeit und vermeidet Tippfehler.

Word und Excel können so einen QR-Code allerdings nicht normgerecht erzeugen. Deshalb nutze ich inzwischen ein kleines Werkzeug, das den QR-Code nachträglich direkt in die fertige PDF-Datei einfügt:

https://www.rechnungsqr.de

Ablauf kurz beschrieben:

Man speichert das Word- oder Excel-Dokument wie gewohnt als PDF, öffnet diese PDF dort, prüft die Daten und fügt den QR-Code ein. Danach speichert man die neue PDF wieder ab und kann sie ganz normal verschicken oder ausdrucken. Das Layout der ursprünglichen Datei bleibt unverändert.

Wichtig ist vielleicht der Hinweis, dass die PDF nicht hochgeladen wird. Die Verarbeitung läuft lokal im Browser, sodass keine Rechnungsdaten an einen Server übertragen werden.

Für mich ist das eine einfache Möglichkeit geworden, Rechnungen aus Word oder Excel um einen funktionierenden Bezahl-QR-Code zu erweitern. Vielleicht ist das auch für andere hier im Forum nützlich.

Falls der Beitrag nicht in diese Rubrik gehört, bitte kurz Bescheid geben.

Viele Grüße

Marius
]]>
ich wollte hier eine kleine Lösung teilen, die vielleicht für alle interessant ist, die ihre Rechnungen oder Zahlungsanforderungen noch in Word oder Excel erstellen und anschließend als PDF verschicken.

Die meisten Banken unterstützen inzwischen den SEPA-QR-Code (oft auch GiroCode genannt). Wenn man diesen mit der Banking-App scannt, werden IBAN, Betrag und Verwendungszweck automatisch übernommen. Das spart Zeit und vermeidet Tippfehler.

Word und Excel können so einen QR-Code allerdings nicht normgerecht erzeugen. Deshalb nutze ich inzwischen ein kleines Werkzeug, das den QR-Code nachträglich direkt in die fertige PDF-Datei einfügt:

https://www.rechnungsqr.de

Ablauf kurz beschrieben:

Man speichert das Word- oder Excel-Dokument wie gewohnt als PDF, öffnet diese PDF dort, prüft die Daten und fügt den QR-Code ein. Danach speichert man die neue PDF wieder ab und kann sie ganz normal verschicken oder ausdrucken. Das Layout der ursprünglichen Datei bleibt unverändert.

Wichtig ist vielleicht der Hinweis, dass die PDF nicht hochgeladen wird. Die Verarbeitung läuft lokal im Browser, sodass keine Rechnungsdaten an einen Server übertragen werden.

Für mich ist das eine einfache Möglichkeit geworden, Rechnungen aus Word oder Excel um einen funktionierenden Bezahl-QR-Code zu erweitern. Vielleicht ist das auch für andere hier im Forum nützlich.

Falls der Beitrag nicht in diese Rubrik gehört, bitte kurz Bescheid geben.

Viele Grüße

Marius
]]> https://www.clever-excel-forum.de/Thread-Serienbrief-nur-ein-Wort-aus-Exceltabelle Sun, 07 Dec 2025 19:09:59 +0000 Schmidtgeestland]]> https://www.clever-excel-forum.de/Thread-Serienbrief-nur-ein-Wort-aus-Exceltabelle
ich möchte eine Seriennbrief erstellen - was nicht das Problem ist -  und dafür eine vorhandene und nicht veränderbare Exceltabelle als Datenquelle nutzen.
Soweit auch noch machbar.
In der Datenquelle stehen Vorname und Nachname in einer Spalte/ Zelle und das kann und will ich nicht ändern.
Ich möchte aber nur den Vornamen im Serienbrief nutzen.

Forum duchsucht, den Gockel befragt aber ich komme nicht weiter.
Programversion Office Professional 2021.

Freue mich auf Eure Ideen, danke vorab

Gruß
Frank]]>
ich möchte eine Seriennbrief erstellen - was nicht das Problem ist -  und dafür eine vorhandene und nicht veränderbare Exceltabelle als Datenquelle nutzen.
Soweit auch noch machbar.
In der Datenquelle stehen Vorname und Nachname in einer Spalte/ Zelle und das kann und will ich nicht ändern.
Ich möchte aber nur den Vornamen im Serienbrief nutzen.

Forum duchsucht, den Gockel befragt aber ich komme nicht weiter.
Programversion Office Professional 2021.

Freue mich auf Eure Ideen, danke vorab

Gruß
Frank]]> https://www.clever-excel-forum.de/Thread-Etiketten-210x148mm-fortlaufende-Nummer Tue, 04 Nov 2025 10:28:05 +0000 Skarry]]> https://www.clever-excel-forum.de/Thread-Etiketten-210x148mm-fortlaufende-Nummer
ich benötige Hilfe bei der Erstellung von Etiketten.

Ich habe als A4 Blatt Etiketten mit einem Maß von 210x148mm (2 Etiketten)

Ich benötige pro Ausdruck immer 30 Seiten.

Der Inhalt soll immer gleich bleiben außer die Pallet number: sollte pro Seite sich immer um Ziffer 1 erhöhen (H-0022451 Seite 1, H-0022452 Seite 2...)
Zudem müsste sich die Produktionsnummer auf allen Etiketten so ändern, dass sie der Seite 1 entspricht. (Wenn ich diese auf z.B. 13600020251105H ändere sollte dies auf allen Seiten mit verändert werden).

Ich habe bereits gegoogelt und mit SEQ gearbeitet aber bekomme dies nicht hin. Vielleicht wäre es auch mit Excel besser?

Vielen Dank für die Hilfe 

  Etiketten Muster.docx (Größe: 15,63 KB / Downloads: 7) ]]>
ich benötige Hilfe bei der Erstellung von Etiketten.

Ich habe als A4 Blatt Etiketten mit einem Maß von 210x148mm (2 Etiketten)

Ich benötige pro Ausdruck immer 30 Seiten.

Der Inhalt soll immer gleich bleiben außer die Pallet number: sollte pro Seite sich immer um Ziffer 1 erhöhen (H-0022451 Seite 1, H-0022452 Seite 2...)
Zudem müsste sich die Produktionsnummer auf allen Etiketten so ändern, dass sie der Seite 1 entspricht. (Wenn ich diese auf z.B. 13600020251105H ändere sollte dies auf allen Seiten mit verändert werden).

Ich habe bereits gegoogelt und mit SEQ gearbeitet aber bekomme dies nicht hin. Vielleicht wäre es auch mit Excel besser?

Vielen Dank für die Hilfe 

  Etiketten Muster.docx (Größe: 15,63 KB / Downloads: 7) ]]> https://www.clever-excel-forum.de/Thread-Buchstaben-Worte-in-Dokument-tauschen Fri, 19 Sep 2025 08:43:45 +0000 Gast 123]]> https://www.clever-excel-forum.de/Thread-Buchstaben-Worte-in-Dokument-tauschen
ich bin Neuling im Word Forum, arbeite normalerweise mit Excel
Von Word Makros habe ich NULL Ahnung, deswegen frage ich euch höflich

Wie musss ein Word Makro aussehten, wenn man in einem Word Dokument von 5 Seiten Text suchen und tauschen will?
Gibt es dabei die Möglichkeit wie in Excel per For Next Schleife beim Tauschen den Befehl Chr(xx) einzusetzen?
z.B.  Selection.Replace "T", Chr(i), xlPart

Mit welchen Befehlen kann man in Word auch nur einen bestimmten Bereich auswählen.
Bei Excel geht das über Range("A10:A20"). Von Word habe ich Null Ahnung!  Neuling...

mfg Gast 123]]>
ich bin Neuling im Word Forum, arbeite normalerweise mit Excel
Von Word Makros habe ich NULL Ahnung, deswegen frage ich euch höflich

Wie musss ein Word Makro aussehten, wenn man in einem Word Dokument von 5 Seiten Text suchen und tauschen will?
Gibt es dabei die Möglichkeit wie in Excel per For Next Schleife beim Tauschen den Befehl Chr(xx) einzusetzen?
z.B.  Selection.Replace "T", Chr(i), xlPart

Mit welchen Befehlen kann man in Word auch nur einen bestimmten Bereich auswählen.
Bei Excel geht das über Range("A10:A20"). Von Word habe ich Null Ahnung!  Neuling...

mfg Gast 123]]> https://www.clever-excel-forum.de/Thread-Welcome-back-Hilfreich-fuer-Forensik Mon, 25 Aug 2025 06:40:10 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Welcome-back-Hilfreich-fuer-Forensik
Word speichert die Position des Cursor und setzt beim Öffnen wieder dorthin.

Einige Details sind in diesem Blog beschrieben:

https[:]//isc.sans.edu/diary/Reading+Location+Position+Value+in+Microsoft+Word+Documents/32224/

Ist diese Information hilfreich und gibt es Beispiele für eine Anwendung?


mfg

  Screenshot 2025-08-25 083552.png (Größe: 3,48 KB / Downloads: 12) ]]>
Word speichert die Position des Cursor und setzt beim Öffnen wieder dorthin.

Einige Details sind in diesem Blog beschrieben:

https[:]//isc.sans.edu/diary/Reading+Location+Position+Value+in+Microsoft+Word+Documents/32224/

Ist diese Information hilfreich und gibt es Beispiele für eine Anwendung?


mfg

  Screenshot 2025-08-25 083552.png (Größe: 3,48 KB / Downloads: 12) ]]> https://www.clever-excel-forum.de/Thread-Word-2019-Tab-setzen-statt-Sondereinzug Sun, 15 Jun 2025 05:44:39 +0000 Karthagos]]> https://www.clever-excel-forum.de/Thread-Word-2019-Tab-setzen-statt-Sondereinzug wenn ich am Zeilenanfang die Tabulatortaste drücke, wird ein Sondereinzug statt eines Tabs gesetzt.

  006.jpg (Größe: 37,79 KB / Downloads: 9)
Wie kann ich das dauerhaft verhindern?]]> wenn ich am Zeilenanfang die Tabulatortaste drücke, wird ein Sondereinzug statt eines Tabs gesetzt.

  006.jpg (Größe: 37,79 KB / Downloads: 9)
Wie kann ich das dauerhaft verhindern?]]> https://www.clever-excel-forum.de/Thread-Beschleunigung-einer-Makro Mon, 05 May 2025 06:42:35 +0000 Dietmar Henning]]> https://www.clever-excel-forum.de/Thread-Beschleunigung-einer-Makro
ich habe eine Makro die in Word ein Inhaltsverzeichnis erstellt.

Leider ist es so, dass es sehr lange dauert bis das Inhaltsverzeichnis erstellt wird.

Kann mir da jemand helfen, dass das Inhaltsverzeichnis schneller erzeugt wird?

Danke für eure Hilfe.

Hier die Makro:

Option Explicit

Sub IHV()
    Dim toc As TableOfContents
    Dim anzAbsaetze As Long
    Dim i As Long

    ' Füge ein neues Inhaltsverzeichnis hinzu
    Set toc = ActiveDocument.TablesOfContents.Add( _
        Range:=Selection.Range, _
        UseHeadingStyles:=False, _
        IncludePageNumbers:=False, _
        RightAlignPageNumbers:=False, _
        UseHyperlinks:=False, _
        HidePageNumbersInWeb:=True, _
        UseOutlineLevels:=False)

    ' Füge die gewünschten Formatvorlagen hinzu
    toc.HeadingStyles.Add style:="Part_Überschrift", level:=1
    toc.HeadingStyles.Add style:="Positionsüberschrift", level:=2
    toc.HeadingStyles.Add style:="Preis", level:=3
    toc.HeadingStyles.Add style:="Option", level:=3
    toc.HeadingStyles.Add style:="Preiszusammenfassung", level:=9

    ' Absätze des IHV zählen
    anzAbsaetze = toc.Range.paragraphs.count
    ' Zusätzliche Schleife über alle Absätze des Inhaltsverzeichnisses von oben nach unten
    With toc.Range
        For i = 1 To anzAbsaetze
            ' Wenn ein Absatz mit 'Verzeichnis 3' formatiert ist...
            If .paragraphs(i).style = "Verzeichnis 3" Then
                ' Ersetze die Worte "Zum Preis von" durch Leerzeichen im IHV
                Call ReplaceTextInTOC(.paragraphs(i).Range, "Zum Preis von", "")
                ' Ersetze die Worte "At a price of" durch Leerzeichen im IHV
                Call ReplaceTextInTOC(.paragraphs(i).Range, "At a price of", "")
            End If
        Next i
    End With

    ' Schleife über alle Absätze des Inhaltsverzeichnisses von unten nach oben
    With toc.Range
        For i = anzAbsaetze To 1 Step -1
            ' Wenn ein Absatz mit 'Verzeichnis 2' formatiert ist...
            If .paragraphs(i).style = "Verzeichnis 2" Then

                '... und wenn der Folgeabsatz Verzeichnis 3 ist...
                If i < anzAbsaetze And .paragraphs(i + 1).style = "Verzeichnis 3" Then

                    ' Entferne die Formatvorlagentrenner und füge die Texte in einer Zeile zusammen:
                    .paragraphs(i).Range.Characters.Last.Select
                    Selection.Delete Unit:=wdCharacter, count:=1

                    ' Füge nach dem Wort "EUR" im Absatz mit Verzeichnis 3 einen Tabulator ein
                    Call InsertTabAfterEUR(.paragraphs(i + 1))
                End If
                ' Füge einen Tabulator vor dem ersten fett formatierten Wort im Absatz mit Verzeichnis 2 ein
                Call InsertTabBeforeFirstBoldWord(.paragraphs(i))
            End If
        Next i
    End With

    ' Überprüfe und formatiere Zeilen, die mit "OP" beginnen
    Call FormatLinesStartingWithOP(toc.Range)

    ' Setze Tabulatoren in kursiv formatierten Zeilen
    Call SetTabsInItalicLines(toc.Range)

    ' Rufe das neue Sub auf, um fett formatierte Wörter im Verzeichnis 2 nicht mehr fett anzuzeigen
    Call RemoveBoldFromVerzeichnis2(toc.Range)
End Sub

Sub ReplaceTextInTOC(rng As Range, findText As String, replaceText As String)
    ' Ersetze Text nur im Inhaltsverzeichnis
    Dim tocRange As Range
    Set tocRange = rng.Duplicate
    With tocRange.Find
        .ClearFormatting
        .Text = findText
        .Replacement.ClearFormatting
        .Replacement.Text = replaceText
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Sub InsertTabAfterEUR(paragraph As paragraph)
    ' Füge nach dem Wort "EUR" einen Tabulator ein
    Dim rng As Range
    Set rng = paragraph.Range
    ' Suche nach "EUR" und füge Tabulator hinzu
    With rng.Find
        .ClearFormatting
        .Text = "EUR "
        .Replacement.ClearFormatting
        .Replacement.Text = "EUR" & vbTab
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Sub InsertTabBeforeFirstBoldWord(paragraph As paragraph)
    Dim rng As Range
    Dim charIndex As Long
    Dim foundBold As Boolean

    Set rng = paragraph.Range
    foundBold = False ' Flag, um zu überprüfen, ob ein fett formatiertes Wort gefunden wurde
    ' Durchlaufe jeden Charakter im Absatz
    For charIndex = 1 To rng.Characters.count
        ' Überprüfe, ob das Zeichen fett formatiert ist
        If rng.Characters(charIndex).Font.Bold Then
            ' Füge einen Tabulator vor dem ersten fett formatierten Wort ein
            rng.Characters(charIndex).InsertBefore vbTab
            foundBold = True ' Setze das Flag auf wahr, da ein fett formatiertes Wort gefunden wurde
            Exit For ' Beende die Schleife, nachdem das erste fett formatierte Wort bearbeitet wurde
        End If
    Next charIndex
End Sub

Sub FormatLinesStartingWithOP(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If Left(para.Range.Text, 2) = "OP" Then
            para.Range.Font.Italic = True
        End If
    Next para
End Sub

Sub SetTabsInItalicLines(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If para.Range.Font.Italic Then
            ' Setze den 3. Tabulator auf 9 cm
            para.TabStops.Add Position:=CentimetersToPoints(9), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
            ' Setze den 4. Tabulator auf 12,5 cm
            para.TabStops.Add Position:=CentimetersToPoints(12.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
        End If
    Next para
End Sub
Sub RemoveBoldFromVerzeichnis2(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If para.style = "Verzeichnis 2" Then
            para.Range.Font.Bold = False
        End If
    Next para
End Sub]]>
ich habe eine Makro die in Word ein Inhaltsverzeichnis erstellt.

Leider ist es so, dass es sehr lange dauert bis das Inhaltsverzeichnis erstellt wird.

Kann mir da jemand helfen, dass das Inhaltsverzeichnis schneller erzeugt wird?

Danke für eure Hilfe.

Hier die Makro:

Option Explicit

Sub IHV()
    Dim toc As TableOfContents
    Dim anzAbsaetze As Long
    Dim i As Long

    ' Füge ein neues Inhaltsverzeichnis hinzu
    Set toc = ActiveDocument.TablesOfContents.Add( _
        Range:=Selection.Range, _
        UseHeadingStyles:=False, _
        IncludePageNumbers:=False, _
        RightAlignPageNumbers:=False, _
        UseHyperlinks:=False, _
        HidePageNumbersInWeb:=True, _
        UseOutlineLevels:=False)

    ' Füge die gewünschten Formatvorlagen hinzu
    toc.HeadingStyles.Add style:="Part_Überschrift", level:=1
    toc.HeadingStyles.Add style:="Positionsüberschrift", level:=2
    toc.HeadingStyles.Add style:="Preis", level:=3
    toc.HeadingStyles.Add style:="Option", level:=3
    toc.HeadingStyles.Add style:="Preiszusammenfassung", level:=9

    ' Absätze des IHV zählen
    anzAbsaetze = toc.Range.paragraphs.count
    ' Zusätzliche Schleife über alle Absätze des Inhaltsverzeichnisses von oben nach unten
    With toc.Range
        For i = 1 To anzAbsaetze
            ' Wenn ein Absatz mit 'Verzeichnis 3' formatiert ist...
            If .paragraphs(i).style = "Verzeichnis 3" Then
                ' Ersetze die Worte "Zum Preis von" durch Leerzeichen im IHV
                Call ReplaceTextInTOC(.paragraphs(i).Range, "Zum Preis von", "")
                ' Ersetze die Worte "At a price of" durch Leerzeichen im IHV
                Call ReplaceTextInTOC(.paragraphs(i).Range, "At a price of", "")
            End If
        Next i
    End With

    ' Schleife über alle Absätze des Inhaltsverzeichnisses von unten nach oben
    With toc.Range
        For i = anzAbsaetze To 1 Step -1
            ' Wenn ein Absatz mit 'Verzeichnis 2' formatiert ist...
            If .paragraphs(i).style = "Verzeichnis 2" Then

                '... und wenn der Folgeabsatz Verzeichnis 3 ist...
                If i < anzAbsaetze And .paragraphs(i + 1).style = "Verzeichnis 3" Then

                    ' Entferne die Formatvorlagentrenner und füge die Texte in einer Zeile zusammen:
                    .paragraphs(i).Range.Characters.Last.Select
                    Selection.Delete Unit:=wdCharacter, count:=1

                    ' Füge nach dem Wort "EUR" im Absatz mit Verzeichnis 3 einen Tabulator ein
                    Call InsertTabAfterEUR(.paragraphs(i + 1))
                End If
                ' Füge einen Tabulator vor dem ersten fett formatierten Wort im Absatz mit Verzeichnis 2 ein
                Call InsertTabBeforeFirstBoldWord(.paragraphs(i))
            End If
        Next i
    End With

    ' Überprüfe und formatiere Zeilen, die mit "OP" beginnen
    Call FormatLinesStartingWithOP(toc.Range)

    ' Setze Tabulatoren in kursiv formatierten Zeilen
    Call SetTabsInItalicLines(toc.Range)

    ' Rufe das neue Sub auf, um fett formatierte Wörter im Verzeichnis 2 nicht mehr fett anzuzeigen
    Call RemoveBoldFromVerzeichnis2(toc.Range)
End Sub

Sub ReplaceTextInTOC(rng As Range, findText As String, replaceText As String)
    ' Ersetze Text nur im Inhaltsverzeichnis
    Dim tocRange As Range
    Set tocRange = rng.Duplicate
    With tocRange.Find
        .ClearFormatting
        .Text = findText
        .Replacement.ClearFormatting
        .Replacement.Text = replaceText
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Sub InsertTabAfterEUR(paragraph As paragraph)
    ' Füge nach dem Wort "EUR" einen Tabulator ein
    Dim rng As Range
    Set rng = paragraph.Range
    ' Suche nach "EUR" und füge Tabulator hinzu
    With rng.Find
        .ClearFormatting
        .Text = "EUR "
        .Replacement.ClearFormatting
        .Replacement.Text = "EUR" & vbTab
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Sub InsertTabBeforeFirstBoldWord(paragraph As paragraph)
    Dim rng As Range
    Dim charIndex As Long
    Dim foundBold As Boolean

    Set rng = paragraph.Range
    foundBold = False ' Flag, um zu überprüfen, ob ein fett formatiertes Wort gefunden wurde
    ' Durchlaufe jeden Charakter im Absatz
    For charIndex = 1 To rng.Characters.count
        ' Überprüfe, ob das Zeichen fett formatiert ist
        If rng.Characters(charIndex).Font.Bold Then
            ' Füge einen Tabulator vor dem ersten fett formatierten Wort ein
            rng.Characters(charIndex).InsertBefore vbTab
            foundBold = True ' Setze das Flag auf wahr, da ein fett formatiertes Wort gefunden wurde
            Exit For ' Beende die Schleife, nachdem das erste fett formatierte Wort bearbeitet wurde
        End If
    Next charIndex
End Sub

Sub FormatLinesStartingWithOP(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If Left(para.Range.Text, 2) = "OP" Then
            para.Range.Font.Italic = True
        End If
    Next para
End Sub

Sub SetTabsInItalicLines(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If para.Range.Font.Italic Then
            ' Setze den 3. Tabulator auf 9 cm
            para.TabStops.Add Position:=CentimetersToPoints(9), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
            ' Setze den 4. Tabulator auf 12,5 cm
            para.TabStops.Add Position:=CentimetersToPoints(12.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
        End If
    Next para
End Sub
Sub RemoveBoldFromVerzeichnis2(rng As Range)
    Dim para As paragraph
    For Each para In rng.paragraphs
        If para.style = "Verzeichnis 2" Then
            para.Range.Font.Bold = False
        End If
    Next para
End Sub]]> https://www.clever-excel-forum.de/Thread-automatisches-Inhaltsverzeichnis-erstellen Tue, 25 Mar 2025 18:20:27 +0000 Dietmar Henning]]> https://www.clever-excel-forum.de/Thread-automatisches-Inhaltsverzeichnis-erstellen
Ich habe eine Frage zu den Inhaltsverzeichnissen in Word.
Im Anhang findet Ihr eine Beispiel-Word-Datei wie meine Text aufgebaut sind.
 
Ich habe meine jeweiligen Überschriften die jeweiligen Formatvorlagen zugewiesen und somit konnte ich ein Inhaltsverzeichnis über 3 Level erstellen.
 
Formatvorlage Part_Überschrift-> ist in der Zeile Part A Seife und Part B Topf
Formatvorlage Positionsüberschrift -> ist in der Zeile cvx()       1        Schaum
Formatvorlage Preis ist in der Zeile -> Zum Preis von EUR  zys(-)
Ich würde jetzt aber gerne, dass beim automatischen Erstellen eines Inhaltsverzeichnisses, der Inhalt von Level 3 neben Level 2 steht.
 
So sollte es aussehen:
 
Part A Seife
cvx 1 Schaum      zum Preis von EUR zys(-)
Part B Topf
cvx 1 Schaum      zum Preis von EUR zys(-)
 
Ist das möglich, dass man so etwas automatisch machen kann in Word?

Danke schonmal für die Hilfe.

  Inhlastverzeichnis - Kopie.docm (Größe: 29,17 KB / Downloads: 2) ]]>
Ich habe eine Frage zu den Inhaltsverzeichnissen in Word.
Im Anhang findet Ihr eine Beispiel-Word-Datei wie meine Text aufgebaut sind.
 
Ich habe meine jeweiligen Überschriften die jeweiligen Formatvorlagen zugewiesen und somit konnte ich ein Inhaltsverzeichnis über 3 Level erstellen.
 
Formatvorlage Part_Überschrift-> ist in der Zeile Part A Seife und Part B Topf
Formatvorlage Positionsüberschrift -> ist in der Zeile cvx()       1        Schaum
Formatvorlage Preis ist in der Zeile -> Zum Preis von EUR  zys(-)
Ich würde jetzt aber gerne, dass beim automatischen Erstellen eines Inhaltsverzeichnisses, der Inhalt von Level 3 neben Level 2 steht.
 
So sollte es aussehen:
 
Part A Seife
cvx 1 Schaum      zum Preis von EUR zys(-)
Part B Topf
cvx 1 Schaum      zum Preis von EUR zys(-)
 
Ist das möglich, dass man so etwas automatisch machen kann in Word?

Danke schonmal für die Hilfe.

  Inhlastverzeichnis - Kopie.docm (Größe: 29,17 KB / Downloads: 2) ]]> https://www.clever-excel-forum.de/Thread-Datum-im-Serienbrief-wird-verdreht Mon, 24 Mar 2025 10:55:39 +0000 ich2110]]> https://www.clever-excel-forum.de/Thread-Datum-im-Serienbrief-wird-verdreht
ich verstehe leider im Moment das, was da passiert gar nicht mehr.

Bei einem Serienbrief wird im Datum der Monat mit dem Tag vertauscht.

Das Datum wird so korrekt angezeigt: 09/03/2025

Ich weiß, dass ich diese Formel einsetzen muss: \@ "dd.MM.yyyy" damit es so angezeigt wird: 09.03.2025

Angezeigt wird aber: 03.09.2025

Wobei in der gleichen Situation, andere Spalte, alles korrekt passiert.

Ich verstehe die Welt nicht mehr und hoffe, es kann mir jemand helfen.]]>
ich verstehe leider im Moment das, was da passiert gar nicht mehr.

Bei einem Serienbrief wird im Datum der Monat mit dem Tag vertauscht.

Das Datum wird so korrekt angezeigt: 09/03/2025

Ich weiß, dass ich diese Formel einsetzen muss: \@ "dd.MM.yyyy" damit es so angezeigt wird: 09.03.2025

Angezeigt wird aber: 03.09.2025

Wobei in der gleichen Situation, andere Spalte, alles korrekt passiert.

Ich verstehe die Welt nicht mehr und hoffe, es kann mir jemand helfen.]]> https://www.clever-excel-forum.de/Thread-E-Mail-mit-PDF-Anhang-direkt-aus-Word-versenden Thu, 20 Mar 2025 08:12:35 +0000 Sascha1986]]> https://www.clever-excel-forum.de/Thread-E-Mail-mit-PDF-Anhang-direkt-aus-Word-versenden
ich suche eine Lösung für folgendes Vorhaben:

Word Datei wird geöffnet (können verschiedene Dateien sein) 
Schaltfläche im Menüband mit E-Mail senden
Das Word Dokument wird automatisch in PDF der E-Mail angehängt ( Betreff ist der Dateiname)
Signatur und E-Mail Empfänger und CC sollte automatisch der E-Mail hinzugefügt werden.


Kann mir jemand bei meinem vorhaben helfen?

Vielen Dank

Gruß]]>
ich suche eine Lösung für folgendes Vorhaben:

Word Datei wird geöffnet (können verschiedene Dateien sein) 
Schaltfläche im Menüband mit E-Mail senden
Das Word Dokument wird automatisch in PDF der E-Mail angehängt ( Betreff ist der Dateiname)
Signatur und E-Mail Empfänger und CC sollte automatisch der E-Mail hinzugefügt werden.


Kann mir jemand bei meinem vorhaben helfen?

Vielen Dank

Gruß]]> https://www.clever-excel-forum.de/Thread-E-Mail-aus-Word-versenden Fri, 28 Feb 2025 06:22:06 +0000 Sascha1986]]> https://www.clever-excel-forum.de/Thread-E-Mail-aus-Word-versenden
Vielleicht kann mir jemand Helfen.

Ich möchte eine E-Mail mit angehängter PDF direkt aus Word heraus versenden bzw. sende ich aktuell schon, was auch ohne Probleme Funktioniert.
Jetzt soll der PDF Anhang aus Word immer an den gleichen Empfängerkreis gesendet werden. Ist das möglich ohne jedes mal die Mailadressen des Empfängerkreises einzugeben?
Es ist nicht immer die selbe Word Datei.
Hat jemand für mein Vorhaben eine Lösung?


Gruß]]>
Vielleicht kann mir jemand Helfen.

Ich möchte eine E-Mail mit angehängter PDF direkt aus Word heraus versenden bzw. sende ich aktuell schon, was auch ohne Probleme Funktioniert.
Jetzt soll der PDF Anhang aus Word immer an den gleichen Empfängerkreis gesendet werden. Ist das möglich ohne jedes mal die Mailadressen des Empfängerkreises einzugeben?
Es ist nicht immer die selbe Word Datei.
Hat jemand für mein Vorhaben eine Lösung?


Gruß]]>