Wie kann man ein Element in WORD in VBA ansprechen, um Methoden auszuführen/ Eigenschaften zu bearbeiten?

Bei Tabellen ist es mir schon gelungen mit ActiveDocument.Tables.

Wie kann ich Checkboxen (Active X Steuerelement) und andere Elemente ansprechen?

2 Antworten

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

VBA

25.01.2022, 07:49

Je nach dem muss auch noch der "Ort" dazu:
Tabelle1.Label1.Caption="Test"

adi120369

24.01.2022, 16:05

Hier kommt es darauf an, ob Du die Formularsteuerelemente verwendest, oder die Active-X Controls. Die Formularsteuerelemente kannst Du nicht ansteuern - dies geht nur bei den Active-X Controls.

Wenn Du ein solches Objekt eingefügt hast, kannst Du es auch doppelklicken, oder rechte Maus und dann Ereignis wählen. Dann bist Du in der Standardmethode, wie z.B. OnClick bei der Befehlsschaltfläche. Die Elemente kannst Du immer mit Objektname.Eigenschaft/Methode ansprechen.

Also Label1.Caption="Test"

Woher ich das weiß:Berufserfahrung

TechPech1984

24.01.2022, 16:10

oder je nach version -> rechte maus -> Macro Zuweisen und Neu , dann wird meist das Klick Event genommen und der Macro Editor öffnet sich

adi120369

24.01.2022, 16:11

@TechPech1984

Ja, aber bei Makro zuweisen ist man schon wieder bei Formularsteuerelementen. Für ganz simple Sache geht das. Aber man kann mehr nicht machen. Also vom Objekt auch keine Eigenschaften auslesen, oder zuweisen.

TechPech1984

24.01.2022, 16:13

@adi120369

recht du hast, vielleicht kann ja noch jemand was damit anfangen der formular elemente sucht .

Bogeyman10

Fragesteller

24.01.2022, 16:13

Wie finde ich die Objektnamen raus?

Hallo zusammen,

ich stehe vor einem (für mich sehr großen) Word-Problem: Ich möchte zwei Checkboxen einfügen (aus der Kategorie Entwicklertools > Steuerelemente > Active X Kontrollkästchen), welche beim Anklicken jeweils einen bestimmten Text anzeigen bzw. wieder ausblenden.

Aus meiner bisherigen Recherche habe ich herausgefunden, dass das wohl durch Macros funktionieren sollte, damit kenne ich mich aber absolut nicht aus und meine bisherigen Versuche, einen Code aus dem Internet einzufügen, sind auch alle fehlgeschlagen.

Wenn sich irgendjemand in der Lage fühlt, mir weiterzuhelfen und einen entsprechenden Code zur Verfügung zu stellen, tausend Dank schon mal im Voraus!!

...zur Frage

Javascript: Mehreren Elementen eine Klasse active hinzufügen?

Hallo. Aktuell ist es so, dass wenn ich auf den Button klicke, immer nur das erste Element die Klasse active bekommt und verschwindet. Wie lautet der Befehl, damit alle Elemente, die die Klasse "TestTest" haben, die Klasse active bekommen?

Anscheinend funktioniert es mit dem Befehl: TestText.classList.toggle("active"); nur für 1 Element

hier mein code:

...zur Frage

Warum ist Osmium so teuer?

Osmium ist zwar das seltenste Element der Welt, aber es gibt ja keine Verwendung dafür. Selbst für Schmuck ist es unbrauchbar, da es eine hochgiftige Oxidschicht an seiner Oberfläche bildet. Für Elektronik ist es auch nicht besonders brauchbar, das es in jeder hinsicht bessere Metall-Alternativen gibt. Besondere Eigenschaften hat es auch nicht (ausser dass es eines der schwersten Elemente ist, aber das nützt ja nichts.) Aber wenn es für nichts zu gebrauchen ist, auch in Hinsicht auf die Zukunft, warum ist es dann das teuerste Element der Welt? Warum ist Osmium so wertvoll?

...zur Frage

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zur Frage

Zunahme der matallischen Eigentschaften von oben nach unten in einer Hauptgruppe - Warum?

Ich habe mich im Internet versucht darüber zu informieren , mehrfach hab ich gelesen dass die metallischen Eigenschaften innerhalb einer Hauptgruppe von oben nach unten zunehmen , nur den Grund konnte ich nicht entnehmen . Kann mir jemand erklären warum ? Verstanden habe ich aber , dass von rechts nach links die Stärke der metallischen Eigenschaften zunimmt , unzwar dass die Dichte der Elemente von dem ersten bis zum letzten Element immer dichter wird , und die Stärke der metallischen Eigenschaften in freier Beweglichkeit zunimmt , deshalb wird die Stärke der metallischen Eigenschaften von rechts nach links doch stärker , habe ich das so richtig verstanden ?

...zur Frage

NavBar auf jeder Unterseite einbauen (Webdevelopment)?

Hallo, es gibt auf so ziemlich jeder Website Elemente, die auf fast jeder Unterseite vorkommen. Ein Beispiel dafür wäre die NavBar. Diese ist bei den meisten Websites überall. Wie bringt man aber dieses Element auf jede Unterseite? Bei jeder Unterseite den ganzen HTML, CSS und JavaScript Code reinzukopieren wäre ja sehr mühsam.

Diese Aufgabe kann man mit Framworks lösen, wie z.B. VueJS wo man Komponenten verwendet. Welche Methoden gibt es sonst noch, vielleicht sogar ganz ohne Framework?

...zur Frage

Neue Vorgesetzte in der Abteilung: Jetzt Probleme bei der Arbeit?

Hallo,

ich habe vor 2 Jahren eine neue Vorgesetzte bekommen. Ich bin 3 Jahre in diesem Unternehmen. Das große Problem ist, dass die neue Vorgesetzte meine Aufgaben verändert hat, sodass ich große Schwierigkeiten habe, die neuen Aufgaben auszuführen.

Sie hat die neuen Excel Tabellen so gestaltet, dass es kaum Sinn ergibt, überall sind hunderte Formeln hinterlegt, dutzende Tabellenblätter, unübersichtlich. Ich habe dann entsprechend ein Problem, die Sachen auszuführen.

Ich weiß nicht, wie Sie das schafft, aber Sie klickt wild umeinander und schiebt Daten von A nach B und das alles in Sekundenschnelle und das kann ich so nicht.

Wir haben auch viele ältere Mitarbeiter, wenn ich z. B. sage, mach ein SVERWEIS, werde ich blöd angeschaut. Das kann bei uns niemand, außer ich.

Ich bin quasi der Stellvertretende Abteilungsleiter und habe Ihr erläutert, es wäre sinnvoller, die Tabellen zu strukturieren, die Formeln möglichst einfach gestalten, damit auch im Notfall das jemand anders erledigen kann.

Doch Sie stellt sich immer quer, es werden Dinge sehr kompliziert gelöst, mit Makro und VBA programmierung, wo eigentlich keiner das bei uns kann.

Was könnte ich da machen? - Ich habe mittlerweile nicht sehr viel Lust auf das ganze... mit 25 Abteilungsleitung übernehmen halte ich dann doch für ein wenig übertrieben...

...zur Frage

VBA Programmierung in Word: In Tabelle Zeilen aus-/einblenden und mit Text füllen

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

...zur Frage

Gibt es eine globale Suchfunktion bei Access 2010?

Guten Tag zusammen,

eigentlich ein ganz banales Ansinnen:

Ich habe eine Access 2010 Datenbank mit Unterformularen. Nun möchte ich einen Knopf auf dem Hauptformular, der eine Suche in allen Formularen (Tabellen) durchführt und mir anzeigt, wo sich mein eingegebener Begriff befindet.

Das in der Benutzeroberfläche befindliche Steuerelement 'Suchen' sucht nämlich nur in dem dazugehörigen Formular (Tabelle) aber eben nicht in allen - das reicht mir nicht.

Gibt es einen einfachen Weg aus der Benutzeroberfläche heraus, oder muss ich über VBA mein (bisher gescheitertes) Glück versuchen?

Herzlichen Dank im Voraus

...zur Frage

Excel, Formatierung, Datum, Addierung?

Hallo, folgendes Problem: Ich habe folgendes Datum-Format: TTT. * TT.MM.JJJJ

Wie generiere ich von der beispielsweise Zelle A1, die das Datum vorgibt, 6 weitere Tage in dem Format? Also wenn ich in die Zelle das heutige Datum Mo. 14.08.2023 eingebe, soll in den nächsten Zeilen Di. 15.08.2023 etc stehen.

...zur Frage

Excel VBA, Kalender?

Hallo, wie kann ich in Excel einen Bereich erstellen lassen, der von dem aktuellen Datum 2 Monate vor und zurück anzeigt und sich automatisch aktualisiert?

Ich dachte da bereits an eine Schleife.

...zur Frage

Word VBa Initialize funktioniert nicht?

Das ist mein Code:


Private Sub ComboBox1_Initialize()

  ComboBox1.AddItem "weisungsbefugt "
  ComboBox1.AddItem "Meier"
  ComboBox1.AddItem "Schmitz"
  ComboBox1.AddItem "Weber"
  ComboBox1.AddItem "Mustermann"

  .ListIndex = 1 'Vorbelegung


End Sub





Private Sub ComboBox1_Change()
    


    Dim sPfad As String


    Inhalt = get_Word_ContenField_as_Text("DropBox1")


    MsgBox Inhalt


    Exit Sub


End Sub

Nur leider funktioniert der Initilialize Teil einfach nicht und ich weiß nicht was ich falsch mache? Ich bitte um Hilfe. Danke!

...zur Frage

"Frame" mit "CheckBox" als Überschrift?

Ich möchte in einem Formular (UserForm) in Excel VBA einen Rahmen (Frame) erstellen, den ich mit einem Auswahlkästchen (CheckBox) in der Überschrift (Caption) als aktiv markieren kann.

Und dieser Link beweist, dass es einen Weg geben muss...

...zur Frage

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen