Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

273 / 886

←次へ　｜　前へ→


	【629】Re:フォームテキスト入力

りる - 09/5/5(火) 20:00 -


	引用なし

	パスワード

すみんさん、こんばんわ。

>今回は、先頭でしたが、先頭から、３行目に転記する場合は、どのようにすればいいのでしょうか？
>
>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

1,199 hits

▼

【625】フォームテキスト入力 すみん 09/5/3(日) 19:14