Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Word Checkbox durch Excel VBA aktivieren.
#1
Hallo zusammen,
ich benötige mal eure Hilfe.
ich habe ein Word Formular erstellt das mit Textmarker bestückt ist.
nun wollte ich fragen wie das funktioniert, wenn auch eine Checkbox im Word Formular aktiviert werden soll.
Kann ich da auch einen Textmarker bei der Checkbox machen oder gibt es da einen Code dazu?
Antworten Top
#2
Hallo, :19:

die kannst du so ansprechen: :21:

CheckBox object (Word)...
________
Servus
Case
Antworten Top
#3
besten dank werde ich gleich mal testen.
Antworten Top
#4
Hallo Case,
ich habe es versucht aber leider ohne erfolg.
siehst du da einen Fehler?
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("TEST").CheckBox1.Value = True
End With

End Sub
Antworten Top
#5
(16.06.2020, 11:53)schmidli schrieb: siehst du da einen Fehler?

Hallo, :19:

also - nach "C:" fehlt ein Backslash. Und es heißt nicht ".CheckBox1.Value", sondern ".CheckBox.Value".

Aber - magst du eine Beispieldatei (Word) hochladen? :21:
________
Servus
Case
Antworten Top
#6
Einfacher so:

Code:
Private Sub CommandButton1_Click()
  with getobject("C:\FilePfad\Dokument.docx"
    .windows(1).visible = true
    .FormFields(1).CheckBox.Value = True
  End With
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#7
    besten Dank 
leider bekomme ich einen Fehler bei der Zeile
Code:
with getobject("C:\FilePfad\Dokument.docx"
Den Fad ist aber richtig Hinterlegt.
Antworten Top
#8
Hallo,

da fehlt die schließende Klammer

Code:
with getobject("C:\FilePfad\Dokument.docx")
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#9
danke dir die habe ich tatsächlich übersehen.
wenn ich aber die Klammer noch anschließend mache kommt immer noch ein Syntax Fehler.
leider darf ich aus geschäftlichen Gründen das Word nicht hochladen Sad
Antworten Top
#10
Hola,

Obelix hat genau das gleiche Problem....

https://office-fragen.de/thread-11069.html

Gruß,
steve1da
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste