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も見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
word vbaでword上の表の、任意で選択した複数のセルに同じ文字列を入力したいのですが、可能で
Word(ワード)
-
Cell内の一部を指定する方法(Word VBA)
その他(Microsoft Office)
-
Word のVBAについて初心者なのですが、質問があります。
Word(ワード)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
cellsで特定の離れた範囲を選択...
-
エクセルでツールバーに「縮小...
-
複数のデータ系列の線の太さを...
-
エクセルのストップウォッチ
-
ファイル名を今日の日付、時刻...
-
エクセルのマクロでSelection.S...
-
ワードで選択範囲だけの改行を...
-
Pictures.Insertメソッド⇒Shape...
-
ピボットグラフの書式の固定に...
-
エクセルシートをまとめて印刷...
-
エクセルVBAで、画像の倍率を知...
-
どのドキュメントは暗号化され...
-
wordのマクロで縮小して貼り付...
-
最初の1回のみにボタンクリッ...
-
VBA[Private Sub]のコードをシ...
-
EXCELグラフをPowerPointに貼り...
-
VBAをVBに変換する方法
-
Excelのラジオボタンにチェック...
-
エクセルで「ODBC Microsoft Ac...
-
VBからPowerPointのマクロを実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
Powerpointでランダムな数字の...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
ピボットグラフの書式の固定に...
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
エクセル2007 テキストボ...
-
最初の1回のみにボタンクリッ...
-
Excelのラジオボタンにチェック...
-
Pictures.Insertメソッド⇒Shape...
-
別ブックからユーザーフォーム...
-
エクセルVBAで、画像の倍率を知...
-
wordのマクロで縮小して貼り付...
-
【ExcelVBA】クエリの更新とピ...
-
どのドキュメントは暗号化され...
-
エクセルシートをまとめて印刷...
-
エクセルのマクロでSelection.S...
-
htmlまたはJavascriptからファ...
おすすめ情報