びわ

花のイラスト

　　　　　　　　　　　　　　　白地自治会 ネットdeサービス　
　　　　　　　　　　　　

洗髪

染み抜き

便利なマクロ命令

ＷＯＲＤにおいて文章を保存する時、ファイル → 名前を付けて保存 からではなく
文章中の文字列をドラッグ → マクロボタンをクリック で保存できる。
ファイル名を入力する必要がないので、大変便利なマクロ。

Sub 保存()
Dim strFileName As String
strFileName = Selection.Characters.Parent
MsgBox Asc(strFileName)
If Asc(strFileName) >= 0 And Asc(strFileName) <= 32 Then
MsgBox "ファイル名にしたい文字列をドラッグ選択してください", , "選択エラー"
Exit Sub
End If
With Dialogs(wdDialogFileSaveAs)
.Name = strFileName
.Show
End With
End Sub