JanDeWilder
Gebruiker
- Lid geworden
- 5 jun 2008
- Berichten
- 34
Ik ben bezig met het maken van een koppeling van een excel doc. naar een word doc. (zie vorige topic) alsvast dank aan iedereen die mij hiermee reeds geholpen heeft,..
Voor mijn laatste stap zou ik nog 2 dingen willen toevoegen, maar ik weet weeral niet hoe ik er aan moet beginnen. En of dit al dan niet mogelijk is?
De macro is in VB als volgt opgebouwd:
Sub Offerte_gdw()
'
' Offerte_gdw Macro
' Koppeling van Pré-calculatie offerte in excel met document voor eindklant in Word.
'
'
Columns("B:B").Select
Selection.Rows.AutoFit
Rows("1:27").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Application.WindowState = xlMinimized
End Sub
Public Sub OpenenWord()
Dim oWord As Object
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Documents.Add "W:\test.doc"
oWord.Documents.Save
End Sub
Nu zou ik nog graag mijn excel-file automatisch laten "pasten" in het doc (op een welbepaalde lokatie. (zie eerste deel van de macro) - is dit al dan niet mogelijk?
En als laatste zou ik willen dat de kader met boodschap "opslaan als" zich opent, zodoende dat dit document steeds meteen op de juiste lokatie wordt opgeslagen. (uniek nummer per file..)
Kan iemand me hierbij wat tips geven aub?
Alvast bedankt.
Voor mijn laatste stap zou ik nog 2 dingen willen toevoegen, maar ik weet weeral niet hoe ik er aan moet beginnen. En of dit al dan niet mogelijk is?
De macro is in VB als volgt opgebouwd:
Sub Offerte_gdw()
'
' Offerte_gdw Macro
' Koppeling van Pré-calculatie offerte in excel met document voor eindklant in Word.
'
'
Columns("B:B").Select
Selection.Rows.AutoFit
Rows("1:27").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Application.WindowState = xlMinimized
End Sub
Public Sub OpenenWord()
Dim oWord As Object
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Documents.Add "W:\test.doc"
oWord.Documents.Save
End Sub
Nu zou ik nog graag mijn excel-file automatisch laten "pasten" in het doc (op een welbepaalde lokatie. (zie eerste deel van de macro) - is dit al dan niet mogelijk?
En als laatste zou ik willen dat de kader met boodschap "opslaan als" zich opent, zodoende dat dit document steeds meteen op de juiste lokatie wordt opgeslagen. (uniek nummer per file..)
Kan iemand me hierbij wat tips geven aub?
Alvast bedankt.