1

私は VB6 アプリを継承しており、その一部を手伝うことができました。

このコードは、Word 文書を開き、その内容をコピーします。これが完了すると、別のドキュメントが開き、最初のドキュメントの内容が 2 番目のドキュメントに貼り付けられます。開く、コピー、貼り付けは正常に機能します。問題は、貼り付けられたテキストの書式設定とそれに続くセクション区切りにあります。別のページに配置されているセクション区切りの直後に表示される代わりに、セクション区切りはまだ連続していると言っています。私はいくつかの掘り下げを行い、次の内容を試しました

貼り付け時にマージン調整を停止する - マイクロソフト コミュニティ

ドキュメントをコピーしてテンプレートに貼り付けると余白の問題 - マイクロソフト コミュニティ

セクション区切りにより、Word で予期しない改ページが発生する

改ページとセクション区切りのトラブルシューティング - Word - Office.com

これらのどれも役に立ちませんでした。コードの縮小バージョンは次のとおりです。

    GetWord97Object objWordApp

objWordApp.Visible = True
objWordApp.documents.Open strCopyFromDoc

DeleteHeadersAndFooters objWordApp.documents(strCopyFromDoc)

objWordApp.documents(strCompyFromDoc).content.Copy

objWordApp.documents.Open strCopyToDoc
objWordApp.documents(strCopyToDoc).characters(objWordApp.ActiveDocument.characters.Count).Select

Set objRng = objWordApp.ActiveDocument.content   ' Range used so as not to overwrite original text
objRng.Collapse Direction:=0

If IsWordAppVersionLessThan2002(CInt(objWordApp.Version)) Then
    objRng.Paste
Else
    objRng.PasteAndFormat wdPasteDefault
End If

貼り付けとフォーマットを試しましたが、役に立ちませんでした。私が使用している Word のバージョンは 2002 SP3 ですが、2002 以降で動作する必要があります。VB6 は SP6 です。

よろしくお願いします。

4

2 に答える 2

0

私はなんとか問題を取り除くことができました。コードではなく、ドキュメントに関係しているようです。あるドキュメントから別のドキュメントにヘッダーとフッターをコピーしたところ、今回はうまくいったようです。以前のコピーの試みでは、何の違いもなかったようです。理想的な解決策ではありませんが、少なくともソートされています。

于 2013-02-28T09:46:41.493 に答える