Hallo,
ich habe ein Problem mit VBA bzw. meinem makro. Folgende Aufgabenstellung:
Ich habe eine Vertragsvorlage mit mehreren Auswahlmöglichkeiten.
z.B. so
A) Der Nutzer stimmt zu
B) Der Nutzer lehnt ab
Jetzt möchte ich eine Checkbox für jede Option anbieten, die den Text "Der Nutzer stimmt zu" bzw. bei Auswahl von B " Der Nutzer lehnt ab" in ein neues Worddokument kopiert.
Meine bisheriges VBA:
Private Sub CheckBox1_Click()
With ActiveDocument
If Not .Bookmarks.Exists("ausgabe1") Then
MsgBox "Die Textmarke 'ausgabe1' existiert nicht"
Exit Sub
End If
On Error GoTo fehler
Set auttxt = AttachedTemplate.AutoTextEntries("textblock1")
If .CheckBox1.Value = True Then
.Bookmarks("ausgabe1").Select
Selection = auttxt
.Bookmarks.Add Name:="ausgabe1", Range:=Selection.Range
Else
.Bookmarks("ausgabe1").Select
Selection = " "
.Bookmarks.Add Name:="ausgabe1", Range:=Selection.Range
End If
End With
Exit Sub
fehler:
MsgBox Err.Number & " - " & Err.Description
End Sub
Darüber wird der Text nur auf einer weiteren Seite über Textmarken ausgegeben. Dies ist natürlich nur eine übergangslösung, da ich ja den ganzen Text dennoch kopieren muss. Hab Tante google schon intensiv durchforstet, bin aber zu keener zufriedenstellenden LSG gekommen. DANKE EUCH!
ich habe ein Problem mit VBA bzw. meinem makro. Folgende Aufgabenstellung:
Ich habe eine Vertragsvorlage mit mehreren Auswahlmöglichkeiten.
z.B. so
A) Der Nutzer stimmt zu
B) Der Nutzer lehnt ab
Jetzt möchte ich eine Checkbox für jede Option anbieten, die den Text "Der Nutzer stimmt zu" bzw. bei Auswahl von B " Der Nutzer lehnt ab" in ein neues Worddokument kopiert.
Meine bisheriges VBA:
Private Sub CheckBox1_Click()
With ActiveDocument
If Not .Bookmarks.Exists("ausgabe1") Then
MsgBox "Die Textmarke 'ausgabe1' existiert nicht"
Exit Sub
End If
On Error GoTo fehler
Set auttxt = AttachedTemplate.AutoTextEntries("textblock1")
If .CheckBox1.Value = True Then
.Bookmarks("ausgabe1").Select
Selection = auttxt
.Bookmarks.Add Name:="ausgabe1", Range:=Selection.Range
Else
.Bookmarks("ausgabe1").Select
Selection = " "
.Bookmarks.Add Name:="ausgabe1", Range:=Selection.Range
End If
End With
Exit Sub
fehler:
MsgBox Err.Number & " - " & Err.Description
End Sub
Darüber wird der Text nur auf einer weiteren Seite über Textmarken ausgegeben. Dies ist natürlich nur eine übergangslösung, da ich ja den ganzen Text dennoch kopieren muss. Hab Tante google schon intensiv durchforstet, bin aber zu keener zufriedenstellenden LSG gekommen. DANKE EUCH!