整合營銷服務商
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
VBA之Word應用》（版權10178982），是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然后通過實例讓大家感受到Word VBA 的妙處。
這套教程是專門針對WORD VBA 的教程，是VBA中的稀缺資源，我給這套教程分歸為中級教程，希望大家在VBA入門后再學習這套教程，這樣會更加深入的理解面向對象編程的意義。
本套教程共三冊十六章，今日內容為第二章部分：VBA之Word應用第二章第六節：刪除（Delete）書簽（Bookmark）
【分享成果，隨喜正能量】 善心善行的你，利己利他，積累無量福德，菩薩常伴左右，保佑一生平安， 財運亨通，福祿雙收。 ??。
大家好，我們繼續書簽的相關講解。我們在之前講解了書簽的添加、轉到，這節的內容是如何刪除書簽。在Word VBA的實際操作講解中，我們首先講的是書簽，是因為書簽對象在我們實際操作中利用的非常多，也是非常實用的，理解起來也比較容易。
如何刪除書簽呢？我們在講書簽對象的時候講過Bookmark.Delete方法，這里將利用這種方法來完成我們的目的。
要想刪除書簽，那么這個書簽是必須存在的。為了保證書簽的存在，我們可以先添加一個書簽，在添加書簽的時候要確認一下這個書簽是否是存在的，如果已經存在，那就不用添加了，同時提示給用戶。如果不存在，則開始添加，同樣提示給用戶。
在確保書簽存在后，我們就可以刪除書簽了。同樣在刪除前，也要用戶進行確認：是否真的進行刪除。在得到用戶認可后再刪除，如果用戶此時不想刪除了，可以回退一步，不再進行刪除的操作。
以上的過程也是我們在平時寫代碼時的一般過程，也是一個程序和用戶間的交互過程，要每一步操作都要按照用戶的意圖來進行。
刪除書簽的思路確定后，我們就要利用代碼來實現了，我先把代碼介紹給大家：
Sub mynzG() '刪除書簽
Dim myString As String
myString="B007"
'在光標處添加書簽
If ActiveDocument.Bookmarks.Exists(myString)=False Then
MsgBox "名稱為 """ & myString & """的書簽將被添加！"
ActiveDocument.Bookmarks.Add _
Name:=myString, Range:=Selection.Range
Else
MsgBox myString & "書簽已經存在，無法添加！"
End If
'刪除書簽
myUU=MsgBox("你是否確定要刪除" _
& "名稱為 """ & myString & """的書簽?", vbYesNo)
If myUU=vbYes Then
ActiveDocument.Bookmarks(Index:=myString).Delete
End If
End Sub
代碼截圖：
我們先看看上面代碼的解讀：
1） myString="B007" 這句代碼是給一個變量賦值，實際上就是指定一個書簽。
2) If ActiveDocument.Bookmarks.Exists(myString)=False Then 這句代碼是判斷上面這個書簽是否存在，這句的意義是假如這個書簽不存在的情況。
3) MsgBox "名稱為 """ & myString & """的書簽將被添加！" 這句代碼將彈出一個對話框提示給用戶標簽將被添加，大家要注意這段代碼中引號的寫法。
1） MsgBox """" & myString & """書簽已經存在，無法添加！"
2） MsgBox Chr(34) & myString & Chr(34) & "書簽已經存在，無法添加！"
以上兩段代碼就是輸出顯示引號的典型代碼。第一種方案是代碼中采用引號的寫法，大家可以按照兩個引號迭代后可以輸出顯示一個引號來記憶；第二種方案是以Chr(34)來代替引號的寫法，在代碼中把Chr(34)看作一個字符串來書寫即可。
4）ActiveDocument.Bookmarks.Add _
Name:=myString, Range:=Selection.Range
以上這段代碼將添加一個書簽，添加書簽的名字是myString變量所代碼的值，添加的位置是光標所在處。
5）MsgBox myString & "書簽已經存在，無法添加！" 這句代碼是完成已經有了指定標簽的情況下的交互。提示給用戶書簽已經存在了。
6）myUU=MsgBox("你是否確定要刪除" _
& "名稱為 """ & myString & """的書簽?", vbYesNo)
以上代碼又是一個交互，是要求用戶確認一下是否要刪除這個書簽，這個確認是最后的確認，如果用戶完成確認，將徹底刪除這個書簽，這里我們仍是要注意引號的用法。這一點在上面的介紹中給出了兩種用法，大家要注意。
7）If myUU=vbYes Then
ActiveDocument.Bookmarks(Index:=myString).Delete
End If
以上代碼是在客戶認可的條件下完成刪除的操作。用的是Bookmarks.Delete方法。
代碼的運行效果，在宏菜單下，我們選中上述的mynzG過程，點擊運行：如果已經存在了指定的書簽會有下面的提示：
點擊確定：
我們在這個提示中選擇“是”，就刪除了書簽“B007”.
以上就是書簽的刪除過程，在這節的講解過程中，我們同時回向了書簽的添加方法，以及利用與用戶交互完成逐步確認的過程。
今日內容回向：
1 在文檔中如何刪除書簽？
2 在代碼中如何讓引號輸出顯示？
分享成果，隨喜正能量
我20多年的VBA實踐經驗，全部濃縮在下面的各個教程及應用工具中：
啥要做這個軟件
軟件獲取方式：私信“word”即可獲取
公中大家都會用到Word，但是在使用的過程中，我們或多或少會遇到一些問題。今天就挑出最典型的幾個問題，教你怎么解決它們。
1、插入圖片顯示不全
大家有沒有遇到這樣的情況，在Word中插入圖片后發現，總是顯示不完整。這樣的情況要怎么解決呢？
解決方法：
其實這個問題解決起來也挺簡單的，只需要點擊段落旁邊的斜箭頭符號，進入「段落設置」中。
再將行距設置為「單倍行距」，點擊「確定」。
這樣一來，圖片完全顯示出來啦！開不開森？
2、圖片或圖形對象無法選擇
想要將Word中的圖片給刪除掉，但是卻發現無法選擇，怎么辦呢？
解決方法：
按「Ctrl + H」打開查找替換，點擊「更多」-「特殊格式」-「圖形」，把替換為設置為空，最后點擊「確定」，圖片就一次性清除啦！
1、表格超出頁面范圍
從網站或者Excel復制表格到Word，結果發現表格超出頁面范圍，部分內容被遮擋了，怎么辦？
解決方法：
點擊表格左上角的按鈕，全選表格，右鍵選擇「自動調整」-「根據窗口自動調整表格」就可以啦！
2、Word表格轉Excel變形
Word和Excel都是辦公中經常用到的工具，很多時候我們需要將Word中的表格給復制到Excel中，但是若復制過去變形了怎么辦呢？
解決方法：
首先，按「F12」鍵，將Word另存為HTML網頁格式。
然后右鍵點擊HTML文件，選擇「打開方式」為「Excel」，你就會發現表格顯示正常啦，不會變形。
1、超鏈接很難清除
你有沒有發現，有時候我們在word中輸入網址或郵箱，它會變成一個藍色的鏈接，若是一個個去掉的話也挺麻煩的。那怎么將它們給批量去掉呢？
解決方法：
首先按「Ctrl + A」選中所有文本，然后按「Ctrl + 6」或者「Ctrl + Shift + 9」鍵，就可以讓所有超鏈接消失啦！
2、空白段落很多如何清除
一般從網上復制文本到Word中，都會出現很多空白段落，看起來不好看，怎么將它們一次性去除呢？
解決方法：
按「Ctrl + H」打開替換框，查找內容輸入2個「^p」，替換內容輸入1個，全部替換，OK。
好啦，以上就是Word使用中的幾個技巧了，你們學會了嗎？
*請認真填寫需求信息，我們會在24小時內與您取得聯系。
