2

ヘッダー/フッターとテキストの書式設定を含むテンプレートがあります。このテンプレートに .rtf または .doc ファイルの内容を入力するマクロを作成したいと考えています。また、テンプレート ファイルのヘッダーと書式、および .rtf または .doc ファイルの画像を保持するように、書式を結合したいと考えています。

カット＆ペーストが大活躍。テンプレートファイルを開いて保存し、挿入するファイルを開いてすべてを選択し、「マージフォーマット」で特別に貼り付けると、必要なものが正確に得られます。もっとスケーラブルなソリューションが欲しいだけです。

これのほとんどを行うマクロを作成しましたが、書式設定のマージに失敗し、ヘッダーとフッターが削除 (または非表示) されます。正しいアプローチではInsertFileメソッドを使用すると思いましたが、わかりません。

任意のポインターをいただければ幸いです (私は Word と VBA の両方が初めてです)。

Sub InsertFile()

    currentPath = ActiveDocument.Path

    Set FileBox = Application.FileDialog(msoFileDialogFilePicker)

    With FileBox
        .Title = "Select the File that you want to insert"
        .InitialFileName = currentPath & "\" & "*.rtf"
        .AllowMultiSelect = False
        If .Show = -1 Then
            FiletoInsert = .SelectedItems(1)
        End If
    End With

    Selection.Range.InsertFile FiletoInsert
    Set FileBox = Nothing
End Sub

更新-カットアンドペーストを使用しているように見えるこのアプローチも試しましたが、結果は同じです。

4

3 に答える 3

0

自分の VBA マクロでこれと同じ呼び出しを試してみたところ、

Selection.Range.InsertFile (FiletoInsert)

1つのパラメーターファイル名のみを渡すと機能するようです。ファイル名が完全であることを確認してください。

于 2014-05-09T18:41:57.163 に答える