07. februar 2007 - 15:49Der 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
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
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.