|
Hallo Zusammen,
ich möchte Änderungen per VBA an ContentControl Felder vornehmen. Hierzu markiere ich mit der Maus mehrere ContentControls, die im Dokument innerhalb einer Tabelle positioniert sind. Die im VBA Code gespeicherten Änderungen sollen sich nur auf die markierten ContentControls beziehen. Meine folgender Ansatz funktiniert nicht, es werden immer alle ContentControls im Dokument angesprochen:
Sub Tabellenfelder_gelb()
Dim rngDokument As Range
Dim ccDokument As ContentControl
If Selection.Type = wdSelectionIP Then
MsgBox "Sie haben keinen Text markiert!", _
vbExclamation + vbOKOnly
Exit Sub
End If
Set rngDokument = Selection.Range
For Each ccDokument In rngDokument.ContentControls
ccDokument.LockContents = False
Next
With rngDokument
.Shading.Texture = wdTextureNone 'Tabelle in der sich CC befindet wird mit
.Shading.ForegroundPatternColor = wdColorAutomatic 'gelb ausgefüllt
.Shading.BackgroundPatternColor = wdColorLightYellow
End With
End Sub
Hat jemand eine Idee, wie die ContentControls innerhalb einer Tabelle selektiert werden können?
Vielen Dank im voraus!
Dirk
|