| |
word2003を使っています。
段落の頭に連番を挿入し，連番の後に続いている文章に
インデントをかけて体裁を整えるマクロを作成しています。
ﾏｸﾛを実行すると，左から右のような体裁になることを
目指しています。
---------------------------------------------------------−−−−−
（実行前） （実行後）
こんにちは。おはようござい 1 こんにちは。おはようご
ます。 ざいます。
どうもありがとうございまし 2 どうもありがとうござい
た。 ました。
---------------------------------------------------------−−−−−
ﾏｸﾛの自動記録でできたﾏｸﾛを実際に試してみたのですが，
うまくいきません。
具体的には，連番は入るのですが，以下のｺｰﾄﾞの５，７，８行目の
数値が異なったものになってしまいます。
４行目の 6.6 が 13.2
７，８行目の 22 が 28.6 に変わります。
分かる方，教えてください。よろしくお願いします。
《ﾏｸﾛの自動記録でできたｺｰﾄﾞ》
With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1"
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = MillimetersToPoints(6.6) ←４行目
.Alignment = wdListLevelAlignRight
.TextPosition = MillimetersToPoints(22) ←７行目
.TabPosition = MillimetersToPoints(22) ←８行目
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = wdUndefined
.Italic = wdUndefined
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = ""
End With
.LinkedStyle = ""
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
