ContentControls seltsames Verhalten
22.02.2020 11:03:52
Toni
Das Setting anbei füllt mir eine Worddatei aus Excel heraus, allerdings kann ich mir das Verhalten im Einzelschrittmodus nicht erklären.
Ausgang war ein Code von Case, der natürlich super funktionierte. Ich habe dann allerdings versucht die CControls etwas zu dynamisieren mit den beiden Varianten wie unten zu sehen. Die Namen in Excel sind dabei gleichzeitig die Titel der Controls.
Und dann dieses Verhalten: und zwar beendet er im Falle des ersten Durchlauf der Schleife das Makro. Das Ergebnis ist dann allerdings richtig. So, als ob das Makro bis zum Ende durchgelaufen wäre.
For Each oRange In .StoryRanges
For Each oContent_Control In oRange.ContentControls
Select Case Left(oContent_Control.Title, 3)
Case "CK_"
oContent_Control.Checked = Wks1.Range(oContent_Control.Title).Value
Case Else
oContent_Control.Range.Text = Wks1.Range(oContent_Control.Title)
End Select
Next
Next
Eigentlich hätte ich lieber folgende Konstruktion über ContentControl.type benutzt, um die etwas seltsame Text-Konstruktion oben zu vermeiden, da murkst er aber völlig. For Each oRange In .StoryRanges
For Each oContent_Control In oRange.ContentControls
Select Case oContent_Control.Type
Case 8 'wdContentControlCheckBox
oContent_Control.Checked = Wks1.Range(oContent_Control.Title).Value
Case 1 'wdContentControlText
oContent_Control.Range.Text = Wks1.Range(oContent_Control.Title)
End Select
Next
Hat vielleicht jemand Erklärungen dazu bzw. bessere Ansätze? Wer etwas probieren mag:https://www.herber.de/bbs/user/135370.zip
lG
Toni