Exel in Word
18.10.2021 21:13:50
Everlost03
ich komme nicht weiter und vllt kann mir ja hier jemand helfen. Ich möchte gern aus bestimmten Zellen (Exel) in eine Word-Vorlage Daten reinschreiben. Es soll dann passieren, wenn ich in einer Combobox (wie im Beispiel) suchen auswähle. Es klappt auch alles soweit d.h. der Vordruck öffnet sich und die Daten werden auch an die Textmarken geschrieben aber nur dann wenn ich den Dokumentenschutz aufgehoben habe. Bei dem Schutz ist lediglich das Ausfüllen von Formularfelder erlaubt. Ich bekomme es nicht hin den Schutz aufzuheben, die Daten zu übertragen und anschließend den Schutz wieder zu aktivieren.
MFG
Everlost03
Private Sub ComboBox1_Change()
If ComboBox1.Value = "suchen" Then
Dim appWord As Object
Dim Vorführersuchen As Object
Set appWord = CreateObject("Word.Application")
appWord.WindowState = 1
appWord.Visible = True
Set suchen = appWord.ActiveDocuments.Add("C:\Users\Documents\suchen.docx")
suchen.ActiveWindow.Activate
suchen.Bookmarks("Vorname").Range.Text = Range("Vorname")
suchen.Bookmarks("Nachname").Range.Text = Range("Nachname")
suchen.Bookmarks("datum").Range.Text = Range("datum")
suchen.Bookmarks("nummer").Range.Text = Range("nummer")
Set Vorführersuchen = Nothing
Set appWord = Nothing
End If
End Sub