Avatar billede tsunami Nybegynder
07. februar 2007 - 15:49 Der er 2 kommentarer og
1 løsning

Sum af 2 felter

Jeg har nu prøvet igennem noget tid at plusse 2 formfields og skrevet det ud i en tredje men har åbentbart store problemer med det... FormFields.Result virker ikke... det er en macro som kører hver gang man forlader felt nummer 2

Sub addAB()
    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ReProtectionType = ActiveDocument.ProtectionType 'get the type of Protection
        ReProtectDoc = True 'set a flag so we know we need to reapply the Protection
        ActiveDocument.Unprotect ("pwd") 'unprotect the document
    End If
    Set MyRangeA = ActiveDocument.FormFields("a").Result
    Set MyRangeB = ActiveDocument.FormFields("b").Result
    ActiveDocument.FormFields("c").Result = (MyRangeA * MyRangeB)
    If ReProtectDoc = True Then
        ActiveDocument.Protect ReProtectionType 'Replace the protection Level
        ReProtectDoc = False 'reset the flag
    End If
End Sub

Nogle der har et svar på dette?
Avatar billede supertekst Ekspert
07. februar 2007 - 17:25 #1
Du behøver ikke at ændre beskyttelsen

Sub addAB()
Dim tal1, tal2
'    If ActiveDocument.ProtectionType <> wdNoProtection Then
'        ReProtectionType = ActiveDocument.ProtectionType 'get the type of Protection
'        ReProtectDoc = True 'set a flag so we know we need to reapply the Protection
'        ActiveDocument.Unprotect ("pwd") 'unprotect the document
'    End If
        tal1 = ActiveDocument.FormFields("Tekst1").Result
        tal2 = ActiveDocument.FormFields("tekst2").Result
    ActiveDocument.FormFields("Tekst3").Result = tal1 * tal2
'    If ReProtectDoc = True Then
'        ActiveDocument.Protect ReProtectionType 'Replace the protection Level
'        'ReProtectDoc = False 'reset the flag
'    End If
End Sub
Avatar billede tsunami Nybegynder
07. februar 2007 - 18:29 #2
Mange tak... grunden til jeg brugte beskyttelse var pga. jeg brugte range objektet et par gange og den ville have det sådan, men er noteret :)
Avatar billede supertekst Ekspert
07. februar 2007 - 22:56 #3
Selv tak...
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
Tag et kursus i Word og øg effektiviteten

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.

Du kan også logge ind via nedenstående tjenester