Geachte helpers van het forum,
Momenteel probeer ik vanuit excel een word bestand te openen en diverse waardes en text weg te laten schrijven naar het textbestand in word. Hierover heb ik het een en het ander kunnen vinden op internet. Dit doe ik momenteel dmv
Ik loop momenteel eigenlijk tegen een paar kleine dingen op waar ik een kleine duw in de goede richting in hoop te krijgen, en dat is:
1. de regels in het groen, de datum, ik laat als eerste de datum van vandaag wegschrijven naar het excelblad ( zie onder knop in rood ). Deze wil ik tonen in het word bestand, maar dan de lange uitgeschreven versie. Ik laat eerst een lange spatie neerzetten in het bestand en dan de datum omdat ik niet zou weten hoe ik deze rechts zou moeten uitlijnen of hoe ik dus de lange uitgeschreven datum kan laten noteren.
2. de laatste regel van het wegschrijven in het groen, hier wil ik tekst gaan schrijven, een standaard opmaak van tekst gecombineerd met waardes uit het eerste blad. B.V.
"Wij hebben het genoegen u te offereren inzage" & ( Sheets("Menu").Range("C10")) & "te" & ( Sheets("Menu").Range("C13")) & (",") & ("betreffende de uitvoering van onze werkzaamheden zoals wij deze met u hebben besproken c.q. conform uw aanvraag:")
Oftewel het lukt me niet om dingen te combineren of gewoon normaal tekst weg te laten schrijven, alleen vanuit een range van een cell.
Hopelijk is de uitleg een beetje duidelijk en zijn er beste helpers die mij een duw de goede richting op kunnen geven.
Alvast hartelijk bedankt voor alle reacties,
Mvg,
Momenteel probeer ik vanuit excel een word bestand te openen en diverse waardes en text weg te laten schrijven naar het textbestand in word. Hierover heb ik het een en het ander kunnen vinden op internet. Dit doe ik momenteel dmv
Code:
Private Sub CommandButton17_Click() ''Maak schriftelijke offerte
[COLOR="#FF0000"]Sheets("Menu").Range("D15").Value = Me.TextBox14.Value[/COLOR]
Dim i As Integer
Dim oApp As Object
Dim oDoc As Object
Dim cFileName As String
'Nieuwe "instance" van Word openen
Set oApp = CreateObject("Word.application")
'Offerte openen en onderbrengen in een object.
oApp.Documents.Open Filename:=ThisWorkbook.Path & "\Offerte schriftelijk blank.docx", ReadOnly:=True
Set oDoc = oApp.Documents("Offerte schriftelijk blank.docx")
With oDoc
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C18").Value ''Factuurnaam
.Content.InsertParagraphAfter
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C19").Value ''Factuur t.a.v.
.Content.InsertParagraphAfter
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C20").Value ''Factuuradres
.Content.InsertParagraphAfter
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C21").Value ''Factuurpostcode
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("A22").Value ''spatie
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C22").Value ''Factuurstad
.Content.InsertParagraphAfter
[COLOR="#00FF00"] ''.Content.InsertAfter ThisWorkbook.Sheets("Offerte").Range("B18").Value ''Leeg
''.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("D15").Value ''Datum[/COLOR]
.Content.InsertParagraphAfter
.Content.InsertParagraphAfter
.Content.InsertAfter ThisWorkbook.Sheets("Offerte").Range("B19").Value ''Text offertenummer
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("A22").Value ''Leeg
.Content.InsertAfter ThisWorkbook.Sheets("Menu").Range("C4").Value ''Offerteummer
.Content.InsertParagraphAfter
[COLOR="#00FF00"]''.Content.InsertTypeText Text:="Wij hebben het genoegen u te offereren inzage" & ( zie uitleg )[/COLOR]
End With
'Saven als Word bestand.
cFileName = ThisWorkbook.Sheets(1).Range("C4").Value
oDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & cFileName, FileFormat:=0
'Offerte sluiten zonder saven.
oDoc.Close SaveChanges:=0 'wdDoNotSaveChanges
Set oDoc = Nothing
Set oApp = Nothing
MsgBox "Offerte opgeslagen als " & cFileName
End Sub
Ik loop momenteel eigenlijk tegen een paar kleine dingen op waar ik een kleine duw in de goede richting in hoop te krijgen, en dat is:
1. de regels in het groen, de datum, ik laat als eerste de datum van vandaag wegschrijven naar het excelblad ( zie onder knop in rood ). Deze wil ik tonen in het word bestand, maar dan de lange uitgeschreven versie. Ik laat eerst een lange spatie neerzetten in het bestand en dan de datum omdat ik niet zou weten hoe ik deze rechts zou moeten uitlijnen of hoe ik dus de lange uitgeschreven datum kan laten noteren.
2. de laatste regel van het wegschrijven in het groen, hier wil ik tekst gaan schrijven, een standaard opmaak van tekst gecombineerd met waardes uit het eerste blad. B.V.
"Wij hebben het genoegen u te offereren inzage" & ( Sheets("Menu").Range("C10")) & "te" & ( Sheets("Menu").Range("C13")) & (",") & ("betreffende de uitvoering van onze werkzaamheden zoals wij deze met u hebben besproken c.q. conform uw aanvraag:")
Oftewel het lukt me niet om dingen te combineren of gewoon normaal tekst weg te laten schrijven, alleen vanuit een range van een cell.
Hopelijk is de uitleg een beetje duidelijk en zijn er beste helpers die mij een duw de goede richting op kunnen geven.
Alvast hartelijk bedankt voor alle reacties,
Mvg,
Laatst bewerkt door een moderator: