一般フォーラム

\documentclass{article}
\usepackage{okumacro}
\makeatletter
%\chardef\okumacro@zsp=\jis"2121\relax
\def\kenten#1{%
  \okumacro@zsp
  \kern-1zw\relax
  \setbox1=\hbox to \z@{\hskip.25zw\inhibitglue・\hss}%
  \ht1=.63zw
  \@kenten#1\end\relax
  \kern-1zw\relax\okumacro@zsp}
\def\@kenten#1#2{%
  \ifx#1\end \let\next=\relax \else
    \raise.75zw\copy1\nobreak #1\ifx#2\end\else\hskip\kanjiskip\relax\fi
    \let\next=\@kenten
  \fi\next#2}
\makeatother
\begin{document}
ここが\kenten{圏点}です。
\end{document}