A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
最初の質問についての対応策はテーブルNoを変える事で可能なようですが、他に問題が出たのならその現象を画像添付するためこの質問を閉め切って質問の立て直しが宜しいのでは?
この質問の回答によって起きた現象であれば回答者に分析してもらうしかないかもですけど。
No.3
- 回答日時:
Sub Sample_01()で
Application.ScreenUpdating = True
を書き忘れました
ここにコピペしてください
Next tbl
Application.ScreenUpdating = True
End Sub
丁寧にソースまで書いて頂いてありがとうございます。親子表ではないことがわかりました。
しかし、この二つの表を識別するために、それぞれにタイトルを付けて、保存して、開くと、下表のタイトルが勝手に上表のタイトルに変わってしまっています。
No.2
- 回答日時:
こんにちは
Word VBA?
Tables(1)として参考コード
親テーブルのみにテキストを書き込む場合
Sub Sample1()
Dim i As Long '行
Dim j As Long '列
With ActiveDocument.Tables(1)
If .Columns.Count < 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To .Rows.Count
For j = 2 To .Columns.Count
'文字挿入
.Cell(i, j).Range.Text = i & "行" & j & "列"
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
ご質問のようにTableの中にTableがある場合
Sub Sample_01()
Dim tbl As Table
Dim i As Long '行
Dim j As Long '列
For Each tbl In ActiveDocument.Tables(1).Tables
With tbl
If .Columns.Count < 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To .Rows.Count
For j = 2 To .Columns.Count
'文字挿入
.Cell(i, j).Range.Text = i & "行" & j & "列"
Next j
Next i
End With
Next tbl
End Sub
対象ドキュメント、対象テーブルの特定、書き込み条件、書き込み文字列
エラー対策が必要と思われます
No.1
- 回答日時:
表は上から繋がっているのですかね?
そうなると赤線左上はCells(4,2)になるのでは?
ActiveDocument.Tables(1).Cell(4, 2).Range.Text = "知恵袋"
あとはExcelのセルに値を入れる事が可能であれば、Cells(行,列) を変える事で可能と思います。(初心者ですが多分・・・)
繋がっていますが、別の表として認識されているようです。
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "知恵袋"
→OK
ActiveDocument.Tables(1).Cell(4, 2).Range.Text = "知恵袋"
→エラー実行時エラー5941
ActiveDocument.Tables(2).Cell(2, 2).Range.Text = "知恵袋"
→OK
別の表であることがわかりました。
感謝します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) evcel VBAについて 2 2022/08/02 21:37
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Excel(エクセル) Excel VBA 指定フォルダに格納されている全エクセルファイルに指定シートを挿入する方法について 1 2022/08/22 11:53
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- XML MSFormsとは何ですか? 2 2022/05/02 09:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの超初心者です…
-
ワード文書で1ページのみ別の...
-
不要に貯まっていく相互参照の...
-
ワードでページ番号を挿入しま...
-
ワードで表を作って、中に入れ...
-
Wordで脚注をページ下部ではな...
-
texのエラ-で
-
WORDの表にタイトル(?)をつけ...
-
EXCEL 最終行に行を挿入(追加...
-
GASについて
-
WORD:ページ毎に独立して編集...
-
wordの相互参照機能を使うと改...
-
PDFに白紙ページを挿入できるフ...
-
ワードの図表番号の挿入で生じ...
-
wordでの仏語のアクサンテギュ...
-
WORDのページ番号で
-
ホームページビルダー17の地図...
-
【緊急】word2016の図表番号の...
-
Wordに回覧、丸秘等を挿入したい
-
ワードで図表にリンクを貼りたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードでページ番号を挿入しま...
-
ワード文書で1ページのみ別の...
-
WORDの表にタイトル(?)をつけ...
-
エクセルで複数行に一度に改ペ...
-
EXCEL 最終行に行を挿入(追加...
-
ワードで表を作って、中に入れ...
-
ワードの図表番号の挿入で生じ...
-
2頁にまたがる表の表番号
-
Wordで日付、時刻挿入について...
-
Wordに回覧、丸秘等を挿入したい
-
エクセルの超初心者です…
-
エクセルで改ページを連続挿入方法
-
PDFに白紙ページを挿入できるフ...
-
エクセルでオブジェクトを挿入...
-
Wordで脚注をページ下部ではな...
-
Excelのセル内に写真を手軽に挿...
-
不要に貯まっていく相互参照の...
-
【緊急】word2016の図表番号の...
-
一太郎2005でページ挿入
-
EXCEL 改ページ自動挿入方法を...
おすすめ情報