• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel naar Word script, met een vraag hierover

Status
Niet open voor verdere reacties.
HWV

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.183
Beste allemaal,

1)
Ik heb een script samengesteld die gegevens overzet met een :
Code: 
 For i = 1 To .Cells(17, 1).CurrentRegion.Columns.Count
        w.Selection.TypeText Text:=.Cells(17, i) & "   " & Chr(9)
      Next
Functie erin gebouwd, als ik de Chr (9) veranderd voor een enter dan krijg ik na elk veld een enter. Wat ik wil is na elke regel een enter zodat deze netjes in mijn Word formulier geplakt kan worden,

2) Cel B2 staat een naam, in B3 staat een adres, en in B4 Postcode en Woonplaats.
Nu zil ik deze ook meenemen naar Word en boven aan de brief zetten waar nu naam staat.
Kunnen jullie mij hierbij ondersteunen.

Code: 
Sub KopieerenNaarExcel()
  Dim i As Integer
  Dim w As Object
  
' Om met Word te werken maken we een object (w) als Word-applicatie
    Set w = CreateObject("Word.Application")
' van blad 1 van het actieve workbook betrekken we de gegevens van de eerste rij
    With ActiveWorkbook.Sheets(1)
'   we openen een leeg document
      w.Documents.Add

'   we schrijven in het document een zinw.
          With w
            .Selection.Font.Name = "Verdana"
              .Selection.TypeParagraph
                .Selection.Font.Size = 10
                  .Selection.Font.Bold = wdToggle
                     End With

           w.Selection.TypeText Text:="Bedrijfsnaam" & vbCr
           w.Selection.TypeText Text:="T.a.v. " & vbCr
           w.Selection.TypeText Text:="Straatnaam" & vbCr
           w.Selection.TypeText Text:="Postcode Woonplaats," & vbCr & vbCr

      w.Selection.TypeText Text:="Plaatsnaam," & vbCr
      w.Selection.TypeText Text:="Ref.  /bg" & vbCr & vbCr

            With w
            .Selection.Font.Name = "Verdana"
             .Selection.Font.Size = 14
               .Selection.Font.Bold = wdToggle
                 End With
        w.Selection.TypeText Text:="Aanbieding" & vbCr & vbCr
            With w
            .Selection.Font.Name = "Verdana"
              .Selection.TypeParagraph
                .Selection.Font.Size = 10
                  .Selection.Font.Bold = wdToggle
                     End With
      w.Selection.TypeText Text:="Geachte ," & vbCr & vbCr
      w.Selection.TypeText Text:="Naar aanleiding van uw offerte aanvraag bieden wij u onderstaand de volgende artikelen aan :" & vbCr & vbCr
      w.Selection.TypeText Text:="Artikelnr.       Omschrijving                                                  Verpakt       Prijs" & vbCr & vbCr
'   uit de kolommen van het Excel-document halen we de gegevens en schrijven die in het Word-document
      For i = 1 To .Cells(17, 1).CurrentRegion.Columns.Count
        w.Selection.TypeText Text:=.Cells(17, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(18, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(18, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(19, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(19, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(20, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(20, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(21, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(21, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(22, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(22, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(23, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(23, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(24, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(24, i) & "   " & Chr(9)
      Next
         For i = 1 To .Cells(25, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(25, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(26, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(26, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(27, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(27, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(28, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(28, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(29, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(29, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(30, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(30, i) & "   " & Chr(9)
      Next
          For i = 1 To .Cells(31, 1).CurrentRegion.Columns.Count
          w.Selection.TypeText Text:=.Cells(31, i) & "   " & Chr(9)
      Next
    End With
    
     w.Selection.TypeText Text:="" & vbCr & vbCr
     w.Selection.TypeText Text:="De levertijd is nader overeen te komen." & vbCr
     w.Selection.TypeText Text:="De betaling dient na 21 dagen op ons rekeningnummer te zijn bijgeschreven." & vbCr
     w.Selection.TypeText Text:="Alle prijzen zijn geheel vrijblijvend en exclusief BTW en clichékosten." & vbCr
     w.Selection.TypeText Text:="Deze offerte is één maand geldig." & vbCr & vbCr
     w.Selection.TypeText Text:="Leveringen geschieden volgens de Algemene verkoopvoorwaarden van de Ned. Ver. van Groothandelaren in papier- en papierwaren, gedeponeerd bij de Kamer van Koophandel te Amsterdam." & vbCr & vbCr
     w.Selection.TypeText Text:="Wij menen u hiermee een gunstige aanbieding te hebben gedaan en zijn in afwachting van uw positieve reactie." & vbCr & vbCr & vbCr
     
     w.Selection.TypeText Text:="Hoogachtend," & vbCr
     w.Selection.TypeText Text:="Bedrijfsnaam" & vbCr & vbCr
     w.Selection.TypeText Text:="Naam directeur" & vbCr
    
' het document wordt opgeslagen als E:\GegevensUitExcel.doc
    w.ActiveDocument.SaveAs Filename:="E:\TestExcelWord.doc"
    w.ActiveDocument.Close
  
End Sub

Groet HWV
 

Bijlagen

  • Excel naar Word Helpmij.xls
    48,5 KB · Weergaven: 40
Laatst bewerkt:
Moet ik de vraag anders stellen ?

Heeft iemand een idee hoe ik er voor kan zorgen dat de regels onderelkaar komen en niet achterelkaar. Ik heb me rot lopen piekeren hoe ik dit moet oplossen en gezocht op internet maar ik kom er niet in uit .
Graag jullie hulp hierbij

Groet HWV
 
Bedankt

SNB,

bedankt voor de link.
Ik zal het zeker niet goed begrijpen , maar wordt daar niet verwezen naar voorbeeldbestanden ?

Ik heb de cod egeprobeerd maar ik kom er niet in uit.
Code: 
Sub samenvoegen()
  Documents.Add "P:\automatisering\Opslag\Samenvoegen.doc"
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    .Execute
  End With
  With ActiveDocument       '   bewaar de samengevoegde documenten
     .SaveAs "P:\automatisering\Opslag\samengevoegde documenten.doc"
     .Close
  End With
  ActiveDocument.Close     '  Sluit hoofddocument samenvoegen
End Sub

IK heb een map Opslag die staat bij op P:\automatisering\Opslag\
Nu heb ik in die map een bestand Doc neer gezet Samenvoegen.
Ik werk vanuit excel waar ik een deel van de sheet wil kopieeren naar Word.

Mar hij geef een fout melding Object vereist


Wat doe ik verkeerd>

Groet HWV
 
Zoals wel vaker bij fora moet je je inschrijven om bijlagen te kunnen downloaden.
 
Tja of je log in ja

Beste SNB,

Bedankt, niet aan gedacht. :-(

Helaas werkt dit voor mijn niet.
De gegevens die overgezet moeten worden verschilt elke keer weer het start altijd in cel G19 en kan doorlopen t/m AF 173
Dit gegevens elke keer verschillend zijn.
Samenvoegen heb ik al gedacht in Word en Excel maar dat werkt en werkte niet bij ons.
In de bijlage een voorbeeld van hoe ik het wil hebben.
Als u op de knop druk zal hij naar Word gaan en de velden meenemen die ik wil hebben.
Ik moest ook nog een om weg nemen om de velden juist te krijgen daarom zijn de eerste kolomen verborgen.
Ik weet dat het veel en veel beter kan maar beter als dit kan IK niet.

Ik hoop dat u hier een oplossing voor heeft,

Groet HWV
 

Bijlagen

  • 008 Standaard Bestelformulier.rar
    22,1 KB · Weergaven: 20
De ingebouwde faciliteiten van Word en Excel zijn altijd beter dan je zelf kunt knutselen. Maak daar gebruik van.
 
Beste SNB,

Ik heb net de uitleg gevolgd op het volgende forum stukje wat door u is geschreven.
http://www.helpmij.nl/forum/showthread.php?p=2609804

Ook al ben ik van meening dat voor mij een stuk op maat beter werkt , wil ik zekre kijken of wat anders ook kan werken.
Ik heb het geprobeerd maar krijg telkens de melding

Fout! Bladwijzer niet gedefinieerd

In de bijlage vind u mijn test , wat doe ik verkeerd

Groet HWV
 

Bijlagen

  • test.xls
    30,5 KB · Weergaven: 35
  • factuur.doc
    25,5 KB · Weergaven: 32
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan