VBAで、エクセルからワードへの変換について

質問

VBAは、全くの初心者で、テキスト等のサンプルコードを参照して書いているのですが
期待通りの動きをしないので、教えてください。

やりたい事は、Excelファイル（A-Fカラム、400行程度）を
1行ページのワードに変換し、400枚のワードファイルを作成します。
その際に、添付画面のように、各カラムを、タイトル、連番、内容などと区分けをして
フォントも変えたいです。

下のコードでは、転送は、出来るのですが、1行1ページにならず、また、
エクセルの枠も転送されてしまいます。

ワードVBAも試したのですが、特定文字での検索が難しく、各ページでの
改行位置が異なるため、自分の理解では出来ませんでした。

ワードでテンプレートを作って、Excel VBAから差込になるのでしょうか？

よろしくお願い致します。

Sub CopyExcelDataToWord()

Dim wsSource As Excel.Worksheet
Dim cell As Excel.Range
Dim collUniqueHeadings As Collection
Dim lngLastRow As Long
Dim i As Long
Dim appWord As Word.Application
Dim docWordTarget As Word.Document

Set wsSource = ThisWorkbook.Worksheets(1)
With wsSource
lngLastRow = .Range("A" & Rows.Count).End(xlUp).Row
Set collUniqueHeadings = New Collection
For Each cell In .Range("A2:A" & lngLastRow)
On Error Resume Next
collUniqueHeadings.Add Item:=cell.Value, Key:=cell.Value
On Error GoTo 0
Next cell
End With
Set appWord = CreateObject("Word.Application")
With appWord
.Visible = True
Set docWordTarget = .Documents.Add
.ActiveDocument.Select
End With
For i = 1 To collUniqueHeadings.Count
With wsSource
.Range("A1").AutoFilter Field:=1, Criteria1:=collUniqueHeadings(i)
.Range("A1:D" & lngLastRow).Copy
End With
With appWord.Selection
.PasteExcelTable linkedtoexcel:=False, wordformatting:=True, RTF:=False
.TypeParagraph
End With
Next i

For i = 1 To collUniqueHeadings.Count
collUniqueHeadings.Remove 1
Next i
Set docWordTarget = Nothing
Set appWord = Nothing

End Sub

回答No.2

n-jun

＞エクセルの枠も転送されてしまいます。
って
＞.Range("A1:D" & lngLastRow).Copy
コピペするからじゃないかな？

どのように書き出したいのかわからないけど、

・Collectionを使う必要性
・AutoFilterを使う必要性

が疑問点です。
⇒使おうとした意図が掴めない。

お礼

ありがとうございます。
VBAは、あまり経験がなく、サンプルをコピーして使ってみましたので、自分にも分かりません。
結果的に、単純なワードの差込印刷機能で解決しました。

回答No.1

いけだ ひろし（@ike-2000）

添付画面は正しくないものということよいですね。
「Excelファイル（A-Fカラム、400行程度）を1行ページのワードに変換し、400枚のワードファイルを作成します。」
ということで。

分けてやったらいかがですか。1度にやろうとするから難しいような気がします。

(1)EXCEL.VBAでCSVファイルに出力する(カンマはデータにありそうなので、TAB区切りが良いと思います)。
(2)WORD.VBAで当該ファイルを読み込み処理する。

これなら、EXCEL、WORDのそれぞれのVBAの範囲で出来るのではないでしょうか。

お礼

ありがとうございます。
最初に、連携、次に、EXCEL VBA、WORD　VBAと考えて
また、連携VBAか？と考えた次第です。
結果的には、単純なワードの差込印刷機能で解決しました。