mailmerge bestanden opslaan als

[Nic Vaessen]

Uit een eerdere post heb ik de oplossing gevonden om m'n mailmerge als allemaal losse .doc bestanden op te slaan:thumb:.
Nu wil ik die bestanden echter niet als .doc bestand hebben maar als .txt met UTF-8 als codering.

Kan me iemand hierbij helpen?

Alvast bedankt

 

[snb]

Welke code heb je al ?
Plaats die dan hier.

 

[vanveelen]

@Nic,

Kan je mij die post geven, want daar ben ik wel heel erg in geïnteresseerd....

 

[Nic Vaessen]

Sub samenvoegen_per_record()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
With .DataSource
.ActiveRecord = wdLastRecord
c2 = .ActiveRecord
.ActiveRecord = wdFirstRecord
End With

For j = 1 To c2 - 1
With .DataSource
If j > 1 Then .ActiveRecord = wdNextRecord
.LastRecord = .ActiveRecord
c4 = .DataFields("artikelnummer").Value
End With
ActiveDocument.MailMerge.Execute
With ActiveDocument
.SaveAs "I:\KAM\ARBO\INVECO\GRONDSTOF\2010\20100201\" & c4 & ".doc"
.Close 0
End With
Next
End With
End Sub

 

[Nic Vaessen]

@Nic,

Kan je mij die post geven, want daar ben ik wel heel erg in geïnteresseerd....

http://www.helpmij.nl/forum/showthread.php?t=493903

post staat in excel map....... gevonden code staat al in deze post vermeld. Veel succes ermee.

Met vriendelijke groet,

Nic

 

[snb]

Dat lijkt wel een oplossing van snb
Gebruik svp codetags in je bericht

Sub samenvoegen_per_record()
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    With .DataSource
       .ActiveRecord = wdLastRecord
       c2 = .ActiveRecord
       .ActiveRecord = wdFirstRecord
    End With

    For j = 1 To c2 - 1
      With .DataSource
         If j > 1 Then .ActiveRecord = wdNextRecord
         .LastRecord = .ActiveRecord
         c4 = .DataFields("artikelnummer").Value
      End With
      ActiveDocument.MailMerge.Execute
      With ActiveDocument
        .SaveAs "I:\KAM\ARBO\INVECO\GRONDSTOF\2010\20100201\" & c4 [COLOR="Blue"]& ".txt", wdformatDosText[/COLOR]
        .Close 0
      End With
    Next
  End With
End Sub

 

[Nic Vaessen]

Hoi SNB

Beter goed gejat dan slecht bedacht dacht ik zo, maar inderdaad, het is uit een oude post van jou.
Ook je laatste hulp met het wegschrijven naar .txt bestanden werkt
Echter nu zou ik ook nog graag de codering van het bestand (standaard is ansi) omzetten naar UTF-8.

PS, hoe gebruik ik "codetags"? Ben een beetje onbekend in deze materie.

Met vriendelijke groet,

Nic

 

[Nic Vaessen]

Hoi SNB

Ik heb toch nog een probleem met het al eerder verkregen script.:shocked:
Opgeslagen wordt nu een steeds groter wordend document met daarin steeds een kopy van de vorige versie met daaraan toegevoegd het document met de "nieuwe" gegegevens uit de database.

kortom HELP

 

[snb]

Sub samenvoegen_per_record()
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    With .DataSource
       .ActiveRecord = wdLastRecord
       c2 = .ActiveRecord
       .ActiveRecord = wdFirstRecord
    End With

    For j = 1 To c2 
      With .DataSource
[COLOR="Red"]         .FirstRecord = j
         .LastRecord = j[/COLOR]
      End With
      ActiveDocument.MailMerge.Execute
      With ActiveDocument
        .SaveAs "I:\KAM\ARBO\INVECO\GRONDSTOF\2010\20100201\" & c4 & ".txt", [COLOR="Red"]wdformatHTML[/COLOR]
        .Close 0
      End With
    Next
  End With
End Sub

 

[Nic Vaessen]

Hoi SNB

Its solved !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Na zelf nog wat puzzelen met de door jou aangegeven voorbeelden heb ik nu bijna exact wat ik nodig heb. (De dos text filetjes worden gesaved met als codering ANSI, ik zou graag zien dat deze als UTF-8 opgeslagen werden)

Als dit niet lukt moet dit maar handmatig, bedankt zover met je hulp :thumb:

Met vriendelijke groet,

Nic Vaessen

 

[ROSO]

Hallo Nic,

Kan je oplossing hier plaatsen, want daar ben ik wel heel erg in geïnteresseerd.

Met vriendelijke groet,

Roso

 

[Nic Vaessen]

Hoi Roso,

Ik zal mijn uitwerking in de loop van volgende week een keer plaatsen, nu eerst carnaval vieren. Vrijdag kan ik weer bij de computer met gevraagde code.

Alaaf

 

[ROSO]

Hoi Nic,

Ik kijk ernaar uit.....

Alvast bedankt Nic.


Met vriendelijke groeten,

RoSo

 

[Nic Vaessen]

Hoi Roso,

Het heeft iets langer geduurt, maar hieronder dan toch de oplossing van snb aangepast aan mijn wensen. Hopelijk kun jij er ook iets mee.

Sub samenvoegen_per_record()
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    With .DataSource
       .ActiveRecord = wdLastRecord
       c2 = .ActiveRecord
       .ActiveRecord = wdFirstRecord
    End With
     For j = 1 To c2 - 1
         With .DataSource
             If j > 1 Then .ActiveRecord = wdNextRecord
             .FirstRecord = j
             .LastRecord = j
         c4 = .DataFields("[COLOR="Red"]documentnaam[/COLOR]").Value
      End With
      ActiveDocument.MailMerge.Execute
      With ActiveDocument
        .SaveAs "[COLOR="Red"]locatie[/COLOR]" & c4 & ".txt", wdFormatDOSText
        .Close 0
      End With
    Next
  End With
End Sub