Wordのスタイルは、私は1</li> <li>項2</li> <li>項3</li> </ol> <p>リストスタイル」です。この</p> <ol> <li>項目のように番号付きリストを含むWord文書を持ってApplyListTemplate

Question

を適用した後に変更されましたリスト段落 "を選択します。 「リスト段落」の左インデントは、リストの段落結果

Dim t As ListTemplate 
Set t = ActiveDocument.Styles("List Paragraph").ListTemplate 
t.ListLevels(1).ResetOnHigher = True 
Selection.Range.ListFormat.ApplyListTemplate t, False, wdListApplyToWholeList 

、リストである 『スタイルの左インデント0.75" は今我々は、スタイルを再適用するには、次のコードを実行した場合。』 0.5" であります右0.25" にシフト。 方法は、スタイルの左インデント変更ApplyListTemplateなぜ私は思ったんだけど、 『リストの段落を』。

を前にして、コードを適用した後、スタイルの説明がある

"Indent: 
Left: 0.5" 
Hanging: 0.25", Numbered + Level: 1 + Numbering Style: 1, 2, 3, … + Start at: 1 + Alignment: Left + Aligned at: 0.75" + Indent at: 1", Style: Quick Style, Priority: 35 
Based on: Text" 

"Indent: 
Left: 0.75" 
Hanging: 0.25", Outline numbered + Level: 1 + Numbering Style: 1, 2, 3, … + Start at: 1 + Alignment: Left + Aligned at: 0.75" + Indent at: 1", Style: Quick Style, Priority: 35 
Based on: Text" 

Office 20でも同じ動作が検出されました私が言うファイル名を指定して実行時エラー5941、得るので、私はあなたの正確なコードをテストすることはできません「コレクションの要求されたメンバーが存在しませんが。」

を言われていること、WordはAは03と2010

Answer 1

（私にとってはとにかく）そのフォーマットに変更が加えられるたびに、リストのインデントを「修正」する傾向があります。そこリストを「固定」を停止するWordを伝えるための設定は、おそらくですが、私は単にあなたのコードの最後に次を追加することをお勧め：

With Selection.ParagraphFormat 
    .LeftIndent = InchesToPoints(0.75)   ' Left indent 
    .RightIndent = InchesToPoints(0)   ' Right indent 
    .FirstLineIndent = InchesToPoints(-0.25) ' First line indent 
End With 

あなたに0.5" の左インデントを与えることはとし、ぶら下げインデント0.25 "（数字はちょっと変わって見えるかもしれませんが）。 .RightIndent =で始まる中央の線は必要ありませんが、変更したい場合にも含めておきたいと思いました。