Word VBA質問箱 IV

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

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


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

112 / 877

←次へ　｜　前へ→


	【790】Re:スタイルの設定について

マナ - 13/6/16(日) 17:46 -


	引用なし

	パスワード

今更ですが、勉強のために確認してみました。

> 　ActiveDocument.Paragraphs(J).Style = ActiveDocument.Styles(J)
>
>どなたか右辺の書き方をご存知ないでしょうか。

右辺の書き方が間違っているわけではないようです。
左辺が段落スタイルなので、右辺も段落スタイルかどうか
事前にチェックをいれてみました。

Sub test()
　　Dim n As Long
　　Dim s As Style
　　Dim j As Long

　　n = ActiveDocument.Paragraphs.Count
　　
　　For Each s In ActiveDocument.Styles
　　　　If s.Type = wdStyleTypeParagraph Then
　　　　　　j = j + 1
　　　　　　If j > n Then Exit For
　　　　　　ActiveDocument.Paragraphs(j).Style = s
　　　　End If
　　Next
　　
End Sub

980 hits

▼

【525】スタイルの設定について すぎ 07/4/5(木) 18:02