Delete text within two bookmarks

gmayor · #3 01-18-2023, 10:28 PM

Quote:

Note that when you remove all content of that CC, it will display the placeholder text which may or may not suit your purposes. You can either edit the placeholder text or put a single space in the placeholder to avoid this problem

If you fill the content control with zero width space ChrW(8203) the control will completely disappear, but will still be present to be refilled with something else.

Code:

Sub Macro1
    FillCC "MyCCTitle", ChrW(8203), True

End Sub

Code:

Public Sub FillCC(strCCTitle As String, strValue As String, bLock As Boolean)
'Graham Mayor - https://www.gmayor.com - Last updated - 03 Sep 2021
Dim oCC As ContentControl
    On Error GoTo lbl_Exit
    For Each oCC In ActiveDocument.ContentControls
        With oCC
            If .Title = strCCTitle Then
                .LockContents = False
                .Range.Text = strValue
                .LockContentControl = True
                .LockContents = bLock
                Exit For
            End If
        End With
    Next oCC
lbl_Exit:
    Set oCC = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using If Then with Bookmarks to specify text	RedZed1100	Word VBA	11	08-26-2020 04:15 PM
Replacing text held in all bookmarks	THH4929	Word VBA	6	06-02-2018 04:29 AM
Delete Selected Bookmarks	sks27	Word VBA	3	06-03-2016 02:05 AM
Delete Bookmarks in Footnotes	brent chadwick	Word VBA	3	12-24-2015 01:40 PM
Form updating Bookmarks - writes to the bookmarks multiple times	PeterPlys	Word VBA	13	01-14-2015 06:41 AM