MSWordのマクロ

Wordのマクロで質問です。
・行の最初にカーソルを選択させる
・行の最後にカーソルを選択させる
・一個下の行にカーソルを移動する
・行の最初と最後に文字を入力する
　　りんご　→　「りんご」
　　のように鍵かっこなどを追加効果
をマクロではどうすればいいですか?

質問者からの補足コメント

• 訂正:質問7行目 [追加効果]→[追加] です。
  大変申し訳ございません。

    補足日時：2021/06/18 06:31

No.3 回答者： enunokokoro 回答日時： 2021/06/18 10:13

No.1の回答です。

No.2で追加回答したのにマクロの一部が修正前のもので未確認でした。
記載をしたマクロのままだと、段落記号などの改行記号も含んで前後に
括弧をつけてしまいます。
以下の修正版を利用してください。

Sub 行頭行末に記号修正版()
' 段落記号などを含まないで選択する
Dim myExcludes As String
myExcludes = Chr(9) & Chr(10) & Chr(11) & Chr(12) & Chr(13)

With Selection
.Expand Unit:=wdLine
.MoveEndWhile Cset:=myExcludes, Count:=wdBackward
.InsertBefore "「"
.InsertAfter "」"
End With
End Sub

この修正版が、こちら↓を参考に修正したものになります。
https://www.wordvbalab.com/code/1393/

No.2 回答者： enunokokoro 回答日時： 2021/06/18 09:06

No.1の回答です。

Wordのマクロについて知りたいなら、こちら↓が参考になります。
https://www.wordvbalab.com
No.1で説明した最後のマクロも以下を参考にしたものです。
https://www.wordvbalab.com/code/1393/

No.1 回答者： enunokokoro 回答日時： 2021/06/18 08:56

最後を除く3つならマクロを使わないでも、ショートカットキーで可能。

・行の最初にカーソルを選択させる
　行頭に移動するなら、[ Home ]キーで。
　カーソル位置から行頭まで選択するなら、[ Shift+Home ]キーで。

・行の最後にカーソルを選択させる
　行末に移動するなら、[ End ]キーで。
　カーソル位置から行頭まで選択するなら、[ Shift+End ]キーで。

・一個下の行にカーソルを移動する
　次の行頭に移動するなら[ Home ]から[ ↓ ]キーを続けて。
　カーソル位置と同じ位置の次行移動するなら[ ↓ ]キーで。

Wordの場合、上記のショートカットキーそれぞれにコマンドマクロが用意されているので、それで確認する方法もありますよ。
https://www.wordvbalab.com/word/14302/
マクロとしての表記を知りたいなら、上記操作を[マクロの記録]で。
https://hamachan.info/win10-and-office2016/macro/


残っている項目について
・行の最初と最後に文字を入力する
　この場合は、マクロを用意しないと解決できません。
マクロの例：

Sub 行頭行末に記号()
　With Selection
　　.Expand Unit:=wdLine
　　.insertBefore "「"
　　.insertAfter "」"
　End With
End Sub