Wordでマクロを使って1文字下げる
文章を書くときには書き始めを1文字分下げるのですが、これがなかなか面倒。
マイクロソフトのWordならば「字下げ」を使えばよいのですが一つ問題があります。
括弧(「)で始まるときは下げないのです。角川文庫だけは下げるみたいですが。
このように通常は1文字下げるけれども括弧のときは下げないようにするためのワードマクロです。
Sub 自動インデント()
Dim iii As Long
Dim fsnormal, fsfirst As Single
'標準のフォントサイズを取得
fsnormal = ActiveDocument.Styles(wdStyleNormal).Font.Size
'すべての段落について処理
For iii = 1 To ActiveDocument.Paragraphs.Count
'最初の文字が"「"のときは字下げしない
'これ以外は標準のフォントサイズ分、字下げ
If ActiveDocument.Paragraphs(iii).Range.Characters(1) = "「" Then
fsfirst = 0
Else
fsfirst = fsnormal
End If
ActiveDocument.Paragraphs(iii).Range.Select
With Selection.ParagraphFormat
.LeftIndent = 0
.FirstLineIndent = fsfirst
End With
Next iii
End Sub
Dim iii As Long
Dim fsnormal, fsfirst As Single
'標準のフォントサイズを取得
fsnormal = ActiveDocument.Styles(wdStyleNormal).Font.Size
'すべての段落について処理
For iii = 1 To ActiveDocument.Paragraphs.Count
'最初の文字が"「"のときは字下げしない
'これ以外は標準のフォントサイズ分、字下げ
If ActiveDocument.Paragraphs(iii).Range.Characters(1) = "「" Then
fsfirst = 0
Else
fsfirst = fsnormal
End If
ActiveDocument.Paragraphs(iii).Range.Select
With Selection.ParagraphFormat
.LeftIndent = 0
.FirstLineIndent = fsfirst
End With
Next iii
End Sub
最近のコメント