Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

225 / 886

←次へ　｜　前へ→


	【684】連番とｲﾝﾃﾞﾝﾄを設定したい。

ゆう - 10/3/25(木) 11:02 -


	引用なし

	パスワード

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

966 hits

▼

【684】連番とｲﾝﾃﾞﾝﾄを設定したい。 ゆう 10/3/25(木) 11:02