Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.02.2019 19:35:13 |
flor62 |
|
|
|
10.02.2019 19:45:39 |
Gast13361 |
|
|
|
11.02.2019 17:13:38 |
Gast92225 |
|
|
|
11.02.2019 17:43:00 |
Gast20048 |
|
|
|
11.02.2019 19:25:27 |
flor62 |
|
|
|
11.02.2019 20:48:25 |
Gast66051 |
|
|
|
12.02.2019 17:59:58 |
Gast71316 |
|
|
VBA WORD alle Steuerelementen durchsuchen |
12.02.2019 20:31:48 |
Gast27308 |
|
|
Von:
Gast27308 |
Datum:
12.02.2019 20:31:48 |
Views:
459 |
Rating:
|
Antwort:
|
Thema:
VBA WORD alle Steuerelementen durchsuchen |
Als Nachbau von Gerhard:
Sub Realer_Irrsinn()
Dim Shp As Shape
Dim Tbx As Shape
Dim CC As ContentControl
With ActiveDocument
For i = 1 To .Shapes.Count
Debug.Print "--- Shape " & i & vbCrLf
If .Shapes(i).Type = msoCanvas Then
Set Shp = .Shapes(i)
For j = 1 To Shp.CanvasItems.Count
If Shp.CanvasItems(j).Type = msoTextBox Then
Set Tbx = Shp.CanvasItems(j)
For k = 1 To Tbx.TextFrame.TextRange.ContentControls.Count
With Tbx.TextFrame.TextRange.ContentControls(k)
Debug.Print .Title, .Tag
End With
Next k
End If
Debug.Print Chr(13), "-------------", "next Canvas", j, vbCrLf
Next j
End If
If .Shapes(i).Type = msoTextBox Then
Set Tbx = .Shapes(i)
For k = 1 To Tbx.TextFrame.TextRange.ContentControls.Count
With Tbx.TextFrame.TextRange.ContentControls(k)
Debug.Print .Title, .Tag
End With
Next k
End If
Next i
End With
End Sub
Mache es einfacher!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.02.2019 19:35:13 |
flor62 |
|
|
|
10.02.2019 19:45:39 |
Gast13361 |
|
|
|
11.02.2019 17:13:38 |
Gast92225 |
|
|
|
11.02.2019 17:43:00 |
Gast20048 |
|
|
|
11.02.2019 19:25:27 |
flor62 |
|
|
|
11.02.2019 20:48:25 |
Gast66051 |
|
|
|
12.02.2019 17:59:58 |
Gast71316 |
|
|
VBA WORD alle Steuerelementen durchsuchen |
12.02.2019 20:31:48 |
Gast27308 |
|
|