Tidsberegning i Word

Det gør du via VBA - ved ikke præcis hvordan - men det gør andre sikkert...

Ja, VBA er sikkert svaret men hvordan?
Jeg synes ikke rigtigt at kunne finde ud af om Word dokumentet er opdelt i celler ligesom Excell?

Håber stadigt på hjælp!!

nej et word dokument er ikke opdelt i celler...

men de tidspunkter du vil foretage en beregning på, er de placeret i en tabel, eller ??

hvis ja, må det kunne lade sig gøre at lave en beregning a la den funktion man bruger i excell..

Ja hele dokumentet er opdelt via en tabel, men det hjælper mig ikke meget, da der jo ingen referencer er til de enkelte tabel-celler.

Jeg har lagt et bogmærke ind ved hvert tidspunkt, men syntes ikke at jeg kan finde det via VBA alligevel.

Jeg har prøvet uden VBA at lave en formel som trækker de 2 tidspunkter fra hinanden, men det giver et forkert resultat. F.eks. giver 21:15:00 - 22:16:01 = 3.

Hvis din tabel har et lige antal rækker og kolonner, så er cellerne nummereret ligesom i Excel, altså kolonnerne hedder abc osv, og rækkerne hedder 1,2,3 osv.

Du kan så indsætte et felt i en celle og referere til andre celler.

Men om word kan regne med tid, det er jeg ikke sikker på.

mvh P

jeg har indtil videre ikke kunnet få det til at virke i Word. Du har ret begrænsede valgmuligheder mht formatering - prøve lige lidt mere ........

Du indsætter tre Text Box i dit dokument. Herefter indsætter du følgende kode i VBA.(Bemærk da du kun giver 5 point er der ikke lavet noget med type konvertering og kontrol af det indtastede.

Private Sub TextBox1_Change()
TextBox12.Text = TextBox11.Text - TextBox1.Text
End Sub

Private Sub TextBox11_Change()
TextBox12.Text = TextBox11.Text - TextBox1.Text
End Sub

Hov undskyld (30 point). Så kommer der lige lidt mere svar. husk at
TextBox12.Locked=true

Sådan her *S*

Indsæt 3 bogmærker Tid1, Tid2, Tid3 (til resultatet) i tre forskellige celler i en tabel

Kør nedenstående makro:
Sub BeregnTid()
'
' Makro indspillet 21-05-2002 af Richardt Veje Madsen
'
Dim MyData As Object
Dim Tid1 As Date
Dim Tid2 As Date
Dim Tid3 As Date

Set MyData = New DataObject

    Selection.GoTo What:=wdGoToBookmark, Name:="bmk1"
    Selection.SelectCell
    Selection.Copy
    MyData.GetFromClipboard
    Tid1 = MyData.GetText(1)
   
    Selection.GoTo What:=wdGoToBookmark, Name:="bmk2"
    Selection.SelectCell
    Selection.Copy
    MyData.GetFromClipboard
    Tid2 = MyData.GetText(1)
   
    Tid3 = Tid1 - Tid2
   
    Selection.GoTo What:=wdGoToBookmark, Name:="bmk3"
    Selection.TypeText Text:=Tid3
   
End Sub

RVM's forslag er bedre end mit. (O:

>rvm
once again I rest my case :)

smukt arbejde...........

rvm - Jeg har desværre ikke tid til at teste det før senere i aften, men umiddelbart så giver den en Compile error: User-defined type not defined, på New DataObject.

Det gør den også herhjemme (ikke på arbejdet- hmmm)... Men jeg har løst problemet. Det er fordi DataObject'et hænger nøje sammmen med UserformObjectet, så hvis du laver samme kode på en fomular (userform), så ville den virke, men... det skal selvfølgelig også virke i et almindeligt modul, så det der skal gøres et at sætte en referance til userform-objectet, så vi kan bruge de objecter der hører dertil. Det gøres således:

Åbn dit dokument
Gå over i VBA miljøet (Alt+F11)
Vælg Tools/Referances
Sæt hak i "Microsoft Userform 2.0 Object Library"

Nu skulle det virke - det gør det hos mig *S*

rvm - Jeg kunne ikke finde Microsoft Userform 2.0 Object Library som du omtaler. Jeg har nu prøvet at aktivere alle objektfiler (.olb), men det giver samme fejlmelding.

Jeg prøver at køre dokumentet på en anden computer i morgen for at se om det hjælper.

systemet jeg bruger nu er en MS Word 2000 (9.0.2812) på en Win98SE.

Du må have et "Microsoft Userform xx Object Library" - måske bare i en anden version.

nu spørger jeg nok dumt, men hvorfor laves der ikke bare en Excel-tabel, hvor der er tilføjet de relevante formler?

Det er ikke dumt, men det er lidt sjovere at få Word til det *S*

*GG* olus at du får lav til at lave en makro for en gang skyld rvm ;-)

rvm - Jeg kan ikke finde bare noget der ligner ms userform. Er det en del af windows brugerfladen eller andetsteds fra Microsoftpakken?

b hansen - Jeg kan ikke lave det i en excel tabel i word dokumentet, da felterne ligger noget spredt rundt i dokumentet. Og PC'en hvor dokumentet skal bruges har ikke licens til Excel.

Jeg har valgt at give rvm alle point, selvom jeg desværre endnu ike har fået det til at virke endnu. Hans forslag virker rigtigt.

rvm - Tak indtil videre. Jeg arbejde lidt endnu, for at se om jeg kan få det til at virke. Ellers opretter jeg et spørgsmål mere.

"Microsoft Userform xx Object Library"  er en del af VBA miljøet i officepakken og skal findes på din computer - ellers kan du ikke arbejde med userforms, hvilket man gør hele tiden, når man programmerer til f.eks. Word.

Prøv at sende dit dokument til mig, så kan jeg lige se om der er noget galt med selv programmeringen (altså om koden f.eksk står det rigtige sted osv) *S* rvejemad@sca.csc.com