Søg
Avatar billede wilweb Nybegynder
19. september 2002 - 13:18 Der er 2 kommentarer og
1 løsning

læg 2 felter samme i word

Forsat fra http://www.eksperten.dk/spm/259065

Nu troede jeg lige at jeg havde fundet den røde tråd, men nej!
Dette her virker, når jeg vil lægge 2 felter sammen.

Sub RegnMedFormularfelter()
With ActiveDocument
    .FormFields("sum1").Result = .FormFields("be1").Result + .FormFields("be2").Result * 1
End With
End Sub

men kan I forklare mig, hvorfor man skal gange med 1, og hvordan lægger men mere end 2 felter sammen?

Jeg troede at man bare kunne lægge felter sammen som man havde brug for Fx.
.FormFields("sum1").Result = .FormFields("be1").Result + .FormFields("be2").Result + .FormFields("be3").Result* 1

Er det her måden at gange på?
.FormFields("sum1").Result = .FormFields("be1").Result * .FormFields("be2").Result *1

Er det her måden at dividere på?
.FormFields("sum1").Result = .FormFields("be1").Result / .FormFields("be2").Result *1

PFT.
Gizom
Avatar billede rvm Nybegynder
19. september 2002 - 15:58 #1
Problemet med at du skal gange med 1 er at Word ellers opfatter indholdet i formularfelterne som tekst - også selvom du sætter type til Tal - hmmm

Her er en anden måde at gøre det på, hvor jeg opretter nogle variable, hvor jeg allerede bestemmer, hvad datatypen er. Dette tvinger også Word til at opfatte indholdet som tal -altså hvis det er tal - ellers vil det fejle:

Sub RegnMedFormularfelter()
Dim be1 As Integer
Dim be2 As Integer
Dim be3 As Integer

With ActiveDocument
    be1 = .FormFields("be1").Result
    be2 = .FormFields("be2").Result
    be3 = .FormFields("be3").Result
   
    .FormFields("sum1").Result = be1 + be2 + be3
End With

End Sub
Avatar billede wilweb Nybegynder
19. september 2002 - 19:08 #2
og så samme måde når man ganger og dividerer
Avatar billede rvm Nybegynder
19. september 2002 - 20:50 #3
Nemlig *S*
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Word kurser
Tag et kursus i Word og øg effektiviteten
Se alle Word kurser

Flere spørgsmål fra Word kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kan man slette skrifter : Word : Windows 10 ? Af Ikke-ekspert i Word 10 28/09/202519:16 29/09/202511:57
WordMat Af jgormm i Word 3 21/09/202510:53 22/09/202512:57
alfabetisk rækkefølge i word på ipad Af PAN i Word 1 02/06/202514:13 02/06/202522:24
Word VBA: Check engelsk gramma og ret fejl Af Dan Elgaard i Word 3 30/04/202509:34 02/05/202509:13
Fed skrift Af camsti i Word 3 07/04/202518:36 07/04/202522:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:06 Hjemmeside der virker både på mobil og computer Af Strawberry i PHP
I går 17:08 Problemer med borger.dk Af valby i Windows
I går 14:19 Fejl Af buls i Windows
I går 13:44 Adgang til Google konto via Ipad Af cyperbent i E-mail programmer
24/0109:50 Mobilpay svindel Af nu_igen i Andre onlineløsninger
White papers
Flere white papers »