Selection.Paste すべてを選択 Selection.WholeStory 行全体を選択 Selection.EndKey Unit:=wdLine, Extend:=wdExtend 段落を上へ移動 Selection.MoveUp Unit:=wdParagraph, Count:=1 右に1文字移動 Selection.MoveRight Unit:=wdCharacter, Count:=1