MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 17.02.2019, 22:47   #16
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo flor,

aus dem hohlen Bauch raus:
Notfalls kannst du ja für die beiden Fälle auch zwei verschiedene Funktionen aufrufen.
Oder:
du übergibst den Typ msoGroup mit an deine Funktion und unterscheidest ähnlich wie im Hauptmakro.

Genau überlegt hab ich mir das nicht, geschweige denn ausprobiert. Heut hab ich keinen Nerv mehr dazu, und morgen keine Zeit.
Aber vielleicht hilft dir das schon weiter. Wenn nicht, melde ich mich wieder.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.02.2019, 18:31   #17
flor62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich habe mal rumprobiert und kann folgenden Teilerfolg melden:
Code:

Sub Felder_Update()

Dim i As Long, j As Long
Dim zeichenbereich As Shape, Tbox As Shape
Dim CC As ContentControl
Dim PersNr As String

Daten_einlesen

    Set zeichenbereich = ActiveDocument.Shapes("Zeichenbereich1")
      
        For i = 1 To zeichenbereich.CanvasItems.Count
            Select Case zeichenbereich.CanvasItems(i).Type
            Case msoTextBox
                Set Tbox = zeichenbereich.CanvasItems(i)
                Set CC = Tbox.TextFrame.TextRange.ContentControls(9)
                TBlock_Update CC
            
            Case msoGroup
                For j = 1 To zeichenbereich.CanvasItems(i).GroupItems.Count
                    Set Tbox = zeichenbereich.CanvasItems(i).GroupItems(j)
                    Set CC = Tbox.TextFrame.TextRange.ContentControls(9)
                    TBlock_Update CC
                Next j
            End Select
            
        Next i

End Sub
und Function
Code:

Function TBlock_Update(ByRef ccTbox As Variant)

PersNr = ccTbox.Range.Text
MsgBox PersNr

End Function
In meiner aktuellen Datenlage ist das erste Textelement in einer Gruppierung und somit hat "PersNr." den Textinhalt dieses Textelementes:

zeichenbereich.CanvasItems(i).GroupItems(j).TextFrame.TextRange.ContentControls( 9)

Es werden auch die Textinhalte von Textelementen ausserhalb der Gruppierung korrekt angezeigt, d.h. die Übergabe an Function klappt mit Case msoTextBox ebenso wie mit Case msoGroup.

Was mir -bisher- nicht gelungen ist: Die Übergabevariable an die Function so zu definieren, dass die Nummer (hier:9) nicht mit übergeben wird und in der Function gesetzt werden kann, z.B. so:

PersNr = ccTbox.ContentControls(1).Range.Text

Geändert von flor62 (18.02.2019 um 18:40 Uhr).
flor62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.02.2019, 18:51   #18
flor62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich glaube ich habs jetzt gefunden. Dieser Code funktioniert schon mal:

Code:

Sub Felder_Update()

Dim i As Long, j As Long
Dim zeichenbereich As Shape, Tbox As Shape

Daten_einlesen

    Set zeichenbereich = ActiveDocument.Shapes("Zeichenbereich1")
      
        For i = 1 To zeichenbereich.CanvasItems.Count
            Select Case zeichenbereich.CanvasItems(i).Type
            Case msoTextBox
                Set Tbox = zeichenbereich.CanvasItems(i)
                TBlock_Update Tbox
            
            Case msoGroup
                For j = 1 To zeichenbereich.CanvasItems(i).GroupItems.Count
                    Set Tbox = zeichenbereich.CanvasItems(i).GroupItems(j)
                    TBlock_Update Tbox
                Next j
            End Select
            
        Next i

End Sub
Function dazu:
Code:

Function TBlock_Update(ByRef ccTbox As Variant)

PersNr = ccTbox.TextFrame.TextRange.ContentControls(9).Range.Text
MsgBox PersNr

End Function
flor62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2019, 21:14   #19
flor62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ja, die obige Lösung hats gebracht.

Vielen Dank nochmal für die Unterstützung, vor allem an Gerhard.
Schön dass einem hier so toll geholfen wird.
flor62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:11 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.