Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro zum Speichern jeder einzelnen Seite benötigt
zurück: Kopf / Fußzeile weiter: Dateiname auslesen und in Textbox übergeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Steve
Gast


Verfasst am:
10. Sep 2004, 08:59
Rufname:

Makro zum Speichern jeder einzelnen Seite benötigt - Makro zum Speichern jeder einzelnen Seite benötigt

Nach oben
       

Hallo,

ich habe folgendes Problem. Ich habe sehr oft Serienbriefe an mehrere Kunden. Da die Datenbank aus einer langen Liste besteht, ist es folglich beim Export auch ein Word-Dokument, mit vielen Briefen in einem Dokument. Wenn ich später einen dieser Briefe benötige, muss ich jedesmall die kompletten Briefe durchkucken.

Ich benötige daher ein Makro, der folgende Probleme behebt: Jede Seite wird in einem einzelnen Word-Dokument gespeichert und der Name des einzelnen Dokuments lässt sich über irgendein Seriendruckfeld z.B. Datum und NAme direkt ziehen, sodass eine einzelne EIngabe der Namen zum Speichern der Dokumente unnötig wird.

Gibt es da was?
MfG

Steve
Irgendwer
Gast


Verfasst am:
11. Okt 2004, 14:48
Rufname:


AW: Makro zum Speichern jeder einzelnen Seite benötigt - AW: Makro zum Speichern jeder einzelnen Seite benötigt

Nach oben
       

Hi Steve,
hiermit müsste es gehen:
Code:

Option Explicit

Public Sub JedeSeiteInNeuesDokument()
  Dim wdDoc As Document
  Dim wdDocNeu As Document
  Dim wdBereich As Range

  Dim sPfad As String
  Dim optAnsicht As Long
  Dim iSeitenAnz As Integer
  Dim i As Integer
  Dim iDocNum As Integer

  Set wdDoc = ActiveDocument

  sPfad = wdDoc.Path & "\" & "Test_"

  Application.ScreenUpdating = False

  optAnsicht = Windows(wdDoc).View.Type
  Windows(wdDoc).View.Type = wdPageView

  wdDoc.Range(0, 0).Select

  Application.Browser.Target = wdBrowsePage

  iDocNum = 0
  iSeitenAnz = wdDoc.ComputeStatistics(wdStatisticPages)

  For i = 1 To iSeitenAnz
    Set wdBereich = wdDoc.Bookmarks("\Page").Range
    If Right(wdBereich.Text, 1) = Chr(12) Then
      wdBereich.SetRange _
            Start:=wdBereich.Start, End:=wdBereich.End - 1
    End If

    Set wdDocNeu = Documents.Add _
            (Template:=wdDoc.AttachedTemplate.FullName)

    wdDocNeu.Content.FormattedText = wdBereich.FormattedText

    iDocNum = iDocNum + 1
    wdDocNeu.SaveAs FileName:=sPfad & Format(iDocNum, "000")
    wdDocNeu.Close
   
    wdDoc.Activate
    Application.Browser.Next
  Next i

  Windows(wdDoc).View.Type = optAnsicht
  wdDoc.Range(0, 0).Select
  Application.ScreenUpdating = True

  Set wdBereich = Nothing
  Set wdDocNeu = Nothing
  Set wdDoc = Nothing
End Sub

Hoffe es hilft.
Alex
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Seite in Serienbrief überspringen 1 tiger28 1113 06. Jan 2011, 15:11
charlybrown Seite in Serienbrief überspringen
Keine neuen Beiträge Word Serienbriefe: Seriendruck mehrere Daten pro Seite 3 Envy 3297 10. Sep 2010, 11:09
charlybrown Seriendruck mehrere Daten pro Seite
Keine neuen Beiträge Word Serienbriefe: Serienbrief in einzelne Dateien speichern 1 moneymeyer 4245 16. Jun 2010, 22:00
charlybrown Serienbrief in einzelne Dateien speichern
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Pro Seite je 2 Felder je 2 mal??? 4 misterwro 1823 17. Mai 2010, 17:47
misterwro Serienbrief: Pro Seite je 2 Felder je 2 mal???
Keine neuen Beiträge Word Serienbriefe: Serienbrief, gleiches Feld mehrmals auf Seite anderer Inhalt 3 Crey 1941 07. Apr 2010, 00:31
Gast Serienbrief, gleiches Feld mehrmals auf Seite anderer Inhalt
Keine neuen Beiträge Word Serienbriefe: mehrerer Datensätze pro Seite in einem Serienbrief 0 OmS 1408 29. März 2010, 18:43
OmS mehrerer Datensätze pro Seite in einem Serienbrief
Keine neuen Beiträge Word Serienbriefe: Wiederholung der Datensätze auf der selbe Seite ausschalten? 1 pa3112 1202 09. Feb 2010, 21:16
charlybrown Wiederholung der Datensätze auf der selbe Seite ausschalten?
Keine neuen Beiträge Word Serienbriefe: Makro ausführen bei Seriendruck in neues Dokument 1 websven 3360 09. Okt 2009, 09:51
klein-artur Makro ausführen bei Seriendruck in neues Dokument
Keine neuen Beiträge Word Serienbriefe: Einzelnen Datensatz aus Access 2007 in Word 2007 anzeigen 0 ermso07 3430 29. Mai 2008, 17:31
ermso07 Einzelnen Datensatz aus Access 2007 in Word 2007 anzeigen
Keine neuen Beiträge Word Serienbriefe: Problem beim speichern mit INCLUDEPICTURE 7 häschen 3447 28. März 2008, 09:50
häschen Problem beim speichern mit INCLUDEPICTURE
Keine neuen Beiträge Word Serienbriefe: mehrere Adressblöcke auf einer Seite 1 cockaigne 799 10. Aug 2007, 19:44
CaBe mehrere Adressblöcke auf einer Seite
Keine neuen Beiträge Word Serienbriefe: Seriendruckempfänger speichern ...aber wie?? 0 MBMBMB 1304 04. März 2007, 14:47
MBMBMB Seriendruckempfänger speichern ...aber wie??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum