OOobbs2/138
質問
Dim Moji As String Moji = oSheet.getCellByPosition(0, 0).getString() なのでString変数に文字列が入った場合に半角⇔全角変換を行いたいのですが方法が見つかりません、、初歩的な質問しつれいします よろしければご教授お願いします。 回答
日本語言語パックが入っていないと動かないのかもしれませんが、よく分かりません。 Sub transliteration_10 Dim nOffset() As Long aLocale = CreateUnoStruct("com.sun.star.lang.Locale") aLocale.Language = "ja" aLocale.Country = "JP" ' 全角 -> 半角 oFull2Half = CreateUnoService("com.sun.star.i18n.Transliteration") oFull2Half.loadModuleNew(_ Array(com.sun.star.i18n.TransliterationModulesNew.FULLWIDTH_HALFWIDTH), aLocale) sFull = "123a" sHalf = oFull2Half.transliterate(sFull, 0, Len(sFull), nOffset) msgbox sHalf ' 半角 -> 全角 oHalf2Full = CreateUnoService("com.sun.star.i18n.Transliteration") oHalf2Full.loadModuleNew(_ Array(com.sun.star.i18n.TransliterationModulesNew.HALFWIDTH_FULLWIDTH), aLocale) sHalf = "123a" sFull = oHalf2Full.transliterate(sFull, 0, Len(sHalf), nOffset) msgbox sFull End Sub
感想,コメント,メモ
|