16.06.2020, 19:11
Hallo zusammen,
ich benötige mal eure Hilfe.
Ich habe eine Excel User Form mit vielen Check boxen.
Ziel ist es dass die Check Boxen auf ein Bestehendes Word Formular (ebenfalls mit Check Boxen) übertragen werden.
ich habe folgendes Problem beim Code.
das Word wird ohne Probleme Aufgerufen, leider aber nicht die Check Box Aktiviert.
könnt ihr mir da weiterhelfen?
ich benötige mal eure Hilfe.
Ich habe eine Excel User Form mit vielen Check boxen.
Ziel ist es dass die Check Boxen auf ein Bestehendes Word Formular (ebenfalls mit Check Boxen) übertragen werden.
ich habe folgendes Problem beim Code.
das Word wird ohne Probleme Aufgerufen, leider aber nicht die Check Box Aktiviert.
könnt ihr mir da weiterhelfen?
Code:
Option Explicit
Private Sub CommandButton1_Click()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.WindowState = 1
AppActivate .Caption
.Documents.Open Filename:=("C:FilePfad\Dokument.docx")
End With
With WordApp.ActiveDocument
.FormFields("CheckBox1").CheckBox1.Value = True
End With
End Sub