Macro voor opslaan

[marcow]

Hallo,

Elke dag converteer ik een groot aantal facturen (deze worden door een webapplicatie gemaakt) en open deze in Word.
Nu wil ik een macro maken om het opslaan te vergemakkelijken, alleen lukt dit niet.

Het document opent zich met de volgende bestandsnaam:
invoice.php?oID=1163.htm

Nu wil ik deze opslaan als:
E:\facturen\f1163.doc

Heeft iemand een idee hoe ik dit voor elkaar kan krijgen?

Alvast bedankt,

Marco

 

[joost verdaasdo]

Hai Marco,

Het proces wordt mij niet helemaal duidelijk?

Maak jij vanuit jou webaplicatie een Word document?

Zo ja met welke code?

Gebruik je een word sjabloon?

Iets meer gegevens aub want dit kan of heel makkelijk zijn of heel moeilijk...:thumb:

 

[marcow]

Hallo Joost,

Mijn webapplicatie maakt een factuur als webpagina. (php).
Wanneer ik deze pagina op mijn beeld (IE) heb, druk ik in de werkbalk op de knop: "openen in Word". Dan wordt het document in Word geopend, zodat ik het kan bewerken.

Vanuit word sla ik deze documenten op.

Voor de rest gebruik ik geen sjablonen.

Ik hoop dat je nu genoeg info hebt.

Groeten,

Marco

 

[joost verdaasdo]

Hai Marco,

Nee ik heb niet genoeg info..zou niet waar ik moet beginnen met de code.

Je opent hem in Word zeg je en je maakt hem in php...

Dus nu mijn vraag heeft dat document een path waar hij staat?

Dat heb ik nodig om het document te kunnen benaderen vanuit Word (Als het een bestaand document is..extensie maakt denk ik niet uit)

Als je dat hebt valt er wel een macro te verzinnen waarmee we opweg kunnen.

See Yah! :thumb:

 

[marcow]

Hallo Joost,

Er zijn twee manieren om de webpagina in Word te krijgen:
- In Internet Explorer op de knop: "open in Word" klikken. Op deze manier ontbreekt het pad.
- In Word: bestand openen. Hier de url van de webpagina intikken.

http://www.bike4travel.nl/admin/invoice.php?oID=1170
(is beveiligd met wachtwoord).

Ik heb hier een (html) copietje gezet van de hierboven genoemde webpagina, maar dan zonder de wachtwoord beveiliging.
http://www.bike4travel.nl/test/factuurtest.htm

Groeten,

Marco

 

[joost verdaasdo]

Hai,

Ah het is wel mogelijk om direct vanuit een URL te openen maar het zal langzaam gaan omdat de gehele pagina gedownload moet worden...

Maar zo kan het:

Sub OpenHTML()
Dim oDoc As Word.Document

Set oDoc = Application.Documents.Open(FileName:="http://www.bike4travel.nl/test/factuurtest.htm")
With oDoc
    .PageSetup.Orientation = wdOrientLandscape
    .SaveAs ThisDocument.Path & "\Test.doc"
End With

Set oDoc = Nothing

End Sub

Succes! :thumb:

 

[marcow]

Hallo Joost,

Bedankt we zijn op de goede weg.

:thumb:

Nu zouden er nog wat variabelen in moeten.
De bestanden die geopend moeten worden hebben allemaal een nummer op het einde:

http://www.bike4travel.nl/admin/invoice.php?oID=1170
http://www.bike4travel.nl/admin/invoice.php?oID=1177
http://www.bike4travel.nl/admin/invoice.php?oID=1178

Kan de macro ook vragen naar het nummer?
Zoiets van: "welke bestanden openen?", en
dan een nummer opgeven: "1170" .

Ze moeten dan opgeslagen worden als: E:\facturen\f1170.doc, enz

Volgens mij eindigen hier de macro mogelijkheden, en begint visual basic.

Groeten,

Marco

 

[joost verdaasdo]

Hai Marco,

Graag gedaan.

Zoiets?:

Sub OpenHTML()
Dim oDoc As Word.Document
Dim iCnt  As Integer
 
 iCnt = Val(InputBox("welke bestanden openen?", "Save Word document", 1))
 If iCnt >= 1 Then
 
    Set oDoc = Application.Documents.Open _
        (FileName:="http://www.bike4travel.nl/admin/invoice.php?oID=" & CStr(iCnt) & ".htm")
    
    With oDoc
        .PageSetup.Orientation = wdOrientLandscape
        .SaveAs "E:\facturen\f" & CStr(iCnt) & ".doc"
    End With

    Set oDoc = Nothing
 End If
End Sub

En Macro's (VBA) kunnen ontzettend veel! (ben nog maar weinig grenzen tegengekomen)

Succes! :thumb:

 

[marcow]

Werkt perfect! :thumb: Bedankt Joost.

Mooi spul dat VB.
Waar moet je beginnen om dit onder de knie te krijgen?

Groeten,

Marco

 

[joost verdaasdo]

Hai,

Graag gedaan..

Enne VB is het niet maar VBA.

Tja beginnen....altijd lastig om een startpunt aan te geven.

Van welke Office applicatie wil je de taal beheersen?

Ik ben begonnen met een Office cursusje daarna wat boeken toen een instructeursopleiding..etc...

De meeste vooruitgang boek ik via deze methode. Het oplossen van andermans vragen. Conclusie de beste leerschool is gewoon heel veel oefenen.

Voor Word kan ik het boek van Steven Roman aanraden: Writing Word Macros

http://www.amazon.com/exec/obidos/tg/detail/-/1565927257/102-6858098-0448909?v=glance

Succes! :thumb:

 

[marcow]

Nu wil ik hetzelfde doen voor een andere website.
Ik heb de code gecopieerd en het url gedeelte veranderd.
Helaas krijg ik nu deze foutmelding:

Het enige verschil is dat deze website een factuurnummer gebruikt van 5 cijfers (bv. 10032)

Wat doe ik fout?

Groeten,

Marco

 

[marcow]

Nu heb ik mijn website verhuisd naar een andere server, en heb ik hetzelfde probleem als hierboven staat.
Maar nu met de website die het eerst wel deed.

Wat is er gebeurd?



Iemand een tip?

 

[marcow]

Ik heb het nog steeds niet kunnen vinden.

Iemand een tip waar ik moet zoeken?

De foutopsporing komt met dit:

Set oDoc = Application.Documents.Open _
(FileName:="http://www.bike4travel.nl/admin/invoice.php?oID=" & CStr(iCnt) & ".htm")


Wie of wie?

 

[marcow]

Zit nog steeds te puzzelen.:shocked:

Marco