混合底線和刪除線

Question

Word 允許各種字體格式：

上面的例子結合了刪除線/刪除線（像這樣）和底線。我希望能夠做同樣的事情，但兩者都沒有ulem也不soul以一種方便的方式實現這一點。

• ulem：

  

  \documentclass{article}
  \usepackage[a6paper,showframe]{geometry}% Just for this example
  \usepackage{ulem}
  \begin{document}
  Lorem ipsum dolor sit amet, \sout{consectetur adipiscing elit. 
  Praesent} in nisi magna. Mauris \sout{auctor gravida} fermentum. 
  Proin enim \uline{massa, \sout{\textbf{lobortis in} ligula} vel, convallis} fermentum 
  nulla. \uline{Nam in mattis nulla}. Vestibulum vel \uline{auctor orci. 
  Praesent \textit{\textbf{ornare, eros} ac} euismod} congue, turpis est facilisis 
  nisi, a sollicitudin massa lectus imperdiet tellus. Duis at 
  tempor velit. \sout{Nulla \uline{gravida}, dolor in cursus}. 
  \end{document}
  

• soul：

  這soul文件明確指出「嵌套soul命令不起作用」：

  

  因此，以下範例編譯時不會出錯：

  \documentclass{article}
  \usepackage[a6paper,showframe]{geometry}% Just for this example
  \usepackage{soul}
  \begin{document}
  Lorem ipsum dolor sit amet, \st{consectetur adipiscing elit. 
  Praesent} in nisi magna. Mauris \st{auctor gravida} fermentum. 
  Proin enim \ul{massa, \st{\textbf{lobortis in} ligula} vel, convallis} fermentum 
  nulla. \ul{Nam in mattis nulla}. Vestibulum vel \ul{auctor orci. 
  Praesent \textit{\textbf{ornare, eros} ac} euismod} congue, turpis est facilisis 
  nisi, a sollicitudin massa lectus imperdiet tellus. Duis at 
  tempor velit. \st{Nulla \ul{gravida}, dolor in cursus}. 
  \end{document}
  

理想情況下，我希望能夠互換使用這些字體「效果」巨集：下劃線內的刪除線，或刪除線內的底線，而不影響字體的使用（例如斜體或者大膽的）。下面是 Word 的輸出：

（另請參閱後續問題：使用靈魂底線+刪除線）

Answer 1

這是馬丁回答的改編LaTeX 中的酷炫文字突出顯示我根據\tikzstMartin 的\tikzul.

這顯示了以下範例

• 刪除線和底線
• 刪除並突出顯示

筆記：

• 通常，\tikzmark解決方案需要運行兩次。由於 存在嵌套使用\tikzmark，因此需要三運行。 （感謝@Werner 指出這一點）。

  需要額外運行，因為巢狀tikzmark的位置取決於父級的位置\tikzmark。因此，第一次運行穩定了「外部」的位置\tikzmark，第二次穩定了「內部」的位置\tikzmark，第三次進行實際繪圖。

• 這\tikzmark是來自在文字正文旁邊加上大括號。

代碼：

\documentclass[twoside,11pt]{book}

\usepackage{zref-abspage}
\usepackage{zref-user}
\usepackage{tikz}
\usepackage{atbegshi}
\usetikzlibrary{calc,decorations.pathmorphing}

\makeatletter
\newcommand{\currentsidemargin}{%
  \ifodd\zref@extract{textarea-\thetextarea}{abspage}%
    \oddsidemargin%
  \else%
    \evensidemargin%
  \fi%
}

\newcounter{textarea}
\newcommand{\settextarea}{%
   \stepcounter{textarea}%
   \zlabel{textarea-\thetextarea}%
   \begin{tikzpicture}[overlay,remember picture]
    % Helper nodes
    \path (current page.north west) ++(\hoffset, -\voffset)
        node[anchor=north west, shape=rectangle, inner sep=0, minimum width=\paperwidth, minimum height=\paperheight]
        (pagearea) {};
    \path (pagearea.north west) ++(1in+\currentsidemargin,-1in-\topmargin-\headheight-\headsep)
        node[anchor=north west, shape=rectangle, inner sep=0, minimum width=\textwidth, minimum height=\textheight]
        (textarea) {};
  \end{tikzpicture}%
}


\usepackage{lipsum}
\newcommand\xlipsum[1][]{{\let\par\relax\lipsum*[#1]}}

\tikzset{tikzul/.style={yshift=-.75\dp\strutbox}}

\newcounter{tikzul}%
\newcommand\tikzul[1][]{%
    \begingroup
    \global\tikzullinewidth\linewidth
    \def\tikzulsetting{[#1]}%
    \stepcounter{tikzul}%
    \settextarea
    \zlabel{tikzul-begin-\thetikzul}%
    \tikz[overlay,remember picture,tikzul] \coordinate (tikzul-\thetikzul) at (0,0);% Modified \tikzmark macro
    \ifnum\zref@extract{tikzul-begin-\thetikzul}{abspage}=\zref@extract{tikzul-end-\thetikzul}{abspage}
    \else
        \AtBeginShipoutNext{\tikzul@endpage{#1}}%
    \fi
    \bgroup
    \def\par{\ifhmode\unskip\fi\egroup\par\@ifnextchar\noindent{\noindent\tikzul[#1]}{\tikzul[#1]\bgroup}}%
    \aftergroup\endtikzul
    \let\@let@token=%
}
\newlength\tikzullinewidth


\def\tikzul@endpage#1{%
\setbox\AtBeginShipoutBox\hbox{%
\box\AtBeginShipoutBox
\hbox{%
\begin{tikzpicture}[overlay,remember picture,tikzul]
\draw[#1]
    let \p1 = (tikzul-\thetikzul), \p2 = ([xshift=\tikzullinewidth+\@totalleftmargin]textarea.south west) in
    \ifdim\dimexpr\y1-\y2<.5\baselineskip
        (\x1,\y1) -- (\x2,\y1)
    \else
        let \p3 = ([xshift=\@totalleftmargin]textarea.west) in
        (\x1,\y1) -- +(\tikzullinewidth-\x1+\x3,0)
        % (\x3,\y2) -- (\x2,\y2)
        (\x3,\y1)
       \myloop{\y1-\y2+.5\baselineskip}{%
           ++(0,-\baselineskip) -- +(\tikzullinewidth,0)
       }%
    \fi
;
\end{tikzpicture}%
}}%
}%


\def\endtikzul{%
    \zlabel{tikzul-end-\thetikzul}%
    \ifnum\zref@extract{tikzul-begin-\thetikzul}{abspage}=\zref@extract{tikzul-end-\thetikzul}{abspage}
    \begin{tikzpicture}[overlay,remember picture,tikzul]
        \expandafter\draw\tikzulsetting
            let \p1 = (tikzul-\thetikzul), \p2 = (0,0) in
            \ifdim\y1=\y2
                (\x1,\y1) -- (\x2,\y2)
            \else
                let \p3 = ([xshift=\@totalleftmargin]textarea.west), \p4 = ([xshift=-\rightmargin]textarea.east) in
                (\x1,\y1) -- +(\tikzullinewidth-\x1+\x3,0)
                (\x3,\y2) -- (\x2,\y2)
                (\x3,\y1)
                \myloop{\y1-\y2}{%
                    ++(0,-\baselineskip) -- +(\tikzullinewidth,0)
                }%
            \fi
        ;
    \end{tikzpicture}%
    \else
    \settextarea
    \begin{tikzpicture}[overlay,remember picture,tikzul]
        \expandafter\draw\tikzulsetting
            let \p1 = ([xshift=\@totalleftmargin,yshift=-.5\baselineskip]textarea.north west), \p2 = (0,0) in
            \ifdim\dimexpr\y1-\y2<.5\baselineskip
                (\x1,\y2) -- (\x2,\y2)
            \else
                let \p3 = ([xshift=\@totalleftmargin]textarea.west), \p4 = ([xshift=-\rightmargin]textarea.east) in
                (\x3,\y2) -- (\x2,\y2)
                (\x3,\y2)
                \myloop{\y1-\y2}{%
                    ++(0,+\baselineskip) -- +(\tikzullinewidth,0)
                }
            \fi
        ;
    \end{tikzpicture}%
    \fi
    \endgroup
}

% -------------------------------------------------------------- Additions by Peter Grill

\tikzset{tikzst/.style={yshift=0.5\dp\strutbox}}

\newcounter{tikzst}%
\newcommand\tikzst[1][]{%
    \begingroup
    \global\tikzstlinewidth\linewidth
    \def\tikzstsetting{[#1]}%
    \stepcounter{tikzst}%
    \settextarea
    \zlabel{tikzst-begin-\thetikzst}%
    \tikz[overlay,remember picture,tikzst] \coordinate (tikzst-\thetikzst) at (0,0);% Modified \tikzmark macro
    \ifnum\zref@extract{tikzst-begin-\thetikzst}{abspage}=\zref@extract{tikzst-end-\thetikzst}{abspage}
    \else
        \AtBeginShipoutNext{\tikzst@endpage{#1}}%
    \fi
    \bgroup
    \def\par{\ifhmode\unskip\fi\egroup\par\@ifnextchar\noindent{\noindent\tikzst[#1]}{\tikzst[#1]\bgroup}}%
    \aftergroup\endtikzst
    \let\@let@token=%
}
\newlength\tikzstlinewidth


\def\tikzst@endpage#1{%
\setbox\AtBeginShipoutBox\hbox{%
\box\AtBeginShipoutBox
\hbox{%
\begin{tikzpicture}[overlay,remember picture,tikzst]
\draw[#1]
    let \p1 = (tikzst-\thetikzst), \p2 = ([xshift=\tikzstlinewidth+\@totalleftmargin]textarea.south west) in
    \ifdim\dimexpr\y1-\y2<.5\baselineskip
        (\x1,\y1) -- (\x2,\y1)
    \else
        let \p3 = ([xshift=\@totalleftmargin]textarea.west) in
        (\x1,\y1) -- +(\tikzstlinewidth-\x1+\x3,0)
        % (\x3,\y2) -- (\x2,\y2)
        (\x3,\y1)
       \myloop{\y1-\y2+.5\baselineskip}{%
           ++(0,-\baselineskip) -- +(\tikzstlinewidth,0)
       }%
    \fi
;
\end{tikzpicture}%
}}%
}%


\def\endtikzst{%
    \zlabel{tikzst-end-\thetikzst}%
    \ifnum\zref@extract{tikzst-begin-\thetikzst}{abspage}=\zref@extract{tikzst-end-\thetikzst}{abspage}
    \begin{tikzpicture}[overlay,remember picture,tikzst]
        \expandafter\draw\tikzstsetting
            let \p1 = (tikzst-\thetikzst), \p2 = (0,0) in
            \ifdim\y1=\y2
                (\x1,\y1) -- (\x2,\y2)
            \else
                let \p3 = ([xshift=\@totalleftmargin]textarea.west), \p4 = ([xshift=-\rightmargin]textarea.east) in
                (\x1,\y1) -- +(\tikzstlinewidth-\x1+\x3,0)
                (\x3,\y2) -- (\x2,\y2)
                (\x3,\y1)
                \myloop{\y1-\y2}{%
                    ++(0,-\baselineskip) -- +(\tikzstlinewidth,0)
                }%
            \fi
        ;
    \end{tikzpicture}%
    \else
    \settextarea
    \begin{tikzpicture}[overlay,remember picture,tikzst]
        \expandafter\draw\tikzstsetting
            let \p1 = ([xshift=\@totalleftmargin,yshift=-.5\baselineskip]textarea.north west), \p2 = (0,0) in
            \ifdim\dimexpr\y1-\y2<.5\baselineskip
                (\x1,\y2) -- (\x2,\y2)
            \else
                let \p3 = ([xshift=\@totalleftmargin]textarea.west), \p4 = ([xshift=-\rightmargin]textarea.east) in
                (\x3,\y2) -- (\x2,\y2)
                (\x3,\y2)
                \myloop{\y1-\y2}{%
                    ++(0,+\baselineskip) -- +(\tikzstlinewidth,0)
                }
            \fi
        ;
    \end{tikzpicture}%
    \fi
    \endgroup
}
% --------------------------------------------------------------

\def\myloop#1#2#3{%
    #3%
    \ifdim\dimexpr#1>1.1\baselineskip
        #2%
        \expandafter\myloop\expandafter{\the\dimexpr#1-\baselineskip\relax}{#2}%
    \fi
}

\makeatother

\begin{document}

text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
text text \tikzul[red]{text text text text \tikzst[black, ultra thick]{text text text text text
text text text text text text text text} text text text
text text text text} text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text

{\tikzset{tikzul/.style={yshift=1ex}}

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut purus elit,
vestibulum ut, placerat ac, adipiscing vitae, felis. Curabitur dictum gravida
mauris. Nam arcu libero, nonummy eget, consectetuer id, vulputate a, magna.
Donec vehicula augue eu neque. Pellentesque habitant morbi tristique senectus
et netus et malesuada fames ac turpis egestas. Mauris ut leo. Cras viverra
metus rhoncus sem. Nulla et lectus vestibulum urna fringilla ultrices. Phasellus
eu tellus sit amet tortor gravida placerat. Integer sapien est, iaculis in, pretium
quis, viverra ac, nunc. Praesent eget sem vel leo ultrices bibendum. \tikzul[line width=1.5\ht\strutbox,semitransparent,yellow]{Aenean
faucibus. Morbi dolor nulla, \tikzst[black, ultra thick]{malesuada eu, pulvinar at, mollis ac, nulla. Curabitur auctor semper nulla. Donec varius orci eget risus. Duis nibh mi, congue
eu, accumsan eleifend, sagittis quis}, diam. Duis eget orci sit amet orci dignissim
rutrum.}
text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
test
}

\begin{quote}
text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
text text \tikzul[red]{text text text \tikzst[black, ultra thick]{text text text text text text
text text text text text text text text text text text
text text text text text text text} text text text text
text text text text text text text text text text text
text text text text text text text text text text text
text text text text} text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
\end{quote}

{\tikzset{tikzul/.style={yshift=.5ex}}

\begin{quote}
text text text text text text text text text text text
text text text text text text text text text text text
\begin{quote}
text text text text text text text text text text text
text text \tikzul[green]{text text \tikzst[black, ultra thick]{text text text text text text text
text text text text text text text text text text text
text text text text 
text text text text text text text}
text text text text text text text text text text text
text text text text text text text text text text text
text text text text} text text text text text text text
\end{quote}
text text text text text text text text text text text
text text text text text text text text text text text
\end{quote}

\large
new text text text text text text text text text text text
text text \tikzul[red]{first text text text text \tikzst[black, ultra thick]{text text text text
teXt teXt teXt teXt teXt teXt teXt teXt teXt teXt teXt
teXt teXt teXt} teXt teXt teXt teXt teXt teXt teXt teXt
teXt teXt teXt last} teXt teXt teXt teXt teXt teXt teXt
text text text text text text text text text text text
text text text text text text text text text text text

text text text text text text text text text text text
text text text text text text text text text text text
text text \tikzul[red]{text text text text text text text text text
text text\par\noindent text text text text text text text text text
text text text text} text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
}

\begin{itemize}
    \item \tikzul{test test test} test
    \item test \tikzul{test test test} test
    \item aa \tikzul{test test test} test
    \item b \tikzul{test test 
text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
        test} test
\end{itemize}

text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text
text text \tikzul[red]{text text text text text text text text text
text text

 text text text text text text text text text
text text text text} text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text

text text text text text text text text text text text
text text text text text text text text text text text
text text \tikzul[red]{text text text text text text text text text
text text

\noindent text text text text text text text text text
\par text text text text} text text text text text text text
text text text text text text text text text text text
text text text text text text text text text text text


\end{document}

Answer 2

有幾個選項——以下所有選項都支援換行符：

• lua-ul：https://tex.stackexchange.com/a/533377/250119（特定於突出顯示+下劃線，最簡單的解決方案，預設工作）
• 自訂答案使用tikz：https://tex.stackexchange.com/a/176118/250119（允許任意嵌套但如果巢狀則需要 ≥ 3 次編譯）
• soulpos: 請參閱我的回答https://tex.stackexchange.com/a/685471/250119（具體針對高亮+刪除線）－需要了解 TeX 程式設計來定義指令，這需要 2 次編譯。
• soul：https://tex.stackexchange.com/a/178701/250119（特定於刪除線+下劃線）——這個包本質上使用\leaders，所以答案通過重複 0.1pt 寬度的框來工作，這會導致 PDF 很重。

這些解決方案不支援換行：

• censor：https://tex.stackexchange.com/a/178691/250119（特定於刪除線+底線）
• soul與保存箱等：https://tex.stackexchange.com/a/418106/250119（具體針對突出顯示+底線）

為了完成，以下是一個使用ulem替代的解決方案（改編自我的答案定義\dwave) --ulem沒有「統一水平」限制，但是不支援連字任何一個：

%! TEX program = lualatex
\documentclass{article}
\usepackage{ulem}

\makeatletter
\protected\def\ulinesout{%
    \leavevmode \bgroup
    \UL@setULdepth
    \markoverwith {%
        \rlap{\rule[.55ex]{2pt}{0.4pt}}%
        \rule[-\ULdepth]{2pt}{0.4pt}%  \rule[-.673ex]{2pt}{0.4pt}
    }%
    \ULon 
}
\makeatother
\begin{document}

\uline{a}\ulinesout{b}\sout{c}

\uline{Producing a colored underline or strike-through is }\ulinesout{not supported by
regular uline}\sout{ or sout, but it is quite easy to colorize using the
markoverwith mechanism}

\end{document}

正如文件中所述ulem，這不是一個「真正靈活」的規則，但在這種情況下感覺不可能，並且透過重複大量小片段來繪製規則。

soul這個缺點與上面連結的包中的解決方案的缺點相同。