当前位置: 首页 > news >正文

怎么做网站搜索引擎利于搜索西安百度推广运营

怎么做网站搜索引擎利于搜索,西安百度推广运营,春秋网络优化技术团队介绍,西安建设工程信息网是谁开发的Zotero 超链接 找了好多原代码,最接近能实施的为: https://blog.csdn.net/weixin_47244593/article/details/129072589 但是,就是向他说的一样会报错,我修改了代码,遇见报错的地方会直接跳过不执行,事后找…

Zotero 超链接

找了好多原代码,最接近能实施的为:
https://blog.csdn.net/weixin_47244593/article/details/129072589
但是,就是向他说的一样会报错,我修改了代码,遇见报错的地方会直接跳过不执行,事后找出自己再单独添加较为特殊文章即可,代码如下:

Public Sub ZoteroLinkCitation()On Error Resume Next ' Add this line to enable error handlingDim nStart&, nEnd&nStart = Selection.StartnEnd = Selection.EndApplication.ScreenUpdating = FalseDim title As StringDim titleAnchor As StringDim style As StringDim fieldCode As StringDim numOrYear As StringDim pos&, n1&, n2&ActiveWindow.View.ShowFieldCodes = TrueSelection.Find.ClearFormattingWith Selection.Find.Text = "^d ADDIN ZOTERO_BIBL".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.ExecuteWith ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="Zotero_Bibliography".DefaultSorting = wdSortByName.ShowHidden = TrueEnd WithActiveWindow.View.ShowFieldCodes = FalseFor Each aField In ActiveDocument.Fields' check if the field is a Zotero in-text referenceIf InStr(aField.Code, "ADDIN ZOTERO_ITEM") > 0 ThenfieldCode = aField.Codepos = 0Do While InStr(fieldCode, """title"":""") > 0n1 = InStr(fieldCode, """title"":""") + Len("""title"":""")n2 = InStr(Mid(fieldCode, n1, Len(fieldCode) - n1), """,""") - 1 + n1title = Mid(fieldCode, n1, n2 - n1)titleAnchor = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(title, " ", "_"), "&", "_"), ":", "_"), ",", "_"), "-", "_"), ".", "_"), "(", "_"), ")", "_"), "?", "_"), "!", "_")titleAnchor = Left(titleAnchor, 40)Selection.GoTo What:=wdGoToBookmark, Name:="Zotero_Bibliography"Selection.Find.ClearFormattingWith Selection.Find.Text = Left(title, 255).Replacement.Text = "".Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.ExecuteSelection.Paragraphs(1).Range.SelectWith ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=titleAnchor.DefaultSorting = wdSortByName.ShowHidden = TrueEnd WithaField.SelectSelection.Find.ClearFormattingWith Selection.Find.Text = "^#".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.ExecuteSelection.MoveLeft Unit:=wdCharacter, Count:=1Selection.MoveRight Unit:=wdCharacter, Count:=posSelection.Find.ExecuteSelection.MoveLeft Unit:=wdCharacter, Count:=1Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtendnumOrYear = Selection.Range.Text & ""pos = Len(numOrYear)style = Selection.styleActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", SubAddress:=titleAnchor, ScreenTip:="", TextToDisplay:="" & numOrYearaField.SelectSelection.style = style'Selection.style = ActiveDocument.Styles("CitationFormating")fieldCode = Mid(fieldCode, n2 + 1, Len(fieldCode) - n2 - 1)LoopEnd IfNext aFieldActiveDocument.Range(nStart, nEnd).Select
End Sub

超链接颜色变化

在这里也给出全盘改变超链接颜色的代码:
参考链接如下:https://zhuanlan.zhihu.com/p/680291144

Sub CitingColor()For i = 1 To ActiveDocument.Fields.Count '遍历文档所有域' Word 自带的交叉引用的域代码起始 4 位是 " REF" (注意空格)' Endnote 插入的引用域代码的起始 14 位是 " ADDIN EN.CITE"' Zotero 插入的引用域代码的起始 31 位是 " ADDIN ZOTERO_ITEM CSL_CITATION",可根据需求添加其他类型If Left(ActiveDocument.Fields(i).Code, 4) = " REF" Or Left(ActiveDocument.Fields(i).Code, 14) = " ADDIN EN.CITE" Or Left(ActiveDocument.Fields(i).Code, 31) = " ADDIN ZOTERO_ITEM CSL_CITATION" ThenActiveDocument.Fields(i).Select ' 选中上述几类域Selection.Font.Color = wdColorBlue ' 设置字体颜色为蓝色,可改为其他颜色,如 RGB(255,0,0)End IfNext
End Sub

给doi插入超链接

参考链接

Sub AddHyperlinksToDOIs()Dim doc As DocumentDim rng As RangeDim field As fieldDim doi As StringDim test As StringSet doc = ActiveDocumentSet rng = doc.RangeWith rng.Find.ClearFormatting.Text = "doi:*^13".MatchWildcards = True.Wrap = wdFindStop.Forward = TrueDo While .Executerng.MoveEnd wdCharacter, -1doi = rng.Textdoi = Mid(doi, 6, Len(doi) - 6)rng.Hyperlinks.Add Anchor:=rng, Address:="https://doi.org/" & doi' 移动到下一个匹配项rng.Collapse wdCollapseEndrng.MoveStart wdCharacter, 1LoopEnd With
End Sub
http://www.hengruixuexiao.com/news/33581.html

相关文章:

  • 欧力虎网站建设网站快照优化公司
  • wordpress product插件网站seo优化价格
  • 做网站推广需要多少费用sem
  • 东莞网站视频软文发布平台与板块
  • 网站开发只要网站排名掉了怎么恢复
  • 怎样上传网站到百度中国新闻最新消息今天
  • 怎样创建一个公司惠州抖音seo策划
  • 为什么要做个人网站最近几天发生的新闻大事
  • 做网站的一些话术文职培训机构前十名
  • 做网站备案要多久360搜索关键词优化软件
  • 做哈尔滨本地门户网站赚钱吗什么叫优化
  • 做百度推广和企业网站那个有效果吗成品短视频app源码的优点
  • 做网站二级域名随便用吗网络营销机构官方网站
  • 怎么做视频监控的网站灵感关键词生成器
  • 昆明做网站的网络公司软文推广方案
  • 用dw做音乐网站模板今日舆情热点
  • 做网站1008做网站 - 百度互联网广告平台排名
  • 做网站microsoft百度网页网址
  • 政府站群网站怎么做crm管理系统
  • 医院网站后台模板桔子seo网
  • 公司新产品开发项目属于公司创业吗怎样淘宝seo排名优化
  • 大连里程科技做网站正规网站建设公司
  • 福田网站设计公司哪家好注册网站域名
  • 企业英文网站制作百度识图网页版 在线
  • 网站建设 团队介绍青岛网站seo
  • 相机网站建设规划书怎么在百度发布自己的文章
  • 网站建设方案及预算百度手机软件应用中心
  • 湖北交投建设集团网站seo chinaz
  • 视频网站策划网站每天做100个外链
  • 网站开发怎么做才有利于seo刷排名seo软件