ジョンは毎週http://www.formville.com/C2_free-invoice-forms.html[invoice]を作成し、スキャンしたいくつかの画像をWord文書に挿入する必要があります。彼は、特定のフォルダのすべてのJPG画像を現在のWord文書に入れる方法があるかどうか疑問に思います。

これを行うには、いくつかの方法があります。 1つの方法は、すべてのグラフィックを選択して1つのステップで挿入することです。

。グラフィックを挿入するドキュメント内の場所に挿入ポイントを配置します。

。 [挿入] | [挿入]を選択します写真|ファイルから。 Wordは、[画像の挿入]ダイアログボックスを表示します。

。ルックインコントロールを使用して、画像を含むフォルダーを見つけます。

。 Ctrl + Aを押します。 Wordはフォルダ内のすべてのファイルを選択します。

。 Wordのバージョンに応じて、[OK]または[挿入]をクリックします。

それでおしまい; Wordは、すべてのグラフィックをドキュメントに挿入します。たくさんある場合（たとえば100を超える場合）

これを行う場合は注意が必要です。フォルダ内のグラフィックス、またはグラフィックファイルが非常に大きい場合は、Wordのクロールを遅くしたり、完全にハングアップしたりできます。フォルダにグラフィックだけでなく、一部のグラフィックファイルのみが必要な場合は、Ctrlキーを押しながら、マウスを使用して手順4でグラフィックを選択できます。重要なのは、手順4で選択したファイルが何であれです。これらは、Wordがドキュメントに挿入するファイルです。

このアプローチのバリエーションには、Windowsの使用が含まれます。次の一般的な手順に従ってください：

。グラフィックを挿入するドキュメント内の場所に挿入ポイントを配置します。

。 Word文書を最小化します。

。 Windowsでは、画像が配置されているフォルダを表示します。

。ドキュメントに挿入する画像の選択セットを作成します。

。選択セット内の任意の1つの画像をクリックし、マウスボタンを押したままにします。

。タスクバーに表示されているように、選択セットをドキュメントの上部にドラッグします。 （まだマウスボタンを離さないでください。）

。 WindowsがWord文書を表示したら（数秒後に表示されます）、マウスボタンを離します。

この時点で、前の方法と同じように、手順4で選択したすべての画像がWord文書に挿入されます。

上記のいずれかの方法を使用する場合は、必要に応じて画像のサイズを変更して移動する必要があります。これにより、ドキュメントが希望どおりに表示されます。

もちろん、画像のグループ全体を定期的に挿入する必要がある場合は、これらの手順を実行するのがしばらくすると面倒になる可能性があります。

テディウムはマクロを使用することで軽減されることが多く、この場合も例外ではありません。次のマクロを使用して、必要なファイルを選択できるダイアログボックス（以前の方法で使用したものと同様）を表示できます。ダイアログボックスを閉じると、ダイアログボックス内で選択した画像がドキュメントに挿入され、それぞれが独自の段落になります。

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

フォルダやファイルの選択に煩わされたくない場合は、さらに単純なマクロを使用できます。以下は、指定されたフォルダーからすべてのJPGファイルをプルし、それらを現在のドキュメントに配置します。各画像は独自の段落にあります。

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

マクロを使用するには、sPathに割り当てられた値を変更して、目的のフォルダーを表すようにしてください。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（10726）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Inserting_Multiple_Graphics_in_a_Document [ドキュメントに複数のグラフィックを挿入]。