defaultdir i en wdDialogFileSaveAs i WordVBA

Se

http://www.eksperten.dk/spm/42995

Mvh
Jesper Naur

Hejsa Jesper
Vi har prøvet din kode, og den virker, så du får dine point igen. Men en tilføjelse der måske er lidt sjov, bare til oplysning.
Hvis biblioteket først sættes, uden at gøre det i et \"with\" statement, og derefter show virker det ikke.

Først ændrede jeg biblioteket til det det skulle være.
Ved at aflæse Curdir, kunne jeg dokumenterer at det var korrekt, men ved at sætte
with Dialogs(wdDialogFilesSaveAs)
.name = CurDir
.show
end with
det virker ikke
Men

dim TxtPath as string
TxtPath = CurDir
with Dialogs(wdDialogFilesSaveAs)
.name = TxtPath
.show
end with
Virker!!!
Tak og kan i have det rigtig godt.

PS: Er der mulighed for at vælge hvordan tekst skal stå i en tekstboks, på det lodrette plan, altså skal det stå fra toppen af boksen(vandret) og nedefter, Eller fra bunden(vandret og opefter)
Det er en facilitet i excel celler, men er den også i tekstbokse til word???