Office: Fragebogen mit verlinkten Feldern (???)

Hallo zusammen,

ich muss für mein Praktikum einen Fragebogenerstellen, der dann per Email verschickt wird. In Word hab ich das bis jetzt ganz gut hinbekommen und er ist soweit fertig. Jetzt würde mich interessieren ob es möglich ist, und wenn ja wie, die einzelnen Felder irgendwie miteinander zu verlinken. Z. B. Wird schon am Anfang eine Frage gestellt, die mit "Ja" oder "Nein" (Dropdownfeld) beantwortet werden kann und je nachdem wie die Antwort ist, müssen dann unterschiedliche weitere Fragen beantwortet werden. Geht es, dass bis zur Ja/Nein-Antwort die anderen Fragen und Eingabefelder inaktiv u. nur in grauer Schrift sind, solange bis die Antwort gegeben wird und dann die entsprechende weitere Frage aktiv und in schwarzer Schrift ausgegeben wird und beantwortet werden kann?

Danke schon mal,
viele Grüße
Sandra

 

Office 2003

 

Hallo,

das geht nur mit Programmierung... Und das ist dann ziemlich heftig (wahnsinnig viel Aufwand), ergo nicht über kostenlose Hilfe zu realisieren...

 

Hallo,

aber prinzipiell ist es in Word möglich oder sollte man das eher in so Programmierprogrammen wie BlueJ, JBuilder, ... machen?

Grüße

 

Hallo,

da ich die von Dir angegebenen Programme nicht kenne, kann ich dazu nichts sagen. Aus meiner Sicht würde sich natürlich InfoPath am besten eignen, da das ein reines Formular-Programm ist (Bestandteil von Office2003 Prof.)... Wobei hier aber die Empfänger des Formulars auch InfoPath auf dem Rechner haben müssen.

Eine unabhängige Plattform wäre sicherlich AdobeAcrobat, welches sich auch (mit viel Aufwand) mittels JavaScript programmieren läßt...

 

so könnte es aufgebaut sein: Du musst ein Makro beim Beenden des Ja-Nein Dropdownfeldes in den Eigenschaften - Makro ausführen - beim Beenden einfügen.

Code:

Sub Dropdown()
If ActiveDocument.FormFields("Dropdown1").Result = "ja" Then
ActiveDocument.FormFields("Text1").Enabled = True
ActiveDocument.FormFields("Text2").Enabled = True
Else
ActiveDocument.FormFields("Text1").Enabled = False
ActiveDocument.FormFields("Text2").Enabled = False
End If
End Sub