Как сделать цитаты в документе Word надстрочными?

Как сделать цитаты в документе Word надстрочными?

При цитировании в стиле Ванкувера цитаты чаще отображаются как 1 или (1), а не как (1), как в Word по умолчанию, при использовании встроенного менеджера цитат.

Есть ли способ заставить Word отображать их в этом альтернативном формате? Этот сайткажется, что нет, однако мне интересно, есть ли у кого-нибудь здесь какие-либо мысли? Я не против изменения стиля цитирования в файлах программы, я просто был бы признателен за совет о том, как это сделать, предполагая, что нет простого исправления того, что я упускаю.

решение1

Встроенный справочный инструмент Word имеет стиль под названием «IEEE», который имеет похожие ссылки, за исключением того, что номер не указан в верхнем индексе. Формат IEEE

Чтобы сделать цитату надстрочной, вам следует изменить файл стиля, который находится в %APPDATA%\Microsoft\Bibliography\Styleпапке.
Сделайте резервную копию IEEE2006OfficeOnline.xslфайла и найдите строку <xsl:template name="Citation">.
В этом сегменте вы можете найти <body>и </body>, изменить их на <body><xsl:element name="sup">и </xsl:element></body>.
Тогда цитата будет выглядеть следующим образом. измененный формат IEEE

решение2

Я пришел к выводу, что в текущей версии Word это напрямую сделать невозможно.

Обходной путь, который я использую в настоящее время, и который также является гораздо более совершенным решением по сравнению со встроенной системой ссылок в Word в целом, заключается в управлении ссылками черезКонечная заметка X6. Хотя созданные библиографии менее привлекательны, они лучше отформатированы и их легче настраивать.

Но самое важное, и по причинам, в которых я не совсем уверен, цитата в конце примечания «Цитировать во время написания» остается надстрочным текстом во время редактирования и печати, если вы укажете сделать это только один раз для каждой цитаты.

Я все еще ищу способ сделать этот стиль стилем по умолчанию в End Note.

решение3

У меня та же проблема, но я обнаружил, что некоторые ютуберы создают макрос, чтобы все цитаты были надстрочными. Чтобы использовать его, просто используйте инструмент цитирования Word, чтобы добавить новую цитату, а затем запустите функцию макроса.

Слава Исмаилу Фахми:https://www.youtube.com/watch?v=56HWKBuM-zg

Вот код

Sub ReferenceNumberStyle()
Application.ScreenUpdating = False
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
  If Fld.Type = wdFieldCitation Then
    Fld.Code.Font.ColorIndex = wdBlack
    Fld.Code.Font.Superscript = True
    Fld.Result.Font.ColorIndex = wdBlack
    Fld.Result.Font.Superscript = True
  End If
Next
Application.ScreenUpdating = True
End Sub

Проверено. У меня работает в Word 2019

решение4

Я думаю, Word использует специальный стиль для отображения цитат, и вы можете физически изменить этот стиль.

Связанный контент