-1

新しい形式に変換する必要がある古い形式の Word ドキュメントが約 50 あります。新しいフォーマット テンプレートを作成し、必要な番号付きフィールドをマクロを使用して古いフォーマットから新しいフォーマットにコピーし、最終的にこの新しいドキュメントを保存することを考えていました。

一部のフィールドがヘッダーにある古い形式で、1 から 6 までのフィールドに番号を付けました。シーケンスが異なる新しい形式でこれらのフィールドが必要です。

私はマクロのまったくの初心者で、これを明日提出する必要があるので、何か助けやアドバイスをいただければ幸いです。

Word ドキュメントのダウンロード リンクは次のとおりです。

古いフォーマット: http://www.scribd.com/R0cKyMan/d/90470134-Old-Format

新しいフォーマット: http://www.scribd.com/R0cKyMan/d/90473107-New-Format

4

1 に答える 1

2

それで、ヘッダーフィールドのコピーを手伝ってもらえますか。ありがとう – R0cKy 3 分前

のテーブルにはHeader、別の方法でアクセスする必要があります。

テーブルが本体にある場合は、このように使用できます

ActiveDocument.Tables(1).Cell(1, 1).Select
Selection.Copy

ただし、 にあるテーブルにアクセスするには、ヘッダーがあるHeaderにアクセスする必要があります。Sectionあなたの場合、テーブルはwdHeaderFooterPrimary

これを試して

Option Explicit

Sub Sample()
    '~~> Copies the 2nd Cell in the first row of a table which is in the Header
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Select
    Selection.Copy

    '~~> Pastes it in say 1st cell in Row 1 of a table which is in the body
    ActiveDocument.Tables(1).Cell(2, 3).Select
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

これで始められることを願っています。

于 2012-04-22T20:27:47.467 に答える