リッチテキストで記述している内容の途中で挿入したいイメージなのでしょうか?
ちょっと実現できるか分かりませんし、ダサいかもしれませんが、下記ではできませんか?
①ハイパーリンク用の文書の生成(上述の参考元)
②①を開く
③ハイパーリンクをクリックボードにコピー(Call uidoc.SelectAll & Call uidoc.Copy)
④①を閉じる ※ここで最初のリッチテキストのカーソル位置に戻るか不明
⑤リッチテキストにペースト(Call uidoc.Paste)
⑥ハイパーリンク用の文書を削除する。