Makro za shranjevanje dokumenta v Wordu

Pomoč pri izdelavi makrov
Odgovori
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Makro za shranjevanje dokumenta v Wordu

Odgovor Napisal/-a sonofagun »

Pozdravljeni.

Prosil bi za pomoč, pri naslednjem problemu: v Wordu želim napisati makro, ki bi mi ponudil možnost 'Shrani kot', kjer bi potem lahko izbral mesto in ime nove datoteke. Prebiral sem že zapise na tem forumu (našel sem podobne 'težave' v Excelu) in po ostalih spletnih straneh, ampak nisem prišel do zadovoljive rešitve.

Še najbližje sem bil s to kodo, ki pa samo pokaže pojavno okno, kjer res izbereš mesto in ime, vendar datoteke dejansko ne shraniš:

Koda: Izberi vse

Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
End Sub
Kateri zapis bi moral dodat, da bi shranil datoteko?

Hvala za pomoč :-)

Lep dan

Gregor
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za shranjevanje dokumenta v Wordu

Odgovor Napisal/-a admin »

Pozdravljeni,

In kje v vaši kodi naj bi se datoteka posnela? Saj niste nikjer zahtevali naj se datoteka posname. Vi ste samo odprli in prikazali novo pogovorno okno.

Seveda bi lahko nadaljeval tudi z vašo kodo, vendar pa ima izbrano okno (FileDialog) možnost izbire več datotek..., kar pomeni, da je kar nekaj preverjanja kaj je uporabnik sploh vnesel oz. kaj želi. Lažje je s preprostejšo in povsem samoevidentno kodo:

Koda: Izberi vse

Sub ShraniKot()
  With Application.Dialogs(wdDialogFileSaveAs)
    .Format = wdFormatDocument
    .Show
  End With
End Sub
lp,
Matjaž Prtenjak
Administrator
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: Makro za shranjevanje dokumenta v Wordu

Odgovor Napisal/-a sonofagun »

Odlično, točno to sem potreboval :-)

Še enkrat več hvala.

Lp,

Gregor
Odgovori