あるテンプレートからマクロで表内のセルに文字列を挿入しています。
Set newdoc = Application.Documents.Add("雛型.dot", False, wdNewBlankDocument, True)
With newdoc.Tables(1)
.Cell(1, 1).Range.Text = hensu1
.Cell(3, 1).Range.Text = hensu2
End With
現在は、上記のようなコードで、本文内の表に文字列をセットしていますが、この表をヘッダ領域に移動すると動きません。
ヘッダ領域内の表をマクロから指定する方法を教えてください。
No.1ベストアンサー
- 回答日時:
こんにちは。
>ヘッダ領域内の表をマクロから指定する方法を教えてください。
ヘッダのTable は、Cell の構造が違うようです。
.Range.Cells(1) <-- Cells(1,1)
[.Range.Cells(i * 0 + 1) <-- Cells(1,1)]
.Range.Cells(i * 2 + 1) <-- Cells(1,3)
'-------------------------------------------
Sub TestEditHeader()
Dim NewDoc As Document
Dim i As Integer
Const hensu1 = "A"
Const hensu2 = "B"
Set NewDoc = Application.Documents.Add("雛型.dot", False, wdNewBlankDocument, _
True)
With NewDoc.Sections
With .First.Headers(1).Range.Tables(1)
i = .Columns.Count
.Range.Cells(1).Range.Text = hensu1
.Range.Cells(i * 2 + 1).Range.Text = hensu2
End With
End With
Set NewDoc = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excelのワークシート上に検索窓...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
Accessのクエリを実行するショ...
-
モジュール内のマクロを全て実...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセル 自動で別シートへ並...
-
ワードで画像を自動で挿入する方法
-
マクロボタンをある条件の時に...
-
エクセルに画像を貼付け縮小す...
-
EXCELのセルへ、デジタル時計を...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロボタンがどん...
-
【Excel VBA】エラー番号400
-
GetAsyncKeyState(32) の動作が...
-
エクセル グラフの軸の最小値最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Excelのワークシート上に検索窓...
-
【Excel VBA】エラー番号400
-
ワードからエクセルへ貼り付け...
-
Excelマクロでオプションボタン...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
マクロ ブックをマクロなしでコ...
-
EXCEL 複数のシートの同一の位...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
TeraTermのマクロについて
おすすめ情報