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