VBA之Word应用:利用代码统计文档中的书签个数

《VBA之Word应用》(版权10178982),是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。

 这套教程是专门针对WORD VBA 的教程,是VBA中的稀缺资源,我给这套教程分归为中级教程,希望大家在VBA入门后再学习这套教程,这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章,今日内容为第二章部分:VBA之Word应用:利用代码统计文档中的书签个数1d629fb0625abf383a37b8ab06b23f18.jpeg

【分享成果,随喜正能量】心无挂碍,尽情享受当下便好。世事浮云何足问,不如高卧且加餐。生活中一切事,放平心态,不纠结、不执着,从容潇洒的走过,也是一种难得的人生智慧。。

第一节文档(Document)的书签

2利用代码统计文档中的书签个数

代码示例:下面的代码将提取当前文档中所有的书签,并提示给用户。

Sub mynz() '显示书签

    Dim A()

    Dim mybookmark As Bookmark

    If ActiveDocument.Bookmarks.Count >= 1 Then

        ReDim A(ActiveDocument.Bookmarks.Count - 1)

        i = 0

        For Each mybookmark In ActiveDocument.Bookmarks

            A(i) = mybookmark.Name

            uu = uu & " " & A(i)

            i = i + 1

        Next

    End If

    MsgBox "当前文档中的书签有:" & Chr(13) & uu

End Sub

代码截图:

14e4c0542b9e7027ecda63fe1642994e.jpeg

3统计书签个数代码的讲解及测试

1)Dim A()定义一个动态数组记录书签名

2) Dim mybookmark As Bookmark定义书签变量

3) ActiveDocument.Bookmarks.Count当前文档书签的个数

4) ReDim A(ActiveDocument.Bookmarks.Count - 1)给数组扩容

5) For Each mybookmark In ActiveDocument.Bookmarks

            A(i) = mybookmark.Name

            uu = uu & " " & A(i)

            i = i + 1

        Next

End If

以上遍历所有书签,并将书签放在数组中,同时提取数据的名称。

6) MsgBox "当前文档中的书签有:" & Chr(13) & uu

提示给用户书签的所有名称。

代码的运行测试:

1)在当前文档中“Doc 002文件”中的书签如下截图:

c79f3d9a87a72f226da779dfe8ebaf55.jpeg

截图可以看出,一共是四个书签,我们运行程序:

0b6dbbc393069dcd70c57d5dcd71995d.jpeg

3)运行结果:

6e46777e4821add781deeadec0914713.jpeg

可见,程序的运行结果和我们期望是一致的。

4在文档中显示书签

为了下面内容讲解的方便,我要在文档中显示已经添加的书签。为了显示书签,可以采用下面的步骤,在“选项”窗口,找到“显示文档内容”,勾选“显示书签”

eccf835ff529189d14cfe5af15cf81b2.jpeg

这个时候我们就可以在文档中显示书签了:

0b4433016d5399600fb7fca4733fbfda.jpeg

今日内容回向:

  1 文档的书签属性意义是什么?

2如何统计书签的个数?

   3 如何显示书签?

本讲内容参考程序文件:Doc 002文档.docm

分享成果,随喜正能量

a29499d0e41acfc97cf149a12081db2a.jpeg

我20多年的VBA实践经验,全部浓缩在下面的各个教程及应用工具中:


1611945d91280f80b7189eb5902a53a5.jpeg

c7f0232149248df47eb0faf42e27d08c.jpeg

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/233583.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

WebRTC编译记录

文章目录 1. 尝试1 重新安装libtool尝试2 解除brew的libtool切换到xcode自带的(成功)这里记录一次iOS编译问题; 在之前编译WebRTC都是没有问题,今天编译突然报错如下: FAILED: obj/media/librtc_constants.a rm -f obj/media/librtc_constants.a && TOOL_VERSION…

Dubbo RPC-Redis协议

Redis协议 特性说明 Redis 是一个高效的 KV 存储服务器。基于 Redis 实现的 RPC 协议。 2.3.0 以上版本支持。 使用场景 缓存,限流,分布式锁等 使用方式 引入依赖 从 Dubbo 3 开始,Redis 协议已经不再内嵌在 Dubbo 中,需要单…

Jenkins在window下配置Android打包配置

在Windows下配置Jenkins进行Android打包的步骤如下: 安装Jenkins:从Jenkins官网下载适用于Windows的安装包,并按照安装向导的指示完成安装。 启动Jenkins服务:启动Jenkins服务,确保服务正常运行。 配置Jenkins&#…

基于SpringBoot的和微信小程序养老院管理系统

文章目录 项目介绍主要功能截图:部分代码展示设计总结项目获取方式🍅 作者主页:超级无敌暴龙战士塔塔开 🍅 简介:Java领域优质创作者🏆、 简历模板、学习资料、面试题库【关注我,都给你】 🍅文末获取源码联系🍅 项目介绍 基于SpringBoot的和微信小程序养老院管理…

在 Kubernetes 上部署 Python 3.7、Chrome 和 Chromedriver(版本 114.0.5735.90)的完整指南

一、构建基础镜像 docker build -f /u01/isi/DockerFile . -t thinking_code.com/xhh/crawler_base_image:v1.0.2docker push thinking_code.com/xhh/crawler_base_image:v1.0.2 二、K8s运行Pod 三、DockerFile文件 # 基于镜像基础 FROM python:3.7# 设置代码文件夹工作目录…

Axure中继器的使用实现表格的增删改查的自定义文件

目录 一.认识中继器 1.1.什么中继器 1.2. 中继器的组成 1.3.中继器的使用场景 二.中继器进行增删改查 三.十例表格增删改查 还有Axure这个东西许多东西需要我们去发现,我们需要去细心的研究,我们一起加油吧!!!今…

ASP.NET Core MVC依赖注入理解(极简个人版)

依赖注入 文献来源:《Pro ASP.NET Core MVC》 Adam Freeman 第18章 依赖注入 1 依赖注入原理 所有可能变化的地方都用接口在使用接口的地方用什么实体类通过在ConfigureService中注册解决注册的实体类需要指定在何种生命周期中有效 TransientScopedSingleton 2…

SQL 入门指南:从零开始学习 SQL

当今时代,数据已经成为了我们生活中不可或缺的一部分。无论是企业的经营决策,还是个人的日常消费习惯,都需要通过对数据的收集、分析和应用来实现更好的结果。 而关系型数据库系统,作为最常见的数据存储和管理方式,SQ…

13 v-show指令

概述 v-show用于实现组件的显示和隐藏,和v-if单独使用的时候有点类似。不同的是,v-if会直接移除dom元素,而v-show只是让dom元素隐藏,而不会移除。 在实际开发中,v-show也经常被用到,需要重点掌握。 基本…

广州华锐互动VRAR:利用VR开展新能源汽车触电安全演练,降低培训成本和风险

随着新能源汽车行业的快速发展,相关的安全培训也变得越来越重要。其中,触电急救培训对于保障驾驶员和乘客的安全具有重要意义。传统培训方式存在一些不足,而利用VR技术进行培训则具有很多优势。 利用VR技术开展新能源汽车触电安全演练可以在模…

扩散模型介绍

介绍 AI 绘画中的扩散模型是近年来在计算机视觉和图像生成领域中获得关注的一种深度学习方法。这种模型特别擅长于生成高质量的图像,包括艺术作品和逼真的照片样式的图像。扩散模型的关键思想是通过一个渐进的、可逆的过程将数据(在这个场景中是图像&am…

验证码:防范官网恶意爬虫攻击,保障用户隐私安全

网站需要采取措施防止非法注册和登录,验证码是有效的防护措施之一。攻击者通常会使用自动化工具批量注册网站账号,以进行垃圾邮件发送、刷量等恶意活动。验证码可以有效阻止这些自动化工具,有效防止恶意程序或人员批量注册和登录网站。恶意程…

设计模式(三)-结构型模式(5)-外观模式

一、为何需要外观模式(Facade)? 要实现一个大功能,我们需要将它拆分成多个子系统。然后每个子系统所实现的功能,就由一个称为外观的高层功能模块来调用。这种设计方式就称为外观模式。该模式在开发时常常被使用过,所…

.NET面试题(二)

1.c# 中new关键字的作用 实例化对象和调用构造函数:当使用 new 关键字创建一个类的实例时,它会为对象分配内存,并调用相应的构造函数来初始化该对象。    隐藏基类成员(方法、属性、事件等):当在派生类中…

Axure中继器的基本使用

介绍中继器 在 Axure 中,中继器是一种交互设计元素,用于在不同页面之间传递数据或触发特定的事件。它可以帮助模拟真实的用户交互流程和页面之间的传递逻辑,继承关系用于描述两个元件之间的父子关系。通过使用继承关系,您可以创建…

Eclipse_03_如何加快index速度

1. ini配置文件 -Xms:是最小堆内存大小,也是初始堆内存大小,因为堆内存大小可以根据使用情况进行扩容,所以初始值最小,随着扩容慢慢变大。 -Xmx:是最大堆内存大小,随着堆内存的使用率越来越高&a…

小爱音箱pro接入gpt和语音控制电脑

系统环境win7,python3.11 先安装MiService,使用:GitHub - Yonsm/MiService: XiaoMi Cloud Service for mi.com这个安装没成功, 改用:GitHub - yihong0618/MiService: XiaoMi Cloud Service for mi.com 在终端使用变…

【提示工程】Chain-of-Thought Prompting Elicits Reasoning in Large Language Models

解决问题 探索大语言模型解决推理问题的能力。从头训练或微调模型,需要创建大量的高质量含中间步骤的数据集,成本过大。 相关工作 1、使用中间步骤来解决推理问题 (1)使用自然语言通过一系列中间步骤解决数学应用题 &#xff0…

1-完全理解以太坊智能合约

了解区块链 区块链技术的核心概念是分布式账本,它是许多参与者共享的特定类型的数据库。 这个特殊的数据库只是一个交易列表,记录着网络中发生的每笔交易。每个人都可以拥有自己的交易列表备份,再加上强有力的货币激励措施消除各方之间信任…

《点云处理》 点云去噪

前言 通常从传感器(3D相机、雷达)中获取到的点云存在噪点(杂点、离群点、孤岛点等各种叫法)。噪点产生的原因有不同,可能是扫描到了不想要扫描的物体,可能是待测工件表面反光形成的,也可能是相…