・これだけでは、なんですので、文書内の「漢字」に「かんじ」とルビを設定するスクリプトを作ってみました。
(アクティブドキュメントに対して処理を行うスクリプトです)
コード: 全て選択
call setRubies("漢字","かんじ")
WScript.Quit
sub setRubies(Conv, Ruby)
set oServiceManager = CreateObject("com.sun.star.ServiceManager")
set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
set oDoc = oDesktop.CurrentComponent
if not oDoc.supportsService("com.sun.star.text.TextDocument") then exit sub
set oSearchDescriptor = oDoc.createSearchDescriptor
oSearchDescriptor.SearchString = Conv
set oRanges = oDoc.findAll(oSearchDescriptor)
for i = 0 to oRanges.Count - 1
set oRange = oRanges.getByIndex(i)
call oRange.setPropertyToDefault("RubyText")
oRange.RubyText = Ruby
oRange.RubyAdjust = 1
next
end sub