|
|
| |
| 本章では、セルの書式設定に関するコードサンプルを例示しています。 |
| |
|
|
|
Sub リンク解除()
Dim aField As Field
'文書内のハイパーリンクを解除
For Each aField In ActiveDocument.Fields
aField.Unlink
Next
'文書全体の書式をクリア（標準書式に戻す）
Selection.WholeStory
Selection.ClearFormatting
End Sub
|
|
|
|
|
|
Sub SpellErrors()
myerr = ActiveDocument.SpellingErrors.Count
If myerr = 0 Then
MsgBox "No spelling errors found."
Else
MsgBox myerr & " spelling errors found."
End If
End Sub |
|
|
|
|
|
|
Sub SpellErrors()
myerr = ActiveDocument.SpellingErrors.Count
If myerr = 0 Then
MsgBox "No spelling errors found."
Else
MsgBox myerr & " spelling errors found."
For i = 1 To myerr
MsgBox ActiveDocument.SpellingErrors.Item(i)
Next i
End If
End Sub |
|
|
|
|
|
|
Sub SpellErrors()
If Selection.Type = wdSelectionNormal Then '文字列が選択されている？
mySel = Selection.Font.Subscript
If mySel = wdUndefined Or mySel = True Then
MsgBox "選択範囲内に下付きの文字があります。"
Else
MsgBox "選択範囲内に下付きの文字はありません。"
End If
mySel = Selection.Font.Superscript
If mySel = wdUndefined Or mySel = True Then
MsgBox "選択範囲内に上付きの文字があります。"
Else
MsgBox "選択範囲内に上付きの文字はありません。"
End If
Else
MsgBox "文字列を選択してください。"
End If
End Sub |
|
|
|
|
|
|
Sub FontChange()
Dim rng As Range
Set rng = ActiveDocument.Content
With rng
With .Find
.Text = "[A-Za-z]{1,}"
.MatchWildcards = True
End With
Do While .Find.Execute = True
.Font.Size = 14
Loop
End With
End Sub |
