我需要对作业进行连续的字数统计。这要么是页边空白处的注释,要么是每 100 个字左右在正文中加一个括号。例如,
----- TEXT ------|- MARGIN -
blahblahblahblah | 100 [100th word appears on this line]
关于如何做到这一点有什么想法吗?
答案1
我知道一种使用 GNU Emacs 应用程序的方法,但其局限性在于它无法识别乳胶代码(也许有人有建议?),因此只有在首先从乳胶代码中剥离出来时才会起作用:
C-u 100 M-f ;; forward-word
M-F
M-W
SPACE ;; insert space
\ ;; self-insert-command
marginpar{ ;; self-insert-command * 10
C-y ;; yank
} ;; self-insert-command
M-b ;; backward-word
DEL ;; backward-delete-char-untabify
从那时起使用 F4(调用最后一个宏)将每 100 个单词执行一次你要求的操作(确保将光标放在 \marginpar{} 之后的单词上
答案2
这不是一个完整的答案。代码展示了如何使用 xelatex 进行字数统计的基本知识。我知道这根本不是你的设置。
\usepackage{xesearch}
\newcounter{words}
\AtBeginDocument{
\setcounter{words}{0}
\SearchList!{wordcount}{\stepcounter{words}}
{a?,b?,c?,d?,e?,f?,g?,h?,i?,j?,k?,l?,m?,n?,o?,p?,q?,r?,s?,t?,u?,v?,w?,x?,y?,z?}
\UndoBoundary{'’-}
\MakeBoundary{„“‚‘–}
\SearchOrder{p;}
}
\AtEndDocument{
\StopSearching
\newpage \thispagestyle{empty}
\arabic{words} words in document
}
将边注破解进去可以满足我的需要\addtokomafont{section}{}
,但我不确定如何在计数器达到某个阈值时调用命令。