こんにちは. Hello!
特定の環境に依存しないように気をつけていますが,不都合がございましたらお知らせください.
Sub cr() ' cr Macro Selection.TypeParagraph End Sub Sub del() ' del Macro Selection.Delete Unit:=wdCharacter, Count:=1 End Sub Sub bs() ' bs Macro Selection.TypeBackspace End Sub Sub delline() ' delline Macro Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 End Sub