Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 02-26-2024, 02:34 PM
viewtost viewtost is offline Macro to check the data in a content control box Windows 10 Macro to check the data in a content control box Office 2019
Advanced Beginner
Macro to check the data in a content control box
 
Join Date: Jul 2021
Posts: 35
viewtost is on a distinguished road
Default Macro to check the data in a content control box

Hi all,



I hope you are well.

I have a word file with a Rich text content control whose title is "Name", I tried to create a macro to tell whether or not there is data in the Rich text content control.
However, it doesn´t work as it always says that the Content control has data.

Anyone can help me set up this macro so it says “Content control name is empty” when there is no data in it? Or “Content control name has data”

Thanks


Code:
Sub CheckContentControl()
 
    Dim ctnControl As ContentControl
    Dim isEmpty As Boolean
 
    Set ctnControl = ActiveDocument.ContentControls("Name")
 
    If ctnControl Is Nothing Then
        MsgBox "Content control 'Name' not found.", vbExclamation
        Exit Sub
    End If
 
    isEmpty = Len(ctnControl.Range.Text) = 0
 
    If isEmpty Then
        MsgBox "Content control 'Name' is empty.", vbInformation
    Else
        MsgBox "Content control 'Name' has data.", vbI
Nformation
    End If
 
End Sub
Reply With Quote
 

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Use VBA to show text when content control check box is checked kvrieze Word VBA 1 08-19-2023 03:11 AM
MsgBox launch when a Check Box Content Control is clicked wolfgrrl Word VBA 1 06-21-2019 12:13 PM
Macro to check the data in a content control box Check box content control to show text when checked Strogg Word 3 02-10-2019 11:45 AM
Check Box Content Control when checked users are presented with an option cryder Word 0 01-07-2016 05:11 AM
Macro to check the data in a content control box Replace checkbox symbol with check box content control canadansk Word VBA 5 04-01-2015 08:21 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:29 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft