|
Juhu!!!
Habe per Zufall eine andere Lösung im World Wide Web gefunden, die für meine (bin aber sicher, dass man das auch für alles mögliche zweckentfremden könnte) Zwecke absolut perfekt ist. Und falls jemand ein ähnliches Problem hat ist hier die Lösung...
z.B.
Sub Zeile_auf_Inhalt_Pruefen()
' Erste Bedienung. Wenn Teilnehmer an der Zusatzveranstaltung teilnehmen möchten
If InStr(1, ActiveDocument.Range, "Ja, ich möchte", vbTextCompare) > 0 Then
' Bedeutet , dass das aktuelle Dokument nach "Ja, ich möchte" durchsucht wird und WENN das zutrifft, DANN
' Wichtig!!! Nur z.B. "JA" reicht evtl. nicht aus, denn der Ausdruck darf nur ein mal im aktiven Dokument vorkommen, also je präziser, um so besser
' DANN z.B. springe zu Zeile 6
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=6
' Ende der ersten Bedienung
End If
' Zweite Bedienung. Wenn Teilnehmer an der Zusatzveranstaltung nicht teilnehmen möchten
If InStr(1, ActiveDocument.Range, "Nein, ich möchte nicht", vbTextCompare) > 0 Then
' Bedeutet , dass das aktuelle Dokument nach "Nein, ich möchte nicht" durchsucht wird und WENN das zutrifft, DANN
' DANN z.B. springe zu Zeile 7
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=7
' Ende der zweiten Bedienung
End If
End Sub
|