|
すみん さん、こんばんわ。
>今回は、先頭でしたが、先頭から、3行目に転記する場合は、どのようにすればいいのでしょうか?
>
>With ActiveDocument.Range(Start:=0, End:=1)のStart:=0, End:=1の部分を変更すれば可能なのでしょうか?
RangeよりもSelectionを使ったほうがわかりやすい(というか簡単)みたいなので、方法を変えました。
文書頭にカーソルを持ってきて、下に2行移動するイメージです。
Private Sub CommandButton1_Click()
'ドキュメントの先頭
ActiveDocument.Range(Start:=0, End:=0).Select
'3行目に移動(下に2つ移動)
Selection.MoveDown wdLine, 2, wdMove
'そこに文字を挿入(選択範囲の拡張なし)
With Selection
.InsertBefore TextBox1.Text
.Collapse Direction:=wdCollapseEnd
End With
'Formを閉じる
Me.Hide
End Sub
|
|