Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Rich Text Inhaltssteuerelement verknüpfen
zurück: Word VBA Text Zeile für Zeile einfügen Zeilenumbruch weiter: Word 2010 - Navigationsleiste Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Filou876
Gast


Verfasst am:
16. Jul 2012, 13:02
Rufname:

Rich Text Inhaltssteuerelement verknüpfen - Rich Text Inhaltssteuerelement verknüpfen

Nach oben
       Version: Office 2010

Hallo,

ich würde gerne ein Rich Text Inhaltssteuerelement mit einem 2ten verknüpfen.
Also im ersten wir ein Text eingegeben und der soll dann auch automatisch z.B. beim verlassen des Feldes in das 2te Rich Text Inhaltssteuerelement eingetragen werden.
Hab das schon mit Textmarken und Querverweis...bzw. ASK und REF Feld probiert.
Aber irgendwie mach ich wohl was falsch.

Habt Ihre vllt. einen Rat für mich?
Bzw. ein ProgrammBeispiel wie ich dieses Problem lösen könnte.
Könnte mir vorstellen das es dafür schon vorgeschriebene Makros gibt?!

Wichtig noch--das aktualisieren sollte am besten automatisch geschehen ohne das der USER noch was drücken muss.
cbc042
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Jul 2012, 11:28
Rufname: Alexandra
Wohnort: Dortmund


AW: Rich Text Inhaltssteuerelement verknüpfen - AW: Rich Text Inhaltssteuerelement verknüpfen

Nach oben
       Version: Office 2010

Hallo,

Code:
Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim strInhalt1 As String
 strInhalt1 = ActiveDocument.ContentControls(1).Range
 ActiveDocument.ContentControls(2).Range.Text = strInhalt1
End Sub


Dieses Makro musst Du in VBA in ThisDocument setzen. Dann funktioniert es, wenn es sich um die Steuerelemente 1 und 2 handelt. Ansonsten musst Du eventuell ein bisschen probieren um die Indexnummern herauszubekommen.

_________________
Gruesse

Alexandra
Gast



Verfasst am:
19. Jul 2012, 13:57
Rufname:

AW: Rich Text Inhaltssteuerelement verknüpfen - AW: Rich Text Inhaltssteuerelement verknüpfen

Nach oben
       Version: Office 2010

Hallo,

ja super , danke erst mal.
Das funktioniert ja schon super.
Aber kann man die Steuerelement auch mit Namen ansprechen ?
Title oder Tag oder so was in der Art.
Weil bei mehreren Steuerelementen wird das schwieirig mit der Nummerierung- und wenn nachträglich mal was geändert wird..auch..
cbc042
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Jul 2012, 16:29
Rufname: Alexandra
Wohnort: Dortmund

AW: Rich Text Inhaltssteuerelement verknüpfen - AW: Rich Text Inhaltssteuerelement verknüpfen

Nach oben
       Version: Office 2010

Hi,

leider habe ich keinen Weg gefunden, dem Objekt einen Namen zu geben. Also geht das nur mit TAG oder TITEL, aber dann brauchst Du die Schleife, damit VBA durch alle Elemente geht und den Titel abfragt. Wirklich nicht schoen und ich hoffe, jemand anderer findet eine elegantere Lösung. Aber ich zeige es Dir trotzdem.
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim strInhalt1 As String
Dim meinRtfElement As ContentControl

ActiveDocument.ContentControls(1).Title = "Vorname"
ActiveDocument.ContentControls(2).Title = "Wiederholung"
For Each meinRtfElement In Me.ContentControls
If meinRtfElement.Title = "Vorname" Then
 strInhalt1 = meinRtfElement.Range
End If
If meinRtfElement.Title = "Wiederholung" Then
 meinRtfElement.Range = strInhalt1
End If
Next
End Sub

_________________
Gruesse

Alexandra
Herr Gastname
Gast


Verfasst am:
17. Okt 2012, 18:32
Rufname:


AW: Rich Text Inhaltssteuerelement verknüpfen - AW: Rich Text Inhaltssteuerelement verknüpfen

Nach oben
       Version: Office 2010

Zitat:
Hallo,

Code:
Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim strInhalt1 As String
strInhalt1 = ActiveDocument.ContentControls(1).Range
ActiveDocument.ContentControls(2).Range.Text = strInhalt1
End Sub


Dieses Makro musst Du in VBA in ThisDocument setzen. Dann funktioniert es, wenn es sich um die Steuerelemente 1 und 2 handelt. Ansonsten musst Du eventuell ein bisschen probieren um die Indexnummern herauszubekommen.


Wie muss der Code sein, wenn ich 2-3 Rich Text Elemente habe, die sich auf eins beziehen? In meinem Dokument sol gleich an mehreren Stellen der Inhalt des ersten Rich-Text-Elements angezeigt werden.

Vielen Dank
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Verknüpfungen in bearbeitbaren Text umwandeln 2 SerafinaBeja 933 25. Jan 2014, 13:02
J_Jay Verknüpfungen in bearbeitbaren Text umwandeln
Keine neuen Beiträge Word Serienbriefe: Text im Seriendruckfeld verkürzt darstellen 8 Bernd O. 235 19. Dez 2013, 21:49
MarkMH_K Text im Seriendruckfeld verkürzt darstellen
Keine neuen Beiträge Word Serienbriefe: Hilfe, Link anstatt Verlinkter Text 1 Geograph123 84 18. Feb 2013, 15:31
Geograph123 Hilfe, Link anstatt Verlinkter Text
Keine neuen Beiträge Word Serienbriefe: Probleme mit Serien EMail als Text 2 Thomas Kirsch 601 13. Apr 2012, 13:01
Thomas Kirsch Probleme mit Serien EMail als Text
Keine neuen Beiträge Word Serienbriefe: Excel Datei, mit Word verknüpfen um eine Rechnung zu erstell 0 Crix1908 1740 15. Jun 2011, 13:45
Crix1908 Excel Datei, mit Word verknüpfen um eine Rechnung zu erstell
Keine neuen Beiträge Word Serienbriefe: Dokumente generieren - Textbaustein verknüpfen/aktualisieren 1 drobzz 1821 26. Okt 2010, 11:04
Gast Dokumente generieren - Textbaustein verknüpfen/aktualisieren
Keine neuen Beiträge Word Serienbriefe: Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief) 3 Greenkeeper 4652 04. Dez 2009, 17:36
charlybrown Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief)
Keine neuen Beiträge Word Serienbriefe: Excel 2003 Tabelle verknüpfen mit Word 2003 Serienbrief 1 FilFil 4326 26. Okt 2009, 16:53
charlybrown Excel 2003 Tabelle verknüpfen mit Word 2003 Serienbrief
Keine neuen Beiträge Word Serienbriefe: Word-Daten nach Excel exportiere bzw. verknüpfen 1 BenC 1529 18. Sep 2009, 20:32
CaBe Word-Daten nach Excel exportiere bzw. verknüpfen
Keine neuen Beiträge Word Serienbriefe: Adressfelder automatisieren oder verknüpfen 3 Bridget 607 14. Jul 2008, 15:51
Maulende Myrte Adressfelder automatisieren oder verknüpfen
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Anlage UND Text/Signatur im Outlook - wie? 0 Marmar77 1300 12. Feb 2008, 14:38
Marmar77 Serienbrief mit Anlage UND Text/Signatur im Outlook - wie?
Keine neuen Beiträge Word Serienbriefe: Probleme mit fixem Text bei Kategoriesortiertem Serienbrief 5 crus 2854 23. Jul 2007, 20:24
crus Probleme mit fixem Text bei Kategoriesortiertem Serienbrief
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project