写论文时有哪些格式和绘图上的奇思技巧？（二）

\newcommand{\myalg}{NIMLE}
\newcommand{\AND}{\&{}}

...

This paper proposed a novel algorithm named \myalg. ...

0xFF \AND 0xEF ...

{ DOCVARIABLE sym }

Sub UpdateVariable()
    ' Clear variables
    For Each Var In ActiveDocument.Variables
        Var.Delete
    Next

    ' Set the file path
    Dim MyFile As Object
    Set MyFile = CreateObject("Scripting.FileSystemObject")
    
    Dim FilePath As String
    FilePath = ActiveDocument.Path & "\Symbols.xlsx"
    
    ' If can't find the file, show error message and exit sub
    If Not MyFile.FileExists(FilePath) = True Then
        MsgBox "Can't find file: Symbols.xlsx", Title:="Error"
        Exit Sub
    End If
    
    ' Read the excel file "Symbols.xlsx"
    Dim ExcelObject As Object
    Set ExcelObject = GetObject(FilePath)
    Set Table = ExcelObject.Sheets(1).UsedRange()
    
    For i = 1 To Table.Rows.Count
        V1 = Table.Cells(i, 1).Text
        V2 = Table.Cells(i, 2).Text
        ActiveDocument.Variables.Add Name:=V1, Value:=V2
    Next
    
    ' Update field
    ActiveDocument.Fields.Update
    
End Sub
Sub InsertSymbol()
    ' Show inputbox
    Symbol = InputBox("Input symbol")
    ' Insert field
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    ' Insert parameter
    Selection.TypeText Text:="DOCVARIABLE " & Symbol
    
    ' Update field
    ActiveDocument.Fields.Update
End Sub

FilePath = ActiveDocument.Path & "\Symbols.xlsx"