Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Automatische aktualisierung bei Serienbriefen in Word

Mitglied: attilla

attilla (Level 1) - Jetzt verbinden

05.09.2011, aktualisiert 14:03 Uhr, 3691 Aufrufe, 1 Kommentar

Hallo, bin neu in diesem Forum, hoffe ihr könnt mir weiterhelfen.

Aufgabe: Ich soll über Word 07 einen Serienbrief erstellen. Der Serienbrief soll eine Einladung sein, über eine Textbox wird der Name dargestellt.
Je nachdem wie Kurz bzw. Lang der Name ist soll er entsprechend größer bzw. kleiner gemacht werden.


Dazu hab ich den unten stehen Programmcode benutzt, was auch prima funktioniert.
Problem: Das Problem was ich habe wenn ich einen Seriendruck starte und vorher das Makro ausgeführt habe, verändert das Makro nur die
Seite die akutell geöffnet ist die restlichen bleiben unverändert.

Ziel: Ziel ist dass, das Makro für jede Seite (Einladung) ausgeführt wird beim drucken.


info: Wenn man bei Word auf <Sendungen --> Fertigstellen und zusammenführen --> einzelne Dokumente bearbeiten> geht alle Seiten aufruft und
dann erst das Makro ausführt geht das aber bei einer großen Datenbank dauert das zu lang ca. 20h.

01.
Sub ScaleTextboxText() 
02.
Dim shp As Shape 
03.
For Each shp In ActiveDocument.Shapes 
04.
 If shp.TextFrame.HasText = True Then 
05.
  With shp 
06.
    ' erst hochskalieren, falls die Textbox nicht ausgefüllt wird 
07.
    Do While .TextFrame.Overflowing = False 
08.
      .TextFrame.TextRange.Font.Size = .TextFrame.TextRange.Font.Size + 1 
09.
    Loop 
10.
    ' herunterskalieren, falls die Textbox überfüllt wird 
11.
    Do While .TextFrame.Overflowing = True 
12.
      .TextFrame.TextRange.Font.Size = .TextFrame.TextRange.Font.Size - 1 
13.
    Loop 
14.
     
15.
  End With 
16.
 End If 
17.
Next shp 
18.
End Sub
Mitglied: GUTEfrage
02.11.2011 um 16:17 Uhr
Hallo,

warum soll der Name denn kleiner gemacht werden? Wenn ich einen Doppelnamen hätte, dann würde ich es bevorzugen, wenn dieser auch so auf der Einladung steht.

Wie wär es denn, anstatt der Textbox einen freien Platzhalter zu verwenden, der ganz "stupf" den Namen (so wie er in der Datenbank steht) an den dafür vorgesehenen Platz stellt.

Das Funktioniert sowohl bei einem Brief, als auch bei Briefumschlägen.

Dann braucht man auch kein Makro und auch nur die Daten "zusammenführen" und FERTIG.


Vielleicht hat´s ja weitergeholfen,

Gruß
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Serienbrief Word
Frage von mike59Microsoft Office3 Kommentare

Hallo, Ich benutze GS-Adressen zum Briefschreiben. In GS-Adressen markiere ich eine Adresse gehe auf druck Microsoft Serienbrief. Dort wird ...

Microsoft Office
Word Serienbrief mergfield
Frage von InSpeeMicrosoft Office3 Kommentare

Hallo liebe community, ich komme bei einem Word-Serienbrief einfach nicht weiter und hoffe hier etwas Hilfe zu erhalten. Es ...

Windows Netzwerk

Keine automatische Aktualisierung bei nicht verfügbarer Netzwerkadresse

Frage von Fons11Windows Netzwerk4 Kommentare

Hallo, ich möchte auf einem Notebook mit Windows 8 Daten eines Fileservers verfügbar machen. Verbinde ich die Daten über ...

Microsoft Office

Formatierung von Word Serienbriefen in CHF Franken

gelöst Frage von pencilMicrosoft Office1 Kommentar

Hallo zusammen Ich habe ein Problem, dass die Rechnung in unserer Firma per Serienbrief lösen möchte. Gibt es eine ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware10 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...