Word: indsæt (dags dato + 6)

ændre datoen i windows uret.

haha

Hvad er det så du vil ?

Meningen er at datoen skal indsættes automatisk så medarbejderen ikke selv skal regne 6 dage frem og skrive datoen for at spare tid og reducere risikoen fejl. At sætte uret frem og tilbage vil nok have den stik modsatte virkning

Det tror jeg du får problemer med at gøre sikkert.

Nej, selvfølgelig er der en løsning på det problem.
Jeg selv kan desværre ikke hjælpe, men eet af alle de kloge hoveder, som deltager, har sikkert en idé.

Hej delbing

Dette kan kun gøres via en makro og et bogmærke

Sub Autonew()

svar = Date + 6
ActiveDocument.Bookmarks(\"Bogmærkenavn\").Range.Text = svar

End Sub

Mvh

Richardt

Jeg bruger pt. et indsat excel object med et felt der siger (efter fri hukommelse):

= IDAG() + 6 - HVIS(UGEDAG(IDAG())>2;0;UGEDAG(IDAG()))

Det giver datoen på den 4. hverdag fra i dag.

Dit svar ser rigtigt ud, men jeg skal også bruge en funktion som returnerer en datos ugedag.

Hvornår kaldes Autonew()?

Hej delbing

Det er jo faktisk et nyt spørgsmål :-)

AutoNew bruges til skabeloner og kaldes, når der oprettes et nyt dokument (Dokument 1) på baggrund af en skabelon.

Mvh

Richardt

Hej delbing

Værsgo *S* Her er en funktion, der returnerer en datos ugedag.


Sub Autonew()

\'Opretter Excel opbjektet xlApp, så vi kan bruge Excels Weekday funktion
Dim xlApp As Object
Set xlApp = CreateObject(\"Excel.Application\")

\' Det var det med de 6 dage
svar = Date + 6

\'Funktionen returnerer et tal, som står for en ugedag
MyWeekDay = xlApp.Weekday(svar)

Select Case MyWeekDay
    Case 1
    Ugedag = \"Søndag\"
    Case 2
    Ugedag = \"Mandag\"
    Case 3
    Ugedag = \"Tirsdag\"
    Case 4
    Ugedag = \"Onsdag\"
    Case 5
    Ugedag = \"Torsdag\"
    Case 6
    Ugedag = \"Fredag\"
    Case 7
    Ugedag = \"Lørdag\"
End Select

MsgBox Ugedag

\'Lukker xlapp igen
xlApp.Quit
Set xlApp = Nothing

End Sub

Når du har kopieret denne makro ind i Word\'s makromiljø, fungerer den ikke umiddelbart. Du skal først sætte en referance til Excel, Dette gøres på denne måde:

Vælg Tools/References på menulinien.
I dialogboksen sætter du kryds i \"Microsoft Excel 9.0 Object Libery\" (om det er version9.0 eller 8.0 er ikke så vigtigt)

Nu skulle det hele virke *S*

Mvh

Richardt

Hej delbing

Løste mine svar dine problmer ?

Mvh

Richardt

Ja, det gjorde det - been busy.
Jeg kunne dog ikke få

ActiveDocument.Bookmarks(\"Bogmærkenavn\").Range.Text = svar

til at indsætte variablens værdi i tekstfeltet - jeg brugte i stedet noget WW7_WordBasic, som havde en Goto og FormfieldOptions til det (eller noget deromkring, jeg er ikke på arbejde)