Kyselylomake:Word-VBA-Excel

Rod

Minulla on Word-tiedostossa n. sata monivalintakysymystä (tyyliin: 1=täysin eri mieltä,2=...5=täysin samaamieltä) toteutettuna Word:n checkbox-lomakkeilla. Tarkoituksenani on lähettää kyselylomake n.20 henkilölle, jotka täyttävät sen ja lähettävät minulle ko. Word-tiedoston takaisin.

Miten saan VBA:lla siirrettyä Word-tiedostoon tehdyt valinnat Excelin taulukkoon, tilastojen tekemistä varten, kätevästi? Ao. koodi toimii, jos checkboxit olisi nimetty muotoon Ki_j, jossa i kysymyksen ja j vaihtoehdon numero (esim. K2_3=2. kysymyksen 3.vaihtoehto). Checkboxeja ei kuitenkaan ole nimetty. Voiko niihin siis viitata jollain muulla tavalla, vai pitääkö vain käydä 500 checkboxia läpi ja nimetä ne yksitellen? Esimerkkiratkaisuja näin massiivisen monivalintakyselyn tekemisestä Word:n lomakkeilla?
---------------------------------------------
strDocName = "C:\kysely.doc"
Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(strDocName)
For i = 1 To 100
For j = 1 To 5
On Error GoTo kysymyksetLoppuivat
Cells(i,j) = Cells(i,j) doc.FormFields("K" & i & "_" & j).Result
Next j
Next i
kysymyksetLoppuivat:
...
----------------------------------------------

PS. Minusta riippumattomista syistä tämä kysely on pakko toteuttaa Word:llä, mutta jos sinulla on käytännön kokemusta muistakin toteutusmenetelmistä niin voit vapaasti kertoa..

1

1178

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Leksa

      Ei niitä checkboxeja (tarkoitat kyllä varmaan radiobuttoneita tässä) tarvitse olla nimettynä. Sillä jos tuo docpohja on järjestelmällisesti tehty niin sehän kertoo sinulle jo, että esimerkiksi CheckBox17.Value on neljännen kysymyksen toinen vastausvaihtoehto.

      Sitten exceliin staattinen otsikkosarake (A) jossa joka rivillä kysymyksen otsikko. Seuraavat 5 saraketta valittu vaihtoehdoille, jos esim tietyn kysymyksen kolmosvaihtoehto on valittu laitat excelissä sille riville D -sarakkeeseen ohjelmallisesti ruksin.

      toivottavasti oli apua

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Riikka: 3 euron bensa, Ruotsi: bensavero jopa alle EU-minimin

      Eipä vaan suomalainen autoilija saa kaikkien rakastamalta Riikalta sympatiaa. Ruotsissa on eri meininki, siellä diskutee
      Maailman menoa
      62
      2099
    2. Riikka runnoo: datakeskuksille tulee UUSI yritystuki

      "Suomen valtio erikseen tukee esimerkiksi kryptovaluuttaan tai aikuisviihteeseen tai muuhun keskittyviä datakeskuksia."
      Maailman menoa
      4
      1756
    3. Miten kestätte tyhmiä?

      Miten usein turhaudutte tai suututte ihmisiin, joilla on matala älykkyys? Minulla tätä tapahtuu useita kertoja viikossa
      Sinkut
      231
      1232
    4. En kerro nimeäsi nainen

      Sillä olet nyt salaisuus jota kannan sydämessäni. Tämä mitä tunnen ja kuinka sinuun vahvasti ihastuin on jo niin erikoin
      Ikävä
      71
      920
    5. Minkä arvosanan 4-10 annat Susanna Laineelle Farmi-juontajana?

      Susanna Laine vetää Farmi Suomi -realityä. Minkä arvosanan 4-10 annat Suskille juontohommista? Suosikkijuontaja teki
      Tv-sarjat
      20
      832
    6. Lahkojen uudestikasteille ei pitä mennä

      Sananl. 22:3 Mielevä näkee vaaran ja kätkeytyy, mutta yksinkertaiset käyvät kohti ja saavat vahingon.
      Kaste
      57
      826
    7. Miksi naisen pitäisi maksaa 50/50

      Vuokrasta miehelle? Eikö se ole miehelle lahja, ja aarre, jos nainen suostuu muuttamaan kanssasi asumaan?
      Ikävä
      104
      731
    8. Onko se liikaa pyydetty

      Voisitko sinä mies kerätä rohkeutta ja ottaa yhteyttä? Minä en jaksa tätä enää. On niin ikävä sinua. Minä niin haluaisin
      Ikävä
      38
      678
    9. Kaatopaikka Inhassa

      Kuka omistaa kyseisen kaatopaikan? Näkymä tielle kammottava!
      Ähtäri
      19
      666
    10. Jos joku kertoisi ihastuneensa sinuun

      mutta sinua ei voisi vähempää kiinnostaa, niin vastaisitko silti ystävällisesti?
      Sinkut
      92
      659
    Aihe