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

本套教程共三册十六章，其中前十五章是各种对象属、方法的讲解，每节都有专门的实例说明这些属方法的具体应用，后一章是结和具体应用场景的讲解，共有二十八个实际工作中常见的实例。在上一讲的Word VBA内容中，我讲解在Word中有关书签对象的知识，包括书签的属和方法。及如何添加书签这讲的内容更为丰富，是对书签的判读操作，下面是第二章“书签Bookrks对象及书签Bookrk对象”内容，讲解的是第6节：删除（Delete）书签（Bookrk）

第六节 删除（Delete）书签（Bookrk）

大家好，我们继续书签的相关讲解。我们在之前讲解了书签的添加、转到，这节的内容是如何删除书签。在Word VBA的实际操作讲解中，我们首先讲的是书签，是因为书签对象在我们实际操作中利用的非常多，也是非常实用的，理解起来也比较容易。

1 删除书签的思路

如何删除书签呢？我们在讲书签对象的时候讲过方法，这里将利用这种方法来完成我们的目的。

要想删除书签，那么这个书签是必须存在的。为了签的存在，我们可以先添加一个书签，在添加书签的时候要确认一下这个书签是否是存在的，如果已经存在，那就不用添加了，同时提示给用户。如果不存在，则开始添加，同样提示给用户。

在确保书签存在后，我们就可以删除书签了。同样在删除前，也要用户进行确认：是否真的进行删除。在得到用户认可后再删除，如果用户此时不想删除了，可以回退一步，不再进行删除的操作。

以上的过程也是我们在平时写代码时的一般过程，也是一个程序和用户间的交互过程，要每一步操作都要按照用户的意来进行。

2 删除书签的代码

删除书签的思路确定后，我们就要利用代码来实现了，我先把代码介绍给大家：

Sub mynzG ‘删除书签

Dim myStng As Stng

myStng = “B007”

‘在光标处添加书签

If (myStng) = False Then

MsgBox “名称为 “”” & myStng & “””的书签将被添加！”

Name:=myStng, Range:=

Else

MsgBox myStng & “书签已经存在，无法添加！”

End If

‘删除书签

my = MsgBox(“你是否确定要删除” _

& “名称为 “”” & myStng & “””的书签?”, vbYesNo)

If my = vbYes Then

(Index:=myStng).Delete

End If

End Sub

代码截：

3 删除书签代码的讲解及运行效果

我们先看看上面代码的解读：

1） myStng = “B007” 这句代码是给一个变量赋值，实际上就是指定一个书签。

2) If (myStng) = False Then 这句代码是判断上面这个书签是否存在，这句的意义是假如这个书签不存在的情况。

3) MsgBox “名称为 “”” & myStng & “””的书签将被添加！” 这句代码将弹出一个对话框提示给用户标签将被添加，大家要注意这段代码中引的写法。

在书签已经存在的交互代码中大家可以一下：

1） MsgBox “””” & myStng & “””书签已经存在，无法添加！”

2） MsgBox Chr(34) & myStng & Chr(34) & “书签已经存在，无法添加！”

以上两段代码就是输出显示引的典型代码。第一种方案是代码中采用引的写法，大家可以按照两个引迭代后可以输出显示一个引来记忆；第二种方案是以Chr(34)来代替引的写法，在代码中把Chr(34)看作一个字符串来书写即可。

4）

Name:=myStng, Range:=

以上这段代码将添加一个书签，添加书签的名字是myStng变量所代码的值，添加的位置是光标所在处。

5）MsgBox myStng & “书签已经存在，无法添加！” 这句代码是完成已经有了指定标签的情况下的交互。提示给用户书签已经存在了。

6）my = MsgBox(“你是否确定要删除” _

& “名称为 “”” & myStng & “””的书签?”, vbYesNo)

以上代码又是一个交互，是要求用户确认一下是否要删除这个书签，这个确认是后的确认，如果用户完成确认，将删除这个书签，这里我们仍是要注意引的用法。这一点在上面的介绍中给出了两种用法，大家要注意。

7）If my = vbYes Then

(Index:=myStng).Delete

End If

以上代码是在客户认可的条件下完成删除的操作。用的是方法。

代码的运行效果，在宏菜单下，我们选中上述的mynzG过程，点击运行：如果已经存在了指定的书签会有下面的提示：

点击确定：

我们在这个提示中选择“是”，就删除了书签“B007”.

以上就是书签的删除过程，在这节的讲解过程中，我们同时回向了书签的添加方法，以及利用与用户交互完成逐步确认的过程。

内容回向：

1 在文档中如何删除书签？

2 在代码中如何让引输出显示？

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

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。如何学VBA呢? 概括的说就是: 学过程中要信、解、受、持，更要有回向的业力。无论您在学的阶段，都要对照教程的知识点加持自己的实际工作，总会有丰厚的收获。我根据自己多年VBA实际利用经验，推出了八部VBA专门教程。套教程：VBA代码解决方案 ；第2套教程：VBA数据库解决方案；第3套教程：VBA数组与字典解决方案；第4套教程：VBA代码解决方案之（第一套的讲解）；第5套教程：VBA中类的解读和利用；第6套教程：VBA信息获取与处理；第7套教程：VBA之EXCEL应用；第8套教程：VBA之Word应用（新）。上述教程的学顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5 ② 7→8

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座的代码宝库，是初学及中级人员教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和位两种OFFICE。第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学。目前这套教程提供的是修订第一版教程，程序文件通过32位和位两种OFFICE。第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平的有效手段，值得深入的学，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和位两种OFFICE。第四套：VBA代码解决方案之 是专门面向初学者的讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的讲解，更易接受。第五套：VBA中类的解读和利用 这是一部教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学可以促进自己VBA理论的。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和位两种OFFICE。第六套教程：VBA信息获取与处理，这是一部教程，涉及范围更广，实用更强，面向中人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子的发送、VBA互联数据抓取、VBA操作，剪切板应用、Split函数扩展、工作表信息与应用交互，FSO对象的利用、工作表及文件夹信息的获取、形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和位两种OFFICE。第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基内容讲起，到循环结构、错误处理、字符串操作、期和时间、、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们自己EXCEL水平的必须。第八套教程：VBA之WORD应用 是围绕“面向对象编程”展开的讲解，让大家充分认识Word中VBA的对象，以及对象的属、方法及利用。教程共分三册，十六章，其中前十五章是各种对象属、方法的讲解，每节都有专门的实例说明这些属方法的具体应用，后一章是结和具体应用场景的讲解，详细讲解了二十八个实际工作中有代表的实例，紧扣word数据的批量处理，发挥VBA的长处。本套教程实例众多，大家可以拿来即用，或者修正后加以利用。由于这套教程是围绕“面向对象编程”来展开，建议大家先学《VBA之Excel应用》，对VBA中的对象、属、方法、有认识后再来学这套教程。