MS Word-hjälp sökes

[Lurch]

Jag ska stoppa in ett datum automatiskt i en Word-mall (dot), men det ska inte vara dagens datum utan datumet två veckor framåt. Hur gör man?

 

[Nemesis]

Jag ska stoppa in ett datum automatiskt i en Word-mall (dot), men det ska inte vara dagens datum utan datumet två veckor framåt. Hur gör man?

Du kan inte automatisk ändra en mall (.dot)

Ta en kopia på mallen.
Ändra till .doc
Gör dina ändringar.
Ändra tillbaka till .dot
Ersätt den gamla mallen.

Hoppas jag inte är ute på en bärtur i skogen nu

 

[imaster]

Det finns ett skript du kan sätta in som tar dagens datum - annars är det väl bara att skriva för hand?

I Word 2003 ligger det under Infoga --> Date and Time (antar att det står Datum och Tid på svenska men kan inte påstå att jag vet... ), hur det ser ut i senare Word vet jag inte, det är jag inte utbildad på...

 

[Lurch]

Du kan inte automatisk ändra en mall (.dot)

Ta en kopia på mallen.
Ändra till .doc
Gör dina ändringar.
Ändra tillbaka till .dot
Ersätt den gamla mallen.

Hoppas jag inte är ute på en bärtur i skogen nu

Du är nog ute i skogen. Jag håller på att skapa en mall, det är den ändringen som du nämner som jag inte vet hur man gör.

När man öppnar mallen så bildas ett doc med flera Fill-in-funktioner för tex adress, dagens datum med mera. Jag vill att det på ett ställe ska skapas ett datum som är två veckor framåt i tiden. Så här:

"Du måste svara på detta brev senast .......". Man ska alltså slippa kolla i en kalender och fylla i det manuellt.

Att få in dagens datum uppe i sidhuvudet är inga problem, det finns i Infoga > Fält > Date. Men jag vet inte hur man infogar ett fält med ett datum som är "idag plus två veckor".

 

[korvgubbe]

Att få in dagens datum uppe i sidhuvudet är inga problem, det finns i Infoga > Fält > Date. Men jag vet inte hur man infogar ett fält med ett datum som är "idag plus två veckor".

Det verkar tyvär inte finnas någon snabbfunktion för det där...
http://www.gmayor.com/insert_a_date_other_than_today.htm

 

[Nemesis]

Du är nog ute i skogen. Jag håller på att skapa en mall, det är den ändringen som du nämner som jag inte vet hur man gör.

När man öppnar mallen så bildas ett doc med flera Fill-in-funktioner för tex adress, dagens datum med mera. Jag vill att det på ett ställe ska skapas ett datum som är två veckor framåt i tiden. Så här:

"Du måste svara på detta brev senast .......". Man ska alltså slippa kolla i en kalender och fylla i det manuellt.

Att få in dagens datum uppe i sidhuvudet är inga problem, det finns i Infoga > Fält > Date. Men jag vet inte hur man infogar ett fält med ett datum som är "idag plus två veckor".

Kan du göra om dokumentet i excel?

Quick and dirty som fungerar i excel 2007

Cell1= datum, Cell2= sum=cell1+14
Tyvärr så plusar den bara på 14 dagar och tar ej hänsyn till om det är lördag el. söndag.

 

[ice13]

http://www.addbalance.com/word/datefields2.htm

Har dock inte provat själv.

Here's a head-spinner! Dizzy! This little head-spinner emoticon borrowed from Woody's Word Lounge. Click to go there. What follows is a field that gives you the date two weeks from the day a document is created, in regular written English format:

Creation date: July 9, 2001 - desired field result = July 23, 2001
Creation date: July 23, 2001 - desired field result = August 6, 2001
Creation date: December 20, 2001 - desired field result = January 3, 2002
Creation date: February 27, 2003 - desired field result = March 12, 2003
Creation date: February 27, 2004 - desired field date result = March 11, 2004

{ QUOTE "{ SET " Delay" "14" }
{ SET "DaysInMonth" { IF { CreateDate \@ "MM" } <> 2
{ = ROUND(30.575*{ CreateDate \@ "MM" },0)-
ROUND(30.575*{ = { CreateDate \@ "MM" } -1 },0) }
{ IF { = MOD( { CreateDate \@"yy" } , 4 ) } > 0 "28" "29" } } }
{ SET "NextMonth" { IF { CreateDate \@ "MM" } = 12 "1/97"
"{ = { CreateDate \@ "MM" } + 1 }/97 } }
{ IF { = { REF "Delay" } + { CreateDate \@ "dd" } } <= { REF"DaysInMonth" }
{ CreateDate \@ "MMMM { = { REF "Delay" } + { CreateDate \@ "dd" } }, yyyy"}{ QUOTE { NextMonth \@ "MMMM" }
{ = { REF "Delay" } + { CreateDate \@ "dd" } - { REF"DaysInMonth" } },
{ IF { CreateDate \@ "MM" } <> 12 { CreateDate \@ "yyyy" }
{ CreateDate \@ "{ = 1 + { CreateDate \@ "yyyy" } \# "xxxx" }" } } } }" }

 

[Lurch]

http://www.addbalance.com/word/datefields2.htm

Har dock inte provat själv.

Hm, jag hajar inte riktigt hur jag ska infoga detta...

 

[ice13]

Hehe, skall jag vara ärlig så har jag inte riktigt koll själv.
Håller på att leka lite och försöker få till det, men det vill sig inte riktigt.
Förhoppningsvis så har min gamla kollega, även Office-utbildare svar på frågan under morgondagen.

 

[Valen]

Gjorde ett litet snabbtest själv som verkar funka. Gör så här:
1. Lägg till ett bokmärke och kalla det för temp där du vill ha datumet.
2. Gå in i vba-läge (vänster Alt+F11)
3. Välj ThisDocument till vänster i ditt dot-projekt.
4. Ta fram Document under vänstra rullgradinen och välj New under högra rullgardinen. Eller kopiera in metoden nedan rakt av.

Private Sub Document_New()
Dim BMToReplace As Range
Set BMToReplace = ActiveDocument.Bookmarks("temp").Range.Paragraphs(1).Range
BMToReplace.Text = DateAdd("d", 14, Date)
End Sub

 

[Nemesis]

Har du fått det att fungera?

...

 

[Lurch]

Gjorde ett litet snabbtest själv som verkar funka. Gör så här:
1. Lägg till ett bokmärke och kalla det för temp där du vill ha datumet.
2. Gå in i vba-läge (vänster Alt+F11)
3. Välj ThisDocument till vänster i ditt dot-projekt.
4. Ta fram Document under vänstra rullgradinen och välj New under högra rullgardinen. Eller kopiera in metoden nedan rakt av.

Private Sub Document_New()
Dim BMToReplace As Range
Set BMToReplace = ActiveDocument.Bookmarks("temp").Range.Paragraphs(1).Range
BMToReplace.Text = DateAdd("d", 14, Date)
End Sub

Det verkar funka delvis! Datumet ska in mitt i en text och om jag gör enligt din beskrivning så försvinner hela stycket och bara datumet visas?

 

[Valen]

Det verkar funka delvis! Datumet ska in mitt i en text och om jag gör enligt din beskrivning så försvinner hela stycket och bara datumet visas?

Jag var lite väl snabb där, ändra till nedan metod så ska det nog funka:

Private Sub Document_New()
Dim BMToReplace As Range
Set BMToReplace = ActiveDocument.Bookmarks("temp").Range
BMToReplace.Text = DateAdd("d", 14, Date)
End Sub

 

[Lurch]

Jag var lite väl snabb där, ändra till nedan metod så ska det nog funka:

Private Sub Document_New()
Dim BMToReplace As Range
Set BMToReplace = ActiveDocument.Bookmarks("temp").Range
BMToReplace.Text = DateAdd("d", 14, Date)
End Sub

FUNKAR! Jag tackar och bockar ödmjukast!

 

[Valen]

FUNKAR! Jag tackar och bockar ödmjukast!

Bra. Behöver du ändra datumet till t.ex. en vecka fram i tiden ändrar du bara 14 till 7 i DateAdd. Men det kanske du redan fattat.

 

[Lurch]

Bra. Behöver du ändra datumet till t.ex. en vecka fram i tiden ändrar du bara 14 till 7 i DateAdd. Men det kanske du redan fattat.

Jarå, det är jag med på!

En liknande fundering: Kan man få in flera "fill-in-fält-popups" i samma popup? Alltså, i min mall är det flera fill-in-fält och det vore ju smidigt om alla saker som ska in i dessa fält kunde fyllas i i samma pop-up-fönster i stället för ett till varje fält.

 

[Valen]

Jarå, det är jag med på!

En liknande fundering: Kan man få in flera "fill-in-fält-popups" i samma popup? Alltså, i min mall är det flera fill-in-fält och det vore ju smidigt om alla saker som ska in i dessa fält kunde fyllas i i samma pop-up-fönster i stället för ett till varje fält.

Kan du exemplifiera med en skärmdump vad du menar?

 

[Lurch]

Kan du exemplifiera med en skärmdump vad du menar?

Istället för ca tio såna som ena exemplet (Företagsnamn i en, orgnummer i nästa, osv) så kanske man alltså kan få bara en med tio fält i, som man sedan "tabbar igenom" istället?

 

[Valen]

Istället för ca tio såna som ena exemplet (Företagsnamn i en, orgnummer i nästa, osv) så kanske man alltså kan få bara en med tio fält i, som man sedan "tabbar igenom" istället?

Ok, nu fattar jag. Japp, fullt möjligt (om man kan koda vill säga). Du måste skapa upp ett userform (vilket det ser ut som du redan gjort) och tilldela värden från varje textbox till aktuell position i mallen. Vill du ha exempelkod?

 

[Lurch]

Ok, nu fattar jag. Japp, fullt möjligt (om man kan koda vill säga). Du måste skapa upp ett userform (vilket det ser ut som du redan gjort) och tilldela värden från varje textbox till aktuell position i mallen. Vill du ha exempelkod?

Jag har inte gjort det mer avancerade exemplet tyvärr, men det är nåt sånt jag vill ha. Exempelkod skulle göra min dag...