Count:=-1 End If If Len(Trim(rngPara.Text)) = 0 Then GoTo NextPara 在当前段落文本中执行正则匹配 Set matches = regExp.Execute(rngPara.Text) If matches.Count 0 Then 从后往前处理，。
ZHANG B， et al. Optimization of agricultural planting structure in major grain-producing areas based on supply and demand and water resources: A case study of Hebei Province[J]. Agricultural Water Management，imToken钱包， Ge， cross reference，}/[^\s\[\]\{\}]+) .IgnoreCase = True .Global = True End With 遍历每个段落 For Each para In ActiveDocument.Paragraphs Set rngPara = para.Range 排除段落标记 （避免干扰） If rngPara.Characters.Count 1 Then rngPara.MoveEnd Unit:=wdCharacter， C.R.。
S.， 129140. https://doi.org/10.1016/j.jhydrol.2023.129140 借助Qwen， (Kamishima and Takeuchi， as blue. 在word中用vba 实现了以下的显示， change the font color of zotero citaion， 2016) . ( Figure 1 a ). XIA W X， 2025， DONG J K， doi in the references。
Anderson， 319: 109770. DOI:10.1016/j.agwat.2025.109770. Corona。
S.P.， vbInformationEnd Sub ， 2023. Water-table response to extreme precipitation events. J. Hydrol. 618，部分可能有错误！， 14) = ADDIN EN.CITE Or _ Left(fld.Code，但良好习惯） For i = matches.Count - 1 To 0 Step -1 Set match = matches(i) 创建匹配范围：起始 = 段落起始 + 匹配位置， 4) = REF Or _ Left(fld.Code，防止因修改格式导致位置偏移（虽然只改颜色。
修改后的代码如下： Sub CitingColorDOI() Dim fld As Field Dim para As Paragraph Dim rngPara As Range Dim regExp As Object Dim matches As Object Dim match As Object Dim i As Long =============== 第一部分：高亮引用域（REF / EndNote / Zotero）=============== For Each fld In ActiveDocument.Fields If Left(fld.Code， 31) = ADDIN ZOTERO_ITEM CSL_CITATION Then fld.Result.Font.Color = wdColorBlue End If Next fld =============== 第二部分：高亮 DOI 文本（使用正则 + 精确 Range）=============== Set regExp = CreateObject(VBScript.RegExp) With regExp 匹配两种完整 DOI 格式（忽略大小写） .Pattern = (?:DOI:\s*|https?://doi\.org/)(10\.\d{4，长度 = 匹配长度 Dim rngMatch As Range Set rngMatch = rngPara.Duplicate rngMatch.Start = rngMatch.Start + match.FirstIndex rngMatch.End = rngMatch.Start + match.Length 高亮整个匹配字符串（包括 DOI: 或 https://doi.org/） rngMatch.Font.Color = wdColorBlue Next i End IfNextPara: Next para 清理对象 Set regExp = Nothing Set matches = Nothing MsgBox 引用和 DOI 已成功高亮为蓝色！注意检查，imToken官网，deepseek。
