質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

Python

Pythonは、コードの読みやすさが特徴的なプログラミング言語の1つです。 強い型付け、動的型付けに対応しており、後方互換性がないバージョン2系とバージョン3系が使用されています。 商用製品の開発にも無料で使用でき、OSだけでなく仮想環境にも対応。Unicodeによる文字列操作をサポートしているため、日本語処理も標準で可能です。

Q&A

解決済

1回答

1282閲覧

wordの表にセル単位ではなく行単位で書き込みを行いたい

takuyatakkyu

総合スコア17

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

Python

Pythonは、コードの読みやすさが特徴的なプログラミング言語の1つです。 強い型付け、動的型付けに対応しており、後方互換性がないバージョン2系とバージョン3系が使用されています。 商用製品の開発にも無料で使用でき、OSだけでなく仮想環境にも対応。Unicodeによる文字列操作をサポートしているため、日本語処理も標準で可能です。

0グッド

0クリップ

投稿2021/12/21 11:55

編集2021/12/21 11:56

実現したいこと

pythonで一部VBAを使う部分があります。
表題の通り、wordの表にセル単位ではなく行単位で書き込みを行いたいです。
ライブラリはPywin32を使用しております。

現在のソースコード(一部抜粋)

python

1numrow = 2 2numcol = 1 3for row in content: 4 numcol = 1 5 for col in row: 6 if col is not None: 7 Table.Cell(numrow, numcol).Range.Text = col #ここをCellじゃなくてRowみたいにしたい 8 numcol = numcol + 1 9 numrow = numrow + 1

現状だとcell1つ1つに書き込んでいるので処理がとても遅いです。
これを行単位で書き込めるようにして処理速度を上げたいです。
(データは配列で渡すことを検討)

備考

なにか情報が不足していればお申し付けください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

pythonは分からないので、VBAで回答しておきますので、そちらでpythonに変換してください。

タブ区切りテキストを表に変換できますので、それを使ったどうでしょう。

vba

1 With ActiveDocument.Content 2 .InsertBefore "AAA" & vbTab & "BBB" & vbTab & "CCC" & vbCr & _ 3 "DDD" & vbTab & "EEE" & vbTab & "FFF" 4 .ConvertToTable Separator:=Chr(9), NumRows:=2, NumColumns:=3 5 .Tables(1).Style = "表 (格子)" 6 End With

既存のテーブルにクリップボード経由で貼り付ける。

※「Microsoft Forms 2.0 Object Library」の参照設定必須

vba

1 Dim buf As String 2 buf = "AAA" & vbTab & "BBB" & vbTab & "CCC" & vbCrLf & _ 3 "DDD" & vbTab & "EEE" & vbTab & "FFF" 4 5 With New MSForms.DataObject 6 .SetText buf '変数の値をDataObjectに格納する 7 .PutInClipboard 'DataObjectのデータをクリップボードに格納する 8 End With 9 ActiveDocument.Tables(1).Range.PasteAndFormat (wdFormatPlainText)

投稿2021/12/21 12:31

編集2021/12/22 00:52
hatena19

総合スコア33715

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

takuyatakkyu

2021/12/22 00:00

ご回答ありがとうございます。参考になります。 用意されている表に書き込むというアプローチであれば、もうセル単位での書き込みしかないということでしょうか?
hatena19

2021/12/22 00:35

Word VBA にはあまり精通していないので、もっといい方法があるかも知れませんが、 クリップボード経由で貼り付ければ一気に書き込むことはできます。 サンプルコードを追記しておきます。
takuyatakkyu

2021/12/22 00:41

ご丁寧にありがとうございます。 頂いたサンプルコードをpythonに変換して動かしてみます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問