Re: inserting multiple pictures and description

From where do you get the description and photo reference number?

If they are available in some electronic format, your could either modify
your macro to insert them, or you could perform a directory or catalog mail
merge and then either add the other report sections to that document or
insert it into your report document.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"asbest" <alexander.craens@xxxxxxxxxx> wrote in message
news:457eeedc-3ea1-413a-bc43-1c1da1d65615@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
On 17 dec, 21:42, asbest <alexander.cra...@xxxxxxxxxx> wrote:
On 17 dec, 20:43, "Doug Robbins - Word MVP" <d...@xxxxxxxxxxxxxxxxxx>
wrote:



What else is in the report?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"asbest" <alexander.cra...@xxxxxxxxxx> wrote in message

news:e9b7cf5b-61cd-455d-b679-c63aac64184d@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
On 17 dec, 10:25, "Doug Robbins - Word MVP" <d...@xxxxxxxxxxxxxxxxxx>
wrote:

See response in the vba.beginners newsgroup.

Please do not post the same question separately to multiple
newsgroups.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"asbest" <alexander.cra...@xxxxxxxxxx> wrote in message

news:1c87d3e7-f57c-450d-84b3-14756bf383b0@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

I am trying to create a word document by inserting (using vb) a
series
of
pictures and descriptions on my document. I want to place them like
so:

----------
| |
| |
----------
Description
----------
| |
| |
----------
Description
----------
| |
| |
----------
Description

and so on down the page.....

Please help

I tried the mailmerge method but it's not what i'm looking for.
This document is a report that will be used several times a day, every
time different pictures, different number of pictures, other
descriptions.
This is why I am looking for a macro to automate this time taking job

Any other suggestion are welcome

It starts with an explaination why the report is created and the goal
(that sort of information) then the a table explaining the locations
visited and after that the pictures with the description underneath.
The report ending is some comments, findings and recommendations based
on assessment sheets in annexe

The document is a survey report.

This is the macro I'm running for the moment but there is still of
manual work I have to do. This includes;
inserting:
- additional row under each picture;
- the descriptions and photo reference number

and I have to size the pictures ahead of time

here the macro/

Sub InsertAllPicsInFolder()
'
Dim tbl As Word.Table
Dim fso, f, fi
Dim szPicPath As String, lRowCounter As Long

szPicPath = "C:\Documents and Settings\alex.craens\Desktop\ERSH-HQ
\P&V - Photography. & Video\New Folder"
lRowCounter = 1
Set tbl = ActiveDocument.Tables(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(szPicPath)
For Each fi In f.Files
Selection.InsertRowsBelow
Select Case Right(fi.Name, 3)
Case "bmp", "jpg", "gif"
If lRowCounter > tbl.Range.Cells.Count _
Then tbl.Rows.Add
ActiveDocument.InlineShapes.AddPicture _
FileName:=szPicPath & "\" & fi.Name, _
Range:=tbl.Range.Rows(lRowCounter).Range
lRowCounter = lRowCounter + 1
Case Else
End Select
Next fi

End Sub


Any help is welcome


.

Relevant Pages

  • Re: inserting multiple pictures and description
    ... If you have the filename/reference or the filename, ... your report. ... pictures and descriptions on my document. ... Dim szPicPath As String, lRowCounter As Long ...
    (microsoft.public.word.vba.customization)
  • Re: inserting multiple pictures and description
    ... {MERGEFIELD filename} ... your report. ... pictures and descriptions on my document. ... Dim szPicPath As String, lRowCounter As Long ...
    (microsoft.public.word.vba.customization)
  • Re: inserting multiple pictures and description
    ... services on a paid consulting basis. ... pictures and descriptions on my document. ... This document is a report that will be used several times a day, ... Dim szPicPath As String, lRowCounter As Long ...
    (microsoft.public.word.vba.customization)
  • Re: inserting multiple pictures and description
    ... insert it into your report document. ... pictures and descriptions on my document. ... This is why I am looking for a macro to automate this time taking job ...    Dim tbl As Word.Table ...
    (microsoft.public.word.vba.customization)
  • How can I get a big "A" at the beginning of the A people, "B", etc
    ... I have a report in an Access database that we're using for Names, addresses, ... I have a good report to get the pictures to ... about script or macro, ...
    (microsoft.public.access.reports)