Met Excel een Word doc maken

[Noord2011]

Het is mij gelukt om een automatisch word doc. te maken via Excel. Maar nu wil ik i.p.v. het gekopieerde gegeven in rij verschijnen dat ze onder elkaar komen te staan.

Als rood gekleurd komen ze te staan vanuit Excel en ik wil ze zoals geel gekleurd zien staan. (zie word bijlage)

En als mogelijk is ten laatste een streep er onder komen!

Alvast bedankt

 

[snb]

Dat kan simpeler:

Private Sub CommandButton1_Click()
  With Sheet1
    with .UsedRange
       .Rows(.Rows.Count).Copy Sheet1.Cells(.Rows.Count + 1, 1)
    end with
    .[M2] = [M2] + 1
    With .UsedRange
      .Cells(.Rows.Count, 5) = [sheet1!M2]
      c0=join(worksheetfunction.transpose(.Rows(.Rows.Count)),vbcr)
    End With
  End With
  With GetObject(, "Word.application").documents.Add
     .paragraphs(1).Range=c0
     .SaveAs "C:\test.doc"
     .Close 0
  End With
End Sub

 

[Noord2011]

Ja, dat werkt, maar het bedoeling is om al het gegeven in de rij in Excel (bijv rij 7 ) onder elkaar in het word doc komen te staan.

 

[huijb]

Ben je er al uit in welke vraag je verder wil gaan http://www.helpmij.nl/forum/showthread.php?t=423081 dan kan ik er nl. een sluiten.

 

[snb]

Vorige suggestie aangepast.

 

[Noord2011]

Het ij mij gelukt om de gekopieerde cellen in een tabel vorm te krijgen in word document.
Verder heb ik nog twee probleempje:

1)na het word document aanmaken blijft het kopie range in Excel actief. Hoe kan ik deze resetten?

2) in er mogelijk op onder het tabel in word een streep er onder te zetten , van link naar rechts

Mv/Gr

 

[Warme bakkertje]

Application.CutCopyMode = False

Mvg

Rudi

 

[Noord2011]

Ja mooi, maar waar moet in het code zetten.
Ik heb het op een paar locatie geprobeerd maar het los het probleem niet op

Het gestippelde ring rondom het range P1:Q4 blijf actief in Excel.

Mv/Gr

 

[Warme bakkertje]

Juist boven End sub

Mvg

Rudi

 

[Noord2011]

Het werkt prima zoals ik wil, maar nu heb ik wat moeite om de opslaan locatie te wijzigen.
Waar (“mydocuments”) staat heb ik gewijzigd in C:\projectbeheer maar nu geef een foutmelding.

Fout 5156 tijdens uitvoering

Wie kan me verder helpen op het opslaan lokactie te wijzigen (bijv. C:\projectbeheer)

Mv/Gr

 

[Warme bakkertje]

sPath = "C:\projectbeheer" & "\"

Mvg

Rudi

 

[Noord2011]

Het is mij eindelijk gelukt :thumb:

Bedankt voor het hulp

Mv/Gr