??? https://blog.sciencenet.cn/blog-241374-1024463.html

??? chatgpt3.5

前情提要

論文的標題格式要求為中文一、二、三但是在圖的題注要使用1.1 、2.1這類 。word也有很多插件實現(xiàn)，當然大多數(shù)都需要付費。想到word中可以使用宏，便開始了宏的編寫。
注意事項 \color{red}{注意事項} 注意事項

??? 僅適用于"一.1"轉(zhuǎn)為1.1的情況

??? 打開的文件

??????? 請 先備份 \color{red}{先備份} 先備份打開的文件，避免因word崩潰而使得文檔丟失

??? 刷新

??????? 交叉引用可能不會立即刷新， 需要選中刷新域后按 F 9 進行刷新 {\color{red}{需要選中刷新域后按F9進行刷新}} 需要選中刷新域后按F9進行刷新。 一般來說全選（ C t r l + A ）后按 F 9 {\color{green}{一般來說全選（Ctrl+A）后按F9}} 一般來說全選（Ctrl+A）后按F9即可。

??? 如果你在文中除題注外使用了域代碼{ STYLEREF 1 \s }，請謹慎使用。

實現(xiàn)宏代碼
實現(xiàn)方式

將原文中域代碼{ STYLEREF 1 \s }修改為{QUOTE “一九一一年一月{ STYLEREF 1 \s }日” @“D”}即可將一.1修改為1.1。
宏代碼

Sub ReplaceFieldCode()
'運行此宏前請先進行備份，有丟失文件的風(fēng)險
'在論文中將一.1 修改為1.1
??? Dim myField As Field
??? Dim myRange As Range
??? Dim searchCode As String
??? Dim replaceCode As String
??? Dim addCodeFields As String
??? Dim addCode As String
?? ?
?? ?
??? '查找域中的代碼
??? searchCode = " STYLEREF 1 \s "
??? '替換并添加的代碼
??? replaceCode = "QUOTE ""一九一一年一月"
??? addCodeFields = "1 \s"
??? addCode = "日""\@""D"""
??? test = replaceCode + addCode + addCodeFields + addCode
??? For Each myField In ActiveDocument.Fields
??????? ' Check if the field code contains the search code
??????? If StrComp(myField.Code.Text, searchCode, vbBinaryCompare) = 0 Then
??????????? Set myRange = myField.Code
??????????? '添加域代碼
??????????? t = myRange.Fields.Add(myRange, wdFieldStyleRef, addCodeFields)
??????????? '在域代碼{之前添加文本
??????????? t.MoveStart wdCharacter, -1
??????????? t.InsertBefore replaceCode
??????????? '在域代碼}之后添加文本
??????????? t.MoveEnd wdCharacter, 1
??????????? t.InsertAfter addCode
??????????? ' Update the field
??????????? myField.Update
??????????? ' Print the modified field code in the Debug window
??????????? Debug.Print "Modified field code: " & myField.Code.Text
??????? End If
??? Next myField
End Sub

?

如何使用宏

??? Excel和Word中怎么使用宏？ - pimgeek的回答 - 知乎 https://www.zhihu.com/question/22007011/answer/20868711

??? https://blog.csdn.net/frozleaf/article/details/91785813

簡而言之就是

僅打開需要修改的word ->視圖->宏->查看宏

->創(chuàng)建宏-> 跳出的編輯窗口 ->復(fù)制此文中代碼 ->將編輯窗口代碼全部替換為本代碼

->運行代碼
如何驗證域代碼是否改變

??? 查看word中的宏代碼

??????? Alt + F9

??? 添加域代碼的括號

??????? Ctrl + F9
————————————————
版權(quán)聲明：本文為CSDN博主「奈良如玉」的原創(chuàng)文章，遵循CC 4.0 BY-SA版權(quán)協(xié)議，轉(zhuǎn)載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/qq_44710985/article/details/129757016