草庐IT

xml - 如何在 MS Word 中制作自定义引用样式?

coder 2024-07-01 原文

为了在 MS Word 中制作自定义引用样式,我按照此网页中的说明进行操作 https://msdn.microsoft.com/en-us/vba/word-vba/articles/create-custom-bibliography-styles

并遵循此页面中的步骤:https://blogs.office.com/en-us/2009/04/29/bibliography-citations-102-building-custom-styles/

这两种方法都不起作用,新样式没有出现在 Word 的样式列表中,我有 word 2016。如果有另一种不使用 xsl 创建自定义样式的方法,我想知道怎么做。

最佳答案

我也研究了自定义样式,但放弃了这个想法,就像你说的那样,该方法不起作用(甚至不是每页末尾的最终代码示例)。

我最终使用了 Visual Basic,因为您实际上可以通过这种方式访问​​书目数据,因此您可以使用 VBA 和内容控件重现引用行为。 (我没有复制引文,而是引用书目)

要使用内容控件,您需要在设置中启用开发人员工具。 现在,您插入的内容控件带有与您要引用的来源相对应的标题和标签,而不是实际的引用。 (例如,给它一个像 cit_auto 这样的标题和一个与你的源标签相对应的标签) 您需要在开发人员工具中启用“编辑模式”(?)才能访问控件的属性。

现在,要访问当前文档的来源,您可以使用 ActiveDocument.Bibliography.Sources。要获取所有来源,您可以使用 Application.Bibliography.Sources

请注意,Bibliography.Sources 是一个 Sources 对象,而不是一个 Source 数组。

类似的问题发生在内容控件上。 ActiveDocument.SelectContentControlsByTitle 函数返回一个 ContentControls 对象而不是一个 ContentControl 数组。

两者都可以使用它们的索引进行迭代和访问,但是你不能将它们作为参数传递给它们相应的数组,以防你想模块化代码。

您可以在For Each中迭代ContentControls,通过匹配ContentControl.Tag选择相应的Source > 使用 Source.Field("Tag") 并将 ContentControl.Range.Text 设置为您想要的格式:

Public Sub FillSources()
    'assign variable types to get some form of autocomplete
    Dim cc As ContentControl
    Dim src As Source
    Dim srcs As Sources

    'get sources
    Set srcs = ActiveDocument.Bibliography.Sources

    'iterate through the 'cit-auto' controls
    For Each cc In ActiveDocument.SelectContentControlsByTitle("cit_auto")
        On Error GoTo catch 'pseudo Try
        For Each src In srcs 'look for the source of the citation
            If (src.field("Tag") = cc.Tag) Then
                cc.Range.text = _ 'results in: lastname, firstname: title (day.month.year)
                    src.field("Author/b:Author/b:NameList/b:Person:b/Last") & ", " & _
                    src.field("Author/b:Author/b:NameList/b:Person:b/First") & ": " & _
                    src.field("Title") & " (" & _
                    src.field("Day") & "." & _
                    src.field("Month") & "." & _
                    src.field("Year") & ")"
                End For 'source found, skip to next control
            End If
        Next
        GoTo finally
catch:  'pseudo Catch
        Debug.Print "source " & cc.Tag & " not found"
finally:'pseudo Finally
    Next
    Debug.Print "done"
End Sub

请注意,我没有对此进行测试,它可能会做得更好。

如果缺少字段,Source.Field() 方法将抛出错误并被跳过。 您可以为该方法制作一个包装器,以在出现错误时插入默认值,并使用它来构建您的样式。

如果您需要访问源的其他字段,您可以查看它的.XML 属性,其中包含所有可用数据。您不需要在 xml 第一层的名称上添加 b: 前缀,因为 .field() 方法会在缺少前缀时自动添加它。

我也不知道如何处理多个作者,但也许其他人知道。

关于xml - 如何在 MS Word 中制作自定义引用样式?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49621832/

有关xml - 如何在 MS Word 中制作自定义引用样式?的更多相关文章

  1. ruby - 如何在 Ruby 中顺序创建 PI - 2

    出于纯粹的兴趣,我很好奇如何按顺序创建PI,而不是在过程结果之后生成数字,而是让数字在过程本身生成时显示。如果是这种情况,那么数字可以自行产生,我可以对以前看到的数字实现垃圾收集,从而创建一个无限系列。结果只是在Pi系列之后每秒生成一个数字。这是我通过互联网筛选的结果:这是流行的计算机友好算法,类机器算法:defarccot(x,unity)xpow=unity/xn=1sign=1sum=0loopdoterm=xpow/nbreakifterm==0sum+=sign*(xpow/n)xpow/=x*xn+=2sign=-signendsumenddefcalc_pi(digits

  2. ruby - Facter::Util::Uptime:Module 的未定义方法 get_uptime (NoMethodError) - 2

    我正在尝试设置一个puppet节点,但ruby​​gems似乎不正常。如果我通过它自己的二进制文件(/usr/lib/ruby/gems/1.8/gems/facter-1.5.8/bin/facter)在cli上运行facter,它工作正常,但如果我通过由ruby​​gems(/usr/bin/facter)安装的二进制文件,它抛出:/usr/lib/ruby/1.8/facter/uptime.rb:11:undefinedmethod`get_uptime'forFacter::Util::Uptime:Module(NoMethodError)from/usr/lib/ruby

  3. ruby - 如何在 buildr 项目中使用 Ruby 代码? - 2

    如何在buildr项目中使用Ruby?我在很多不同的项目中使用过Ruby、JRuby、Java和Clojure。我目前正在使用我的标准Ruby开发一个模拟应用程序,我想尝试使用Clojure后端(我确实喜欢功能代码)以及JRubygui和测试套件。我还可以看到在未来的不同项目中使用Scala作为后端。我想我要为我的项目尝试一下buildr(http://buildr.apache.org/),但我注意到buildr似乎没有设置为在项目中使用JRuby代码本身!这看起来有点傻,因为该工具旨在统一通用的JVM语言并且是在ruby中构建的。除了将输出的jar包含在一个独特的、仅限ruby​​

  4. ruby - 什么是填充的 Base64 编码字符串以及如何在 ruby​​ 中生成它们? - 2

    我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案 他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%

  5. ruby-on-rails - 如何从 format.xml 中删除 <hash></hash> - 2

    我有一个对象has_many应呈现为xml的子对象。这不是问题。我的问题是我创建了一个Hash包含此数据,就像解析器需要它一样。但是rails自动将整个文件包含在.........我需要摆脱type="array"和我该如何处理?我没有在文档中找到任何内容。 最佳答案 我遇到了同样的问题;这是我的XML:我在用这个:entries.to_xml将散列数据转换为XML,但这会将条目的数据包装到中所以我修改了:entries.to_xml(root:"Contacts")但这仍然将转换后的XML包装在“联系人”中,将我的XML代码修改为

  6. ruby - 如何使用文字标量样式在 YAML 中转储字符串? - 2

    我有一大串格式化数据(例如JSON),我想使用Psychinruby​​同时保留格式转储到YAML。基本上,我希望JSON使用literalstyle出现在YAML中:---json:|{"page":1,"results":["item","another"],"total_pages":0}但是,当我使用YAML.dump时,它不使用文字样式。我得到这样的东西:---json:!"{\n\"page\":1,\n\"results\":[\n\"item\",\"another\"\n],\n\"total_pages\":0\n}\n"我如何告诉Psych以想要的样式转储标量?解

  7. ruby-on-rails - Rails 3.2.1 中 ActionMailer 中的未定义方法 'default_content_type=' - 2

    我在我的项目中添加了一个系统来重置用户密码并通过电子邮件将密码发送给他,以防他忘记密码。昨天它运行良好(当我实现它时)。当我今天尝试启动服务器时,出现以下错误。=>BootingWEBrick=>Rails3.2.1applicationstartingindevelopmentonhttp://0.0.0.0:3000=>Callwith-dtodetach=>Ctrl-CtoshutdownserverExiting/Users/vinayshenoy/.rvm/gems/ruby-1.9.3-p0/gems/actionmailer-3.2.1/lib/action_mailer

  8. ruby-on-rails - 如何在 ruby​​ 中使用两个参数异步运行 exe? - 2

    exe应该在我打开页面时运行。异步进程需要运行。有什么方法可以在ruby​​中使用两个参数异步运行exe吗?我已经尝试过ruby​​命令-system()、exec()但它正在等待过程完成。我需要用参数启动exe,无需等待进程完成是否有任何ruby​​gems会支持我的问题? 最佳答案 您可以使用Process.spawn和Process.wait2:pid=Process.spawn'your.exe','--option'#Later...pid,status=Process.wait2pid您的程序将作为解释器的子进程执行。除

  9. ruby - 如何在续集中重新加载表模式? - 2

    鉴于我有以下迁移:Sequel.migrationdoupdoalter_table:usersdoadd_column:is_admin,:default=>falseend#SequelrunsaDESCRIBEtablestatement,whenthemodelisloaded.#Atthispoint,itdoesnotknowthatusershaveais_adminflag.#Soitfails.@user=User.find(:email=>"admin@fancy-startup.example")@user.is_admin=true@user.save!ende

  10. ruby-on-rails - form_for 中不在模型中的自定义字段 - 2

    我想向我的Controller传递一个参数,它是一个简单的复选框,但我不知道如何在模型的form_for中引入它,这是我的观点:{:id=>'go_finance'}do|f|%>Transferirde:para:Entrada:"input",:placeholder=>"Quantofoiganho?"%>Saída:"output",:placeholder=>"Quantofoigasto?"%>Nota:我想做一个额外的复选框,但我该怎么做,模型中没有一个对象,而是一个要检查的对象,以便在Controller中创建一个ifelse,如果没有检查,请帮助我,非常感谢,谢谢

随机推荐