Verbatim与Bacground&TikZ兼容性问题

Question

如果在 MWE 下进行编译，您将收到以下错误：

根据错误消息，问题出tikz在calc库包上，看起来像是与background包的链接。此外，在错误消息中读取的 MWE 代码中找不到任何美元符号。

问题是什么？

\documentclass[a4paper,twoside]{article}

\usepackage{background}

\begin{document}
\begin{verbatim}
Sub test3()
' test3 Macro
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    With Selection.OMaths(1).Functions.Add(Selection.Range, _
        wdOMathFunctionDelim, 1)
        .Delim.BegChar = 9001
        .Delim.SepChar = 0
        .Delim.EndChar = 9002
        .Delim.Grow = True
        .Delim.Shape = wdOMathShapeCentered
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Font.Italic = wdToggle
    Selection.Font.Name = "ＭＳ ゴシック"
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="test3()"
    Selection.Font.Bold = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
End Sub

Sub test2()
' test2 Macro
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    With Selection.OMaths(1).Functions.Add(Selection.Range, _
        wdOMathFunctionDelim, 1)
        .Delim.BegChar = 9001
        .Delim.SepChar = 0
        .Delim.EndChar = 9002
        .Delim.Grow = True
        .Delim.Shape = wdOMathShapeCentered
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Font.Italic = wdToggle
    Selection.Font.Name = "ＭＳ ゴシック"
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="test2()"
    Selection.Font.Bold = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
End Sub

Sub Test1()
' Test1 Macro
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    With Selection.OMaths(1).Functions.Add(Selection.Range, _
        wdOMathFunctionDelim, 1)
        .Delim.BegChar = 9001
        .Delim.SepChar = 0
        .Delim.EndChar = 9002
        .Delim.Grow = True
        .Delim.Shape = wdOMathShapeCentered
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Font.Italic = wdToggle
    Selection.Font.Name = "ＭＳ ゴシック"
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="Test1()"
    Selection.Font.Bold = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.InsertSymbol CharacterNumber:=8658, Unicode:=True, Bias:=0
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
End Sub
\end{verbatim}
\end{document}