0

Excel シートに 2 つの列があり、1 つはディレクトリを持ち、もう 1 つは要件名を持ちます。私が望むのは、マクロが 2 列目の値ごとに Word ドキュメントを作成し、要件の名前と 1 番目に記載されたディレクトリにあることです。コラム。 (ディレクトリが利用できない場合は、自動的にディレクトリを作成する必要があります)

4

1 に答える 1

0

私はすぐにこれを作成しました。これは、Word 文書を開き、 のディレクトリに基づいて にファイル名を付けて保存しRange("A2")、ファイルRange("B2")を閉じます。

Sub Button1_Click()

Dim oWord As Word.Application
Set oWord = New Word.Application
oWord.Visible = True

oWord.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
oWord.ActiveDocument.SaveAs2 Filename:=Range("A2") & Range("B2")
oWord.ActiveDocument.Close SaveChanges:=False

oWord.Quit
Set oWord = Nothing

End Sub

これにより、A 列を循環してドキュメントを保存し、空のディレクトリを修正するための適切な基盤が提供されます (if ステートメントで実行できます)。

Microsoft Word 参照がチェックされていることを確認する必要があります。これを行うには、VBA 画面にいることを確認し、[ツール] > [参照] をクリックして、[Microsoft Word xx.0 オブジェクト ライブラリ] を見つけます。リスト。ノート; xx.0 は、実行している Word のバージョンに固有です。

これがあなたが始めるのに役立つことを願っています!

于 2013-07-10T09:18:40.343 に答える