使用Word VBA在表格单元格中查找粗体文本并提取紧随其后的文本

在Word VBA中，可以使用以下代码来查找表格单元格中的粗体文本并提取紧随其后的文本：

Sub FindBoldText()
    Dim tbl As Table
    Dim cell As Cell
    Dim rng As Range
    
    ' 遍历所有表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中的所有单元格
        For Each cell In tbl.Range.Cells
            ' 设置查找范围为单元格的范围
            Set rng = cell.Range
            
            ' 查找粗体文本
            With rng.Find
                .ClearFormatting
                .Font.Bold = True
                .Execute
                
                ' 如果找到了粗体文本
                If .Found Then
                    ' 提取紧随其后的文本
                    rng.Collapse Direction:=wdCollapseEnd
                    MsgBox rng.Text
                End If
            End With
        Next cell
    Next tbl
End Sub

这段代码会遍历文档中的所有表格，然后在每个表格的每个单元格中查找粗体文本。如果找到了粗体文本，它会提取紧随其后的文本并通过消息框显示出来。

这个功能可以用于从表格中提取特定格式的数据，例如提取表格中的标题或者特定标记后的内容。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云云服务器（CVM）：提供弹性计算能力，满足各种业务需求。产品介绍链接
• 腾讯云云数据库 MySQL 版：高性能、可扩展的关系型数据库服务。产品介绍链接
• 腾讯云对象存储（COS）：安全、稳定、高扩展性的云端存储服务。产品介绍链接
• 腾讯云人工智能：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等。产品介绍链接
• 腾讯云物联网通信（IoT Hub）：连接和管理物联网设备的云服务。产品介绍链接
• 腾讯云移动推送（Xinge Push）：提供消息推送服务，帮助开发者实现消息推送功能。产品介绍链接
• 腾讯云区块链服务（Tencent Blockchain）：提供稳定、高效、安全的区块链服务。产品介绍链接
• 腾讯云视频处理（VOD）：提供视频上传、转码、截图、水印等处理服务。产品介绍链接
• 腾讯云音视频通信（TRTC）：提供实时音视频通信能力，支持多人会议、直播等场景。产品介绍链接
• 腾讯云云原生应用引擎（Tencent Serverless Framework）：帮助开发者构建和管理云原生应用。产品介绍链接
• 腾讯云网络安全（SSL 证书）：提供 SSL 证书服务，保护网站和应用的安全。产品介绍链接
• 腾讯云音视频 AI（Tencent AI Lab）：提供音视频 AI 相关的技术和服务。产品介绍链接
• 腾讯云元宇宙（Tencent Metaverse）：提供虚拟现实（VR）和增强现实（AR）相关的技术和服务。产品介绍链接

以上是腾讯云提供的一些与云计算相关的产品，它们可以满足不同场景下的需求。