Mefisto...diabeł czy anioł?

Witam mam pytanie odnosnie korespondencji seryjnej w wordzie... Staralem sie znalezc podobny temat na forum ale niestety nie znalazlem odpowiedzi...

Czy wiecie moze jak po stworzeniu pliku korespondencji seryjnej w wordzie zapisac kolejne strony w osobnych plikach, nazywajac je kolejnymi imionali i nazwiskami osob z listy excelowskiej...

Nagralem makro ale niestety z powodu luk w wiedzy nie jestem w stanie odpowiednio go zmodyfikowac....

To co mysle pozwolilo by zalatwic mi sprawe to odpowiedz jak zaznaczyc za pomoca komendy vba pierwsza strone dokumentu ...
Dodanie wtedy petli zalatwilo by sprawe a na razie zero pomyslu ...
Z gory dziekuje za jakakolwiek pomoc ...
Pozdrawiam


Sub Macro14()
'
' Macro14 Macro
' Macro recorded 2009-10-28
'
    Documents.Add DocumentType:=wdNewBlankDocument
    Application.DisplayAlerts = wdAlertsNone
    ActiveDocument.SaveAs FileName:="newdoc", FileFormat:=wdFormatDocument
    Documents("Form Letters4").Activate
    Selection.MoveDown Unit:=wdScreen, Count:=1, Extend:=wdExtend
    Selection.MoveDown Unit:=wdScreen, Count:=1, Extend:=wdExtend
    Selection.Cut
    Documents("newdoc").Selection.PasteAndFormat (wdPasteDefault)
        ChangeFileOpenDirectory _
        "C:\Documents and Settings\costam\Desktop\atts word\"
    ActiveDocument.SaveAs FileName:="1.doc", FileFormat:=wdFormatDocument
          ActiveWindow.Close
End Sub

[ Dodano: 2009-10-29, 16:08 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl