sommare bookmark in word

Ciao a tutti, sto lavorando ad un questionario creato in Word, per ogni domanda vi sono tre possibili risposte; ho usato, per ogni risposta, tre option button raggruppati con lo stesso GroupName.
A seconda della risposta che si da, ho creato questo codice che va ad inserire, tramite Bookmarks, il valore 0 o 1 in una tabella riepilogativa;

Private Sub OptionButton1_Click()
 Bookmarks("A11").Select
 Selection.TypeText Text:="1"
 Bookmarks("B11").Select
 Selection.TypeText Text:="0"
 Bookmarks("C11").Select
 Selection.TypeText Text:="0"
End Sub

Private Sub OptionButton2_Click()
 Bookmarks("B11").Select
 Selection.TypeText Text:="1"
 Bookmarks("A11").Select
 Selection.TypeText Text:="0"
 Bookmarks("C11").Select
 Selection.TypeText Text:="0"
End Sub

Private Sub OptionButton3_Click()
 Bookmarks("C11").Select
 Selection.TypeText Text:="1"
 Bookmarks("A11").Select
 Selection.TypeText Text:="0"
 Bookmarks("B11").Select
 Selection.TypeText Text:="0"
End Sub

questo per ogni singola risposta.
Lo scopo della tabella riepilogativa e quello di sommare le tre colonne per la valutazione finale.
Ora, tramite un pulsante, vorrei inserire la somma delle tre colonne in tre differenti celle, il problema è che non sono riuscito a trovare il sistema di prendere i valori dei bookmark e sommarli.
Grazie per l'aiuto

Leggi questi link:
https://answers.microsoft.com/en-us/...5-8c1e6455a47b
https://stackoverflow.com/questions/...third-text-box

Ciao Marco61
Ho visto il tuo quesito; non ci ho capito molto, ma penso che forse il problema dipende dal fatto che
quando selezioni il segnalibro all'interno del documento WORD con l'istruzione

Bookmarks("A11").Select

e poi vi inserisci il dato:

Selection.TypeText Text:="1"

per recuperare il dato scritto per inserirlo nella tabella
devi conservare il segnalibro
Io proverei così:

Selection.GoTo What:=wdGoToBookmark, Name:="A11"                                  'seleziono il segnalibro
  Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.InsertAfter "1"                                                                            'Inserisco la cifra
 ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="A11"        'Conservo il segnalibro per l'uso successivo

Saluti.

Grazie mille per le risposte, ho risolto in questo modo:
ho sostituito il codice per inserire il dato nella singola casella

 Bookmarks("A11").Select
FormFields("A11").Result = 1

 Bookmarks("B11").Select
 FormFields("B11").Result = 0

 Bookmarks("C11").Select
 FormFields("C11").Result = 0

(ho dovuto utilizzare dei moduli perchè il documento è protetto), poi per effettuare la somma delle tre colonne, in un pulsante ho inserito

Bookmarks("SBA").Select
FormFields("SBA").Result = Val(FormFields("A31").Result) + Val(FormFields("A41").Result) + Val(FormFields("A51").Result) ........

Bookmarks("SBB").Select
FormFields("SBB").Result = Val(FormFields("B31").Result) + Val(FormFields("B41").Result) + Val(FormFields("B51").Result) .......

Bookmarks("SBC").Select
FormFields("SBC").Result = Val(FormFields("C31").Result) + Val(FormFields("C41").Result) + Val(FormFields("C51").Result) ........

dove SBA, SBB e SBC sono i subtotali della colonna A, B e C, flaggando "calcola in uscita" nelle opzioni del campo testo

Perfetto.
Sono contento che tu abbia risolto il problema.