Word VBA質問箱 IV

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

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


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

610 / 886

←次へ　｜　前へ→


	【282】Re:Word文書でスタイルをチェックするマクロ

H. C. Shinopy - 05/4/8(金) 23:43 -


	引用なし

	パスワード

「見出し１というスタイルしか使用してはいけない文書があった場合・・・」ということですが、
[見出し１]がありながら、[標準]や[本文]のない文書があるとは思えませんので、
文書の中にある段落を順々に条件式で調べるのはどうでしょうか？
他に考えられないので・・・

Sub myStyle()
　Dim myPara As Paragraph
　'
　For Each myPara In ActiveDocument.Paragraphs ' 文書全体を処理する場合
　Rem For Each myPara In Selection.Paragraphs ' 選択した範囲だけ処理する場合
　　If InStr(myPara.Style, "見出し") > 0 Then
　　　Rem [見出し]スタイルの内、[見出し 1]以外の場合、
　　　Rem 文字の色を赤色にする。
　　　If myPara.Style <> "見出し 1" Then
　　　　myPara.Range.Font.ColorIndex = wdRed
　　　End If
　　End If
　Next myPara
End Sub

1,673 hits

▼

【278】Word文書でスタイルをチェックするマクロ ZOO 05/4/6(水) 13:52