1

テーブルから別のセルにセルをコピーする際に問題があります。ここでは、2 つのワード文書について話しています。テキストをコピーすることはできますが、箇条書きがなくなっており、書式設定の一部が失われています。

やってみ.Formattedtextたけどまだできない。

Dim test As Word.Cell

'An error occurs something like "Object variable or With block variable not set"
test.Range.FormattedText = CTPDoc.Tables(2).Rows(testCount).Cells(3).Range.FormattedText
4

2 に答える 2

4

ここに例があります。

Word 文書に 2 つのテーブルがあるとします。以下のスクリーンショットを参照してください

ここに画像の説明を入力

ofからCell 1ofまでのデータを貼り付けたいとしましょう。Table 1Cell 1Table 2

Sub Sample()
    Dim tbl1 As Table, tbl2 As Table

    Set tbl1 = ActiveDocument.Tables(1)
    Set tbl2 = ActiveDocument.Tables(2)

    tbl1.Cell(1, 1).Range.Copy
    tbl2.Cell(1, 1).Range.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

これがマクロの機能です

ここに画像の説明を入力

お役に立てれば ：）

于 2013-01-14T12:08:13.003 に答える
1

@Siddharth Routあなたの答えは本当に役に立ちました。それは私の問題に対する正確な答えではありませんが、少なくとも私はPasteandFormatと などのさまざまなタイプについて学びましwdFormatOriginalFormattingた。いつか私はそれを使うことができるかもしれません。

ここに私の問題を解決したものがあります。Siddharth によって与えられたロジックを使用して、 のtbl2.Cell(1, 1).Range.Paste代わりにシンプルを使用しましたPasteandFormat。実際PasteandFormatには動作しましたが、選択したソース ファイル/テーブルでのみ発生する問題がありました。別のセルに貼り付けると、元のテーブルが台無しになる書式がいくつかあると思います。それが正確に何であるかはわかりませんが、.Paste間違いなく解決しました。私も他の人を助けることができることを望みました:)

于 2013-01-18T02:34:04.680 に答える