Office: (Office 365) Word-Formulr ohne Platzhalter drucken

Helfe beim Thema Word-Formulr ohne Platzhalter drucken in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo, ich bin neu hier und habe fast keine Programmiererfahrung/Kenntnis. ich habe ein Word-Formular, dass ich über ein Makro ausdrucken möchte -... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von ifeelgood67, 12. August 2023.

  1. Word-Formulr ohne Platzhalter drucken


    Hallo,

    ich bin neu hier und habe fast keine Programmiererfahrung/Kenntnis.

    ich habe ein Word-Formular, dass ich über ein Makro ausdrucken möchte - ohne Platzhalter.
    Dabei bekomme ich jedoch immer diese Fehlermeldung: "Laufzeitfehler 91, Objekttyp oder With-Blockvariable nicht festgelegt."
    Ich finde den Fehler nicht.

    Sub DruckenOhnePlatzhalter()

    Dim blnShowHidden As Boolean
    Dim blnPrintHidden As Boolean
    Dim objCCtl As Word.ContentControl

    Set objCCtl = ActiveDocument.ContentControls(1) '''

    blnShowHidden = ActiveDocument.ActiveWindow _
    .View.ShowHiddenText
    blnPrintHidden = Application.Options _
    .PrintHiddenText
    ActiveDocument.ActiveWindow.View _
    .ShowHiddenText = True
    Application.Options _
    .PrintHiddenText = False

    For Each objCCtl In ActiveDocument.ContentControls
    With objCCtl
    If .Range.Text = .PlaceholderText Then
    .Range.Font.Hidden = True
    End If
    End With
    Next objCCtl


    Application.Dialogs(wdDialogFilePrint).Show

    For Each objCCtl In ActiveDocument.ContentControls
    With objCCtl
    If .Range.Text = .PlaceholderText Then
    .Range.Font.Hidden = False
    End If
    End With
    Next objCCtl

    PrtWoPl_End:
    ActiveDocument.ActiveWindow.View _
    .ShowHiddenText = blnShowHidden

    Application.Options _
    .PrintHiddenText = blnPrintHidden

    Set objCCtl = Nothing
    Exit Sub

    PrtWoPl_Error:
    MsgBox _
    Prompt:="Fehler beim Drucken des Formulars" & _
    vbCrLf & _
    "(" & Err.Number & "): " & Err.Description, _
    Buttons:=vbInformation, _
    Title:="Formulardruck ohne Platzhaltertext"
    Resume PrtWoPl_End

    End Sub

    Kann mir da bitte jemand weiterhelfen?

    Danke und Grüße
     
    ifeelgood67, 12. August 2023
    #1
  2. Gerhard H Erfahrener User
    Hallo,

    ich seh auf Anhieb nicht, wo der Fehler entstanden sein könnte. Lass doch dein Makro mal im Einzelschritt (mit F8) durchlaufen und teil die Zeile mit, in der der Fehler auftritt

    Übrigens, wenn ein bisschen Schlamperei tolerabel ist, könntest du dir den ganzen Aufwand mit hidden text sparen und im Makro einfach ein Leerzeichen ins Inhaltssteuerelement "eintippen" lassen.
     
    Gerhard H, 12. August 2023
    #2
  3. Hallo Gerhard,

    Danke für Deine Antwort.

    Der Fehler tritt in der 1. For - Schleife in dieser Zeile auf:

    .Range.Font.Hidden = True…

    Danke und Grüße
     
    ifeelgood67, 13. August 2023
    #3
  4. Gerhard H Erfahrener User

    Word-Formulr ohne Platzhalter drucken

    Hallo ifeel,

    dann ist es vermutlich so, dass deine Schleife auch ContentControls durchläuft, die keinen Text haben können, wie z.B. Checkboxen.

    In diesem Fall hilft es, die Schleife auf bestimmte Typen einzugrenzen. Hier zum Beispiel auf Nur-Text (1) und Rich-Text-Felder (0):
    Code:
    For Each objCCtl In ActiveDocument.ContentControls
        With objCCtl
            If objCCtl.Type <= 1 Then
                If .Range.Text = .PlaceholderText Then
                    .Range.Font.Hidden = True
                End If
            End If
    End With
    Next objCCtl
    Wenn es das nicht ist, braucht es ein kleines Musterdokument zum Testen.
     
    Zuletzt bearbeitet: 13. August 2023
    Gerhard H, 13. August 2023
    #4
    1 Person gefällt das.
  5. Hallo Gerhard,

    super, vielen Dank für Deine Hilfe!

    Genau das war das Problem, hatte ich gar nicht auf dem Schirm.

    Freundliche Grüß und schönen Sonntag
     
    ifeelgood67, 13. August 2023
    #5
Thema:

Word-Formulr ohne Platzhalter drucken

Die Seite wird geladen...
  1. Word-Formulr ohne Platzhalter drucken - Similar Threads - Word Formulr Platzhalter

  2. Probleme mit Makros und Grafiken nach Umstieg von Word 2011 auf Office 365 (Mac)

    in Microsoft Word Hilfe
    Probleme mit Makros und Grafiken nach Umstieg von Word 2011 auf Office 365 (Mac): Liebes Forum, ich bin kann selbst kaum VBA, hab aber mal einige Makros aufgenommen und dann abgeändert, bin also alles andere als ein Profi. 2015 hat jemand im FOrum (office-loesung.de), dessen...
  3. Word-Bildauflösung nicht reduzieren beim Publizieren als Webseite

    in Microsoft Word Hilfe
    Word-Bildauflösung nicht reduzieren beim Publizieren als Webseite: Gibt es irgendeine Chance, beim Speichern als Webseite aus Word (365) die Bilder auf der so erzeugten Webseite in hoher Auflösung zu haben? Obwohl an allen denkbaren Stellen in Word die maximale...
  4. Word Dokument wird in Excel nicht als Serienbriefhauptdokument erkannt

    in Microsoft Excel Hilfe
    Word Dokument wird in Excel nicht als Serienbriefhauptdokument erkannt: Hallo liebe Community, Ich versuche gerade aus Excel heraus per VBA einen Serienbrief zu generieren. Den Serienbrief in Word habe ich vorab mit dem Serienbrief Assistenten erstellt und...
  5. Word-Aufzählungszeichen -- gelöschte Formatvorlage taucht immer wieder auf

    in Microsoft Word Hilfe
    Word-Aufzählungszeichen -- gelöschte Formatvorlage taucht immer wieder auf: Hallo zusammen, ich habe mir vor gefühlten Jahrzehnten einmal eine benutzerdefinierte Formatvorlage für ein spezielles "Aufzählungszeichen" erstellt. Die Aufzählung bzw. das Aufzählungszeichen...
  6. Word 2 unabhängige Inhaltsverzeichnisse

    in Microsoft Word Hilfe
    Word 2 unabhängige Inhaltsverzeichnisse: Hallo Leute, ich habe eine Word-Datei, in der es 2 unabhängige Inhaltsverzeichnisse geben soll. Im ersten Verzeichnis stehen immer nur die neuesten Infos. Im zweiten Verzeichnis stehen alle...
  7. Dropdown Feld und Tabulator

    in Microsoft Word Hilfe
    Dropdown Feld und Tabulator: Hallo Zusammen! Ich habe in einem Word-Dokument ein Dropdown Feld (Inhaltssteuerelement) erstellt. Im restlichen Dokument sind viele Textformularfelder. Wenn ich die Bearbeitung einschränke, kann...
  8. Word-Textfeld immer eine Zeile zu hoch

    in Microsoft Word Hilfe
    Word-Textfeld immer eine Zeile zu hoch: Hallo Forum, ich möchte ein Textfeld erstellen, welches sich in Breite und Höhe den Text anpasst. Meiner Erinnerung nach war dies immer kein Problem. Nun wird das Textfeld allerdings immer eine...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden