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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELピボットテーブル(複数アイテム) 1 2023/04/27 12:15
- JavaScript jsで診断コンテンツのページ内切り替えについて 1 2023/04/14 17:31
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- Visual Basic(VBA) VBA リストボックス複数選択からセルへの反映についての質問です。 リストボックス1では1つ選択 リ 6 2023/02/24 12:51
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Amazon Amazonコンビニ受け取り AmazonでSwitchのソフトの予約商品をコンビニ受け取りにして注 1 2022/03/31 15:45
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- JavaScript セレクトボックスを2つ選択してメッセージなどを表示するには。~運賃検索プログラムを完成させたい~ 1 2022/07/22 11:10
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBAを使ってエクセルシート...
-
VBA[Private Sub]のコードをシ...
-
エクセル vba クリック~離し...
-
ファイル名を今日の日付、時刻...
-
htmlまたはJavascriptからファ...
-
エクセルシートをまとめて印刷...
-
Pictures.Insertメソッド⇒Shape...
-
ピボットグラフの書式の固定に...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
Word VBAでWindows media playe...
-
Wordのマクロから書式(O)⇒箇条...
-
ユーザフォームをどの画面から...
-
グラフに条件付書式を設定でき...
-
wordのマクロで縮小して貼り付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
ファイル名を今日の日付、時刻...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
VBA[Private Sub]のコードをシ...
-
エクセルシートをまとめて印刷...
-
ピボットグラフの書式の固定に...
-
最初の1回のみにボタンクリッ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
Powerpointでランダムな数字の...
-
エクセルのマクロでSelection.S...
-
どのドキュメントは暗号化され...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルワークシート上に印刷...
-
Excelのラジオボタンにチェック...
-
エクセル2007 テキストボ...
-
エクセル vba クリック~離し...
-
ユーザーフォームを「Esc」キー...
おすすめ情報