![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
ワードのSelectからrangeへ広げる考え方からすると
マクロの記録で出る
Sub test01()
ActiveDocument.Tables(1).Rows(1).Select
Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
end Sub
ワードの定めた単位(例Unit:=wdLine)で広げていく(Extend:=wdExtend)ような感じで
実現するのかなと思う。
エクセルのようにRange(Cells(・・),Cells(・・))やEntirerowはできないようです。
Sub test07()
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Select
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.MoveDown Unit:=wdLine, Extend:=True
Selection.MoveDown Unit:=wdLine, Extend:=True
End Sub
もどうですか。
レスありがとうございました。
マクロの自動記録で、私も似たようなコードは得られていたのですが、
普通の操作では行/列選択は簡単にできますので、
まさかこの冗長なコードを使わなければダメだとは
想像もしていませんでした。
"Excelのようにはいかない"という(Wordなんですから当然ですよね)、
考えてみれば一番欲しかった答えもいただけたように思います。
ありがとうございました。
No.1
- 回答日時:
実験してみました
もっとスマートな方法があるのかな?
Dim myRange As Range
Dim rowSelect As Integer
rowSelect = 3
Set myRange = ActiveDocument.Tables(1).Range
myRange.SetRange 0, (rowSelect * ActiveDocument.Tables(1).Columns.Count) + rowSelect
myRange.Select
レスありがとうございました。
教えていただいたコードを元に、私も試してみました。
残念ながら、セルに文字が入ると結果が異なるので
今回の私のケースには当てはまらなかったのですが、
SetRangeというメソッドも知らなければ、
使い方もわからなかったので、とてもいい勉強になりました。
これって作りたての表に対しては最強ですね。
見た目もとてもスッキリしていますし・・・。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
Powerpointでランダムな数字の...
-
最初の1回のみにボタンクリッ...
-
エクセル2007 テキストボ...
-
VBA[Private Sub]のコードをシ...
-
マクロを使いダイレクトメール...
-
ピボットグラフの書式の固定に...
-
cellsで特定の離れた範囲を選択...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルのマクロでSelection.S...
-
Excelのラジオボタンにチェック...
-
ファイル名を今日の日付、時刻...
-
エクセル vba クリック~離し...
-
どのドキュメントは暗号化され...
-
VBAを使ってエクセルシート...
-
別ブックからユーザーフォーム...
-
PowerpointファイルにCtrl+Vで...
-
アクセス マクロでキー送信:%...
-
エクセルVBAで、画像の倍率を知...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
VBA[Private Sub]のコードをシ...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
最初の1回のみにボタンクリッ...
-
エクセル2007 テキストボ...
-
エクセルシートをまとめて印刷...
-
ピボットグラフの書式の固定に...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
どのドキュメントは暗号化され...
-
Pictures.Insertメソッド⇒Shape...
-
VBAを使ってエクセルシート...
-
ユーザフォームをどの画面から...
-
エクセルで「ODBC Microsoft Ac...
-
Excelのラジオボタンにチェック...
-
wordのマクロで縮小して貼り付...
-
エクセルワークシート上に印刷...
おすすめ情報