有一種epub文件，其中的注釋以彈窗形式顯示，如下圖：

點擊注釋引用后，對應(yīng)的注釋內(nèi)容會彈出在頁面中顯示，再次點擊彈窗外的任意位置該彈窗即關(guān)閉，關(guān)閉后點擊任意注釋引用，對應(yīng)的注釋內(nèi)容會彈窗顯示。

實現(xiàn)彈出式注釋可以用CSS偽類、JavaScript、img標(biāo)簽的alt屬性等各種方法，例如此文將帶注釋的Word文檔改造成點擊注釋引用即可彈窗顯示注釋的HTML文檔-CSDN博客即給出了一種JavaScript實現(xiàn)的方式。但是這些方式往往在PC上效果不錯，但在手機、平板等設(shè)備上就沒法彈出了。實際上，根據(jù)epub3規(guī)范，一個epub文檔中的html文件如果符合以下范式即自動支持如上圖的彈出式注釋：

1、html標(biāo)簽中引入epub命名空間，如下：

<html?xmlns="http://www.w3.org/1999/xhtml"?xmlns:epub="http://www.idpf.org/2007/ops">

2、注釋引用標(biāo)簽（一般用a標(biāo)簽）加入epub:type="noteref"屬性，且注釋引用的鏈接目標(biāo)為對應(yīng)的注釋內(nèi)容；

3、注釋內(nèi)容標(biāo)簽（可用div、aside等）加入epub:type="footnote"屬性。

這種實現(xiàn)方法不依賴任何CSS或JavaScript，不但在PC上效果不錯，在許多支持epub3標(biāo)準(zhǔn)的手機電子書閱讀APP上（例如靜讀天下、漢王墨水屏自帶讀書APP等）也能彈出顯示注釋，免除頁面跳轉(zhuǎn)的麻煩，因此是首選方法。

現(xiàn)在我們將用VBA自動更正錯誤的注釋引用序號-CSDN博客處理好注釋引用與注釋編號的文檔改造成符合上述規(guī)范的html文件所需內(nèi)容。為便于處理，我們首先在每個詩標(biāo)題前插入一個連續(xù)型分節(jié)符，代碼如下：

Sub 在符合條件的段落前插入分節(jié)符()Dim pos As Long, styleName$styleName = "標(biāo)題 3"With Selection.HomeKey wdStory '光標(biāo)回到文檔開頭，此時Selection.Start為0Dopos = .Start '先記錄光標(biāo)位置.GoTo wdGoToHeading, wdGoToNext, 1 '向后移動到下一個標(biāo)題，以標(biāo)題為對象遍歷文檔If .Start = pos Then Exit Do ' 光標(biāo)位置不變則已遍歷完所有標(biāo)題，退出循環(huán)If .Paragraphs(1).Style = styleName Then.InsertBreak Type:=wdSectionBreakContinuous ' 連續(xù)型分節(jié)符End IfLoopEnd WithEnd Sub

然后用下面的代碼將處理好的word文檔內(nèi)容修改成html文件所需內(nèi)容：

Sub txt2epubhtml()' 方便多數(shù)手機epub閱讀器閱讀，PC閱讀效果也好，無需css配合Dim aSec As Section, chapter%, regStr$, i%, j%, href$, paraTxt$Dim searchRange As Range, refRange As RangeDim regEx As RegExp, match, matches As ObjectregStr = "[\u2460-\u2473]"Set regEx = CreateObject("VBScript.RegExp")With regEx.Global = True.ignoreCase = True.Pattern = regStr 'End WithFor Each aSec In ActiveDocument.Sectionschapter = chapter + 1i = 0Set searchRange = aSec.RangeSet matches = regEx.Execute(searchRange.Text) ' 在搜索范圍內(nèi)執(zhí)行匹配操作For j = 0 To matches.Count / 2 - 1Set refRange = searchRangeWith refRange.Find.Text = matches(j).Value.Wrap = 1 ' wdFindContinue.Execute ' 找到注釋引用If refRange.Find.found Theni = i + 1href = "c" & Format(chapter, "000") & "_" & Trim(Str(i))refRange.Text = "<a id=""ref_" & href & """ epub:type=""noteref"" href=""#" & href & """><sup>" & _refRange.Text & "</sup></a>"refRange.SetRange refRange.End, searchRange.End' 向下找到與已找到的注釋引用對應(yīng)的注釋編號.Forward = True.Execute' 改為向上查找，找到下一條注釋引用.Forward = FalserefRange.SelectIf refRange.Find.found ThenparaTxt = refRange.Paragraphs(1).Range.TextrefRange.Paragraphs(1).Range.Text = "<aside epub:type=""footnote"" id=""" & _href & """><a href=""#ref_" & href & """>" & Left(paraTxt, 1) & "</a>" _& Mid(paraTxt, 2, Len(paraTxt) - 2) & "</aside>" & vbCrLfElseMsgBox "找不到對應(yīng)的注釋內(nèi)容，請檢查文檔"Exit SubEnd IfEnd IfEnd WithNext jNext aSecDim ps As ObjectSet ps = ActiveDocument.ParagraphsFor i = 1 To ps.CountparaTxt = ps(i).Range.Text' 防止樣式為標(biāo)題3的分節(jié)符影響輸出，并防止包裹<aside>標(biāo)簽If ps(i).Style = "標(biāo)題 3" And Len(paraTxt) > 1 And Left(paraTxt, 6) <> "<aside" Thenps(i).Range.Text = "<h3>" & Left(paraTxt, Len(paraTxt) - 1) & "</h3>" & vbCrLfElseIf ps(i).Style = "標(biāo)題 4" And Len(paraTxt) > 1 Thenps(i).Range.Text = "<h4>" & Left(paraTxt, Len(paraTxt) - 1) & "</h4>" & vbCrLf' 防止空白段落影響輸出，并防止包裹<aside>標(biāo)簽ElseIf ps(i).Style = "正文" And Len(paraTxt) > 1 And Left(paraTxt, 6) <> "<aside" Thenps(i).Range.Text = "<p class=""normaltext"">" & Left(paraTxt, Len(paraTxt) - 1) & "</p>" & vbCrLfEnd IfNext i
End Sub

經(jīng)過上面的處理，Word文檔中的文本變成了如下內(nèi)容：

<h3>落日前墟望贈范廣州雲(yún)</h3>
<p class="normaltext">緣溝緑草蔓，扶楥雜華舒<a id="ref_c001_1" epub:type="noteref" href="#c001_1"><sup>①</sup></a>。輕煙淡柳色，重霞映日餘<a id="ref_c001_2" epub:type="noteref" href="#c001_2"><sup>②</sup></a>。遙遙長路遠(yuǎn)<a id="ref_c001_3" epub:type="noteref" href="#c001_3"><sup>③</sup></a>，寂寂行人疏<a id="ref_c001_4" epub:type="noteref" href="#c001_4"><sup>④</sup></a>。我心懷碩德，思欲命輕車<a id="ref_c001_5" epub:type="noteref" href="#c001_5"><sup>⑤</sup></a>。高門盛游侶，誰肯進(jìn)畋漁<a id="ref_c001_6" epub:type="noteref" href="#c001_6"><sup>⑥</sup></a>？</p>
<h4>【題解】</h4>
<p class="normaltext">本篇見《詩紀(jì)》八三?！端囄念惥邸啡粌H載有該詩的前六句，且題作《落日贈范岫》。范廣州雲(yún)，即范雲(yún)。詳前《酬范記室雲(yún)》説明。據(jù)《南齊書·東昏侯紀(jì)》載，范雲(yún)於永元元年（四九九）六月，由始興內(nèi)史任遷廣州刺史。而據(jù)《梁書》本傳，范在廣州刺史任上“坐徵還下獄，會赦免”。另據(jù)《南齊書·東昏侯紀(jì)》載，永元元年十月，以始興內(nèi)史顏翻爲(wèi)廣州刺史。由此可知，范雲(yún)在廣州前後不及半年。並由此推知，此詩應(yīng)作於永元元年（四九九）中。</p>
<p class="normaltext">王夫之云：“寄婉於促，如笙聲之音。雖非琴瑟，正自瑯然動人。（《古詩評選》）</p>
<h4>【校注】</h4>
<aside epub:type="footnote" id="c001_1"><a href="#ref_c001_1">①</a>“緣溝”二句：緣，沿。蔓。滋長。扶，沿。楥，籬笆。雜華，雜花，各種各樣的花。《文選》四三丘希範(fàn)（遲）《與陳伯之書》：“暮春三月，江南草長，雜花生樹，群鶯亂飛。”舒，開放。二句言春日草緣溝生長，花傍籬笆盛開。</aside>
<aside epub:type="footnote" id="c001_2"><a href="#ref_c001_2">②</a>“輕煙”二句：輕煙，指暮靄。重霞，謂色彩濃重的晚霞。映，《類聚》作“掩”。日餘，謂落日餘暉。二句言翠碧的楊柳在暮靄中隱去，落日餘暉使晚霞更加絢麗。</aside>
<aside epub:type="footnote" id="c001_3"><a href="#ref_c001_3">③</a>遠(yuǎn)：《類聚》作晚。</aside>
<aside epub:type="footnote" id="c001_4"><a href="#ref_c001_4">④</a>疏：稀少。</aside>
<aside epub:type="footnote" id="c001_5"><a href="#ref_c001_5">⑤</a>我心”二句：碩德，大德。碩，大。輕車，輕便之車。二句言我常感懷您知遇之德，打算前往廣，州探望。</aside>
<aside epub:type="footnote" id="c001_6"><a href="#ref_c001_6">⑥</a>“高門”二句：高門，高貴之門，對范雲(yún)住處的敬稱。盛，多。游侶，交游的友人。進(jìn)，引薦。畋，通“佃”耕種。漁，捕魚?！渡袝ざ喾健?#xff1a;“今爾尚爾宅，畋爾田?！笨追f達(dá)疏：“治田謂之畋，猶捕魚謂之漁?！鳖睗O，從事種田捕魚的人，是詩人自謙之詞。漁，張紘本作“魚”。二句承上言：但考慮到彼處高朋甚多，誰肯引進(jìn)我這村野農(nóng)夫呢？</aside><h3>范廣州宅聯(lián)句</h3>
<p class="normaltext">洛陽城東西，卻作經(jīng)年別<a id="ref_c002_1" epub:type="noteref" href="#c002_1"><sup>①</sup></a>。昔去雪如花，今來花似雪。<a id="ref_c002_2" epub:type="noteref" href="#c002_2"><sup>②</sup></a>雲(yún)濛濛夕煙起，奄奄殘暉滅<a id="ref_c002_3" epub:type="noteref" href="#c002_3"><sup>③</sup></a>。遜非君愛滿堂，寧我安車轍<a id="ref_c002_4" epub:type="noteref" href="#c002_4"><sup>④</sup></a>。</p>
<h4>【題解】</h4>
<p class="normaltext">本篇見《詩紀(jì)》八四?！端囄念惥邸范沤劐h前四句，即范雲(yún)詩，題作《別詩》，江本題作《范廣州聯(lián)句》。唐詩人李商隱的詩曾兩用其事，《詩話補遺》云：“何遜與范雲(yún)聯(lián)句詩云：·李商隱《送王校書分司詩》云：“多少分曹掌祕書，洛陽花雪夢隨君。定知何遜緣聯(lián)句，每到城東憶范雲(yún)?！庇帧堵梢唤~》云：“不妨何范盡名家，未解當(dāng)年重物華。遠(yuǎn)把龍山千里雪，將來擬並洛陽花。”二詩皆用此事。”這說明此詩敘別頗有特色。此詩應(yīng)爲(wèi)范雲(yún)由廣州刺史任坐事徵還、赦免之後所作，時約在永元二年（五○○）任國子博士之前。</p>
<h4>【校注】</h4>
<aside epub:type="footnote" id="c002_1"><a href="#ref_c002_1">①</a>“洛陽”二句：洛陽，即今河南洛陽市。因其爲(wèi)西晉都城，南朝人常借指京都建康。經(jīng)年，常年。二句言咱們二人雖然住在京城的東西兩面，相距並不算遠(yuǎn)，但卻常年不得見面。</aside>
<aside epub:type="footnote" id="c002_2"><a href="#ref_c002_2">②</a>“昔去”二句：雪如花，謂冬季；花似雪，言春日?！对姟ば⊙拧げ赊薄酚性?#xff1a;“昔我往矣，楊柳依依。今我來思，雨雪霏霏?！贝颂幓闷湟?#xff0c;言去年你離去時是大雪紛飛的冬天，今年再來卻是春花爛漫的季節(jié)了。</aside>
<aside epub:type="footnote" id="c002_3"><a href="#ref_c002_3">③</a>“濛濛”二句：濛濛，雲(yún)氣迷茫貌。同“蒙蒙”?！冻o·九思·憫上》：“雲(yún)蒙蒙兮電倏爍，孤雌驚兮鳴呴呴?！痹]：“蒙，一作‘濛’?！毕?#xff0c;暮靄。奄奄，日落昏闇貌。李密《陳情表》：“日薄西山，氣息奄奄?！睔垥?#xff0c;落日餘暉。二句寫來時暮靄乍起，太陽落山。</aside>
<aside epub:type="footnote" id="c002_4"><a href="#ref_c002_4">④</a>“非君”二句：用漢陳遵事，《漢書·陳遵傳》説：“遵耆（嗜酒，每大飲，賓客滿堂，輒關(guān)門，取客車轄投井中，雖有急，終不得去?！睗M，原文誤作，蒲”，據(jù)張紘本、薛本改。二句言如不是您如此好客，我怎能在您門外停下車子呢。</aside><h3>望廨前水竹答崔録事</h3>
<p class="normaltext">蕭蕭叢竹映，淡淡平湖靜<a id="ref_c003_1" epub:type="noteref" href="#c003_1"><sup>①</sup></a>。葉倒?jié)i漪文，水漾檀樂影<a id="ref_c003_2" epub:type="noteref" href="#c003_2"><sup>②</sup></a>。相思不會面，相望空延頸<a id="ref_c003_3" epub:type="noteref" href="#c003_3"><sup>③</sup></a>。遠(yuǎn)天去浮雲(yún)，長墟斜落景<a id="ref_c003_4" epub:type="noteref" href="#c003_4"><sup>④</sup></a>。幽疴與歲積，賞心隨事屏<a id="ref_c003_5" epub:type="noteref" href="#c003_5"><sup>⑤</sup></a>。鄉(xiāng)念一邅回<a id="ref_c003_6" epub:type="noteref" href="#c003_6"><sup>⑥</sup></a>，白髮生俄頃。</p>
<h4>【題解】</h4>
<p class="normaltext">本篇見《詩紀(jì)》八三，題下注：“《拾遺》作顧則心詩。張紘本、薛本等各本均載録此詩，説明不同意《選詩拾遺》的意見。廨，公廨，即官署。水竹，謂水邊之竹。崔録事，指崔慰祖。崔慰祖（四六五—四九九）字悅宗，清河武城（今山東武城縣）人。據(jù)《南齊書》本傳，崔慰祖齊時曾任始安王（蕭遙光）撫軍墨曹行參軍，轉(zhuǎn)刑獄，兼記室?！赌淆R書·百官志·四鎮(zhèn)將軍》：“凡公督府置佐：長史、司馬各一人.諸曹有録事、記室。録事，録事參軍的簡稱。晉置官。掌總録衆(zhòng)官府文簿，舉彈善惡。此爲(wèi)對崔慰祖的敬稱。崔死於永元元年（四九九），則此詩不得晚於此時可知；崔任始安王記室是蕭遙光任撫軍將軍之時，即建武二年（四九五），則知此詩應(yīng)作於建武二年至永元元年之間（四九五—四九九）。</p>
<h4>【校注】</h4>
<aside epub:type="footnote" id="c003_1"><a href="#ref_c003_1">①</a>“蕭蕭”二句：蕭蕭，竹影扶疏之狀。淡淡，水平滿貌。二句謂在平靜的湖面上倒映著扶疏秀美的竹影。</aside>
<aside epub:type="footnote" id="c003_2"><a href="#ref_c003_2">②</a>“葉倒”二句：漣漪文，水面被撞擊泛起的連瑣般的波紋。漪，托聲字，猶兮。文，同“紋”。《詩·魏風(fēng)·伐檀》：“河水清且漣漪?！碧礄?#xff0c;秀美貌，多形容竹?！端囄念惥邸妨迕冻恕读和跬脠@賦》：“修竹檀欒，夾池水旋。”檀樂影，即秀美的竹影。二句承上言風(fēng)一吹，竹葉蘸著水面泛起漣漪波紋，美好的竹影便消失了。</aside>
<aside epub:type="footnote" id="c003_3"><a href="#ref_c003_3">③</a>延頸：伸長脖頸，翹盼綦切之狀。</aside>
<aside epub:type="footnote" id="c003_4"><a href="#ref_c003_4">④</a>“遠(yuǎn)天”二句：去，離去，謂漸漸落下。長墟，謂村落。景，日光。二句寫傍晚“延頸”佇望的情景：殘霞將盡，落日餘暉，思友不至，更增惆悵。</aside>
<aside epub:type="footnote" id="c003_5"><a href="#ref_c003_5">⑤</a>“幽疴”二句：幽疴，猶沉疴。疴，病。王本作“疴”。與歲積，謂一年年加重。賞心，心意歡樂?！段倪x》三〇謝靈運《田南樹園激流植援》：“賞心不可忘，妙善冀能同?！逼?#xff0c;去。二句謂病體日漸沉重，難得有賞心樂事。</aside>
<aside epub:type="footnote" id="c003_6"><a href="#ref_c003_6">⑥</a>邅回：徘徊?！冻o·九歎·怨思》：“寧浮沅而馳騁兮，下江湘以邅回。”鄉(xiāng)念邅回，謂思鄉(xiāng)的愁苦反復(fù)煎熬著自己。</aside>

只需要將上述內(nèi)容拷貝到如下的HTML模板的body標(biāo)簽內(nèi)部，及成為了符合epub3標(biāo)準(zhǔn)的彈出顯示注釋的HTML文檔：

<html xmlns="http://www.w3.org/1999/xhtml" xmlns:epub="http://www.idpf.org/2007/ops"><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type" />	</head><body>
<!--注釋引用和注釋內(nèi)容標(biāo)簽帶有規(guī)定的epub:type屬性且鏈接目標(biāo)正確的HTML文本復(fù)制到此處-->
</body></html>

因為掃描文檔在Word中校核并編輯出結(jié)構(gòu)比較方便，因此以上通過VBA來處理Word中的文本，實際上，如果弄清了epub3標(biāo)準(zhǔn)的彈窗顯示注釋的要求，對不符合標(biāo)準(zhǔn)的Epub/HTML文件，也可以利用python的soup庫進(jìn)行修改，使其符合標(biāo)準(zhǔn)，那又是另一個主題了。