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

Word 2003 jede seite in ein neues Dokument speichern

Mitglied: 0cool

0cool (Level 2) - Jetzt verbinden

21.06.2009, aktualisiert 17:44 Uhr, 4765 Aufrufe, 3 Kommentare

Hallo Leute,

ich soll hinkriegen, dass aus einem Bestehenden Word Dokument das mehrere Seiten hat(die Seitenzahl kann varieren), jede Seite als ein neues Dokument abgespeichert wird.
Also Seite 1 von Dokument A soll in Dokument 001 gespeichert werden, Seite 2 von Dokument A soll in Dokument 002 gespeichert werden, usw.
Dokument 001 und 002 existieren noch nicht.

Ich habe ein Makro, dass aber nur die Hälfte macht, d.h. bei Seite 1 funktioniert es, bei Seite zwei ist das Dokument leer obwohl die zweite Seite gefüllt ist, usw.

Der code des Macros ist folgender,

01.
Private Const Praefix = "Serienbrief" 
02.
 
03.
Sub ResultatDesSeriendrucksAufteilenOhneKopfUndFusszeilen() 
04.
  Dim oDoc As Document, Abschnitt As Section, nDoc As Document 
05.
  Set oDoc = ActiveDocument 
06.
  Verzeichnis = oDoc.Path 'Falls Ergebnis bereits gespeichert, dann im selben Pfad 
07.
  If Verzeichnis = "" Then 'Sonst im Standard-Dokumentenverzeichnis 
08.
    Verzeichnis = Dialogs(wdDialogToolsOptionsFileLocations).Setting 
09.
  End If 
10.
  Anz = oDoc.Sections.Count 'Für alle Abschnitte 
11.
  For i = 1 To Anz - 1 
12.
    Set Abschnitt = oDoc.Sections(i) 
13.
    Set nDoc = Documents.Add(Template:=oDoc.AttachedTemplate.FullName) 
14.
    nDoc.Content.FormattedText = Abschnitt.Range.FormattedText 
15.
    nDoc.Range.Find.Execute FindText:="^b", ReplaceWith:="" 'Abschnittwechsel suchen 
16.
    dsname = Verzeichnis & "\" & Praefix & Format(i, "0000") & ".doc" 
17.
    nDoc.SaveAs FileName:=dsname, AddToRecentFiles:=False 
18.
    nDoc.Close 
19.
  Next i 
20.
End Sub
Nun meine Frage was ist an dem Macro falsch?
Danke für eure Hilfe.


Gruß

0cool
Mitglied: Dieter-56
21.06.2009 um 18:29 Uhr
hallo,
als programmiermäßiger ungeschulter laie fällt mir aber schon mal folgende Zeile auf:

For i = 1 To Anz - 1

ich würde das so interpretieren: i = 1 to anz- 1 --> mache seite1 in doc 1 und dann schluß und aus.

nur so ein gedanke, programmierer werden mir da vielleicht widersprechen.
folgender gedanke kommt mir noch für diese zeile:

for i > 0 To Anz - > 0

probiers mal mit diesem gedanken.

dieter
Bitte warten ..
Mitglied: 76109
22.06.2009 um 00:42 Uhr
Hallo 0cool!

Also, ich habe das mal getestet und herausgefunden, dass egal wieviel Seiten ich habe, der Sections.Count und Sections.Item immer 1 ist.

Zum Ersetzen von Seitenumbrüchen:
01.
FindText:=vbFormFeed, ReplaceWith:="", Replace:=wdReplaceAll  ' Chr(12)

@Dieter_56
Die Anweisung "For i = 1 To Anz - 1" ist kein Fehler und bedeutet Schleifenzähler von 1 bis (Wert - 1)

Gruß Dieter

[Edit] Im Text hatte ich anstatt Seiten- Zeilenumbrüche geschrieben. Im Code war's aber richtig [/Edit]
Bitte warten ..
Mitglied: 0cool
25.06.2009 um 18:37 Uhr
Hey Leute,

vielen dank für eure Hilfe, aber ich bin nicht wirklich weiter, was ich vergessen habe zu sagen ist, dass auf den Blättern ein Textfeld ist, in dem alles drin steht forhandene Fußzeile soll nicht mit auf das neue Dokument übertragen werden.

Immoment ist es noch so das die Fußzeile mit übertragen wird und das Textfele nur manchmal übertragen wird.

Das Document findet ihr unter dem link http://www.computerservice-zelt.de/testen/macro.doc

Vielleicht könnt ihr mir damit noch besser helfen natürlich sind sämtliche Informationen die ich nicht veröffentlichen darf rausgenommen.

Gruß

Thorsten
Bitte warten ..
Ähnliche Inhalte
Backup
Backup von WORD dokument
gelöst Frage von justdanBackup9 Kommentare

Hallo, Ein WORD Dokument wurde überschrieben! Kann ich irgendwie dieses DOC Backupen von gestern oder vorgestern machen? Also Veritas ...

Microsoft Office
Word Dokumente öffnen sich nicht
Frage von xbast1xMicrosoft Office5 Kommentare

Hallo zusammen, ein MA hat das Problem, dass wenn mehrere Word Dokumente geöffnet sind sich keine zusätzlichen öffnen lassen. ...

Microsoft Office
Saubere HTML aus Word-Dokument
Frage von peterpaMicrosoft Office19 Kommentare

Hallo, kennt jemand eine Möglichkeit ein Word-Dokument in eine "saubere" HTML-Seite zu wandeln? Ja es gibt die Möglichkeit diese ...

Microsoft Office

Word Rechtschreibprüfung funktioniert in EINIGEN Dokument nicht

gelöst Frage von KMP1988Microsoft Office2 Kommentare

Servus zusammen, ich habe ein Word-Dokument (erstellt in Word 2007) in dem keine Rechtschreibprüfung funktioniert. Wenn ich eine manuelle ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 6 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 18 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 19 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 22 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...