CS4、CS5の段落コンポーザ名

InDesignは言語ごとにUIから操作できないように機能が隠してあったりします。

スクリプトのオブジェクトを見ればだいたいは分かるのだがString型だとわからない。
しかも、言語に依存してしまうのがどうにかならないものかな。

CS4とCS5で使える段落コンポーザ名のメモです。たぶんあっているはず。

CS4 J	CS5 J	CS4 E	CS5 E
Adobe 欧文段落コンポーザ	Adobe 欧文段落コンポーザー	HL Composer
Adobe 日本語段落コンポーザ	Adobe 日本語段落コンポーザー	HL Composer J
Adobe 欧文単数行コンポーザ	Adobe 欧文単数行コンポーザー	HL Single
Adobe 日本語単数行コンポーザ	Adobe 日本語単数行コンポーザー	HL Single J
Adobe 多言語対応段落コンポーザ	Adobe 多言語対応段落コンポーザー	Adobe World-Ready Paragraph Composer	HL Composer Optyca
Adobe 多言語対応単数行コンポーザ	Adobe 多言語対応単数行コンポーザー	Adobe World-Ready Single-line Composer	HL Single Optyca
Linnaeus コンポーザ	Linnaeus コンポーザー	HL Linnaeus

多言語対応段落～を使用するとRTL組版、タイ語、ヒンディ・・・（ここを見て）などが可能になるそうです。
Linnaeusは情報がないので全く不明です。

段落の行と行数を取得するWordVBA

WordのVBAには段落の行と行数を取得する項目がないみたいなので作ってみた。
先頭行から最終行（Endキー）を選択して、選択範囲を取得するというだけです。
何か問題あったら教えてください。

Dim wd_pgfObj As Word.Paragraph
Dim wd_lineObj As Word.Range
Dim LineCount As Long
Dim LineStart As Long
    
Set wd_pgfObj = Selection.Paragraphs(1)
LineCount = 0
LineStart = wd_pgfObj.Range.Start
Do
    Selection.Start = LineStart
    Selection.End = LineStart
    Call Selection.EndKey(Unit:=wdLine, Extend:=wdExtend)
        
    Set wd_lineObj = Selection.Range
    LineCount = LineCount + 1
        
    If Selection.End = wd_pgfObj.Range.End Then
        Exit Do
    End If
    LineStart = Selection.End
Loop
    
Call MsgBox("選択した行：" & LineCount & "行")