Hi Benji,
It was under the "Photo Test" thread. To make it easy, I'll copy and paste some instructions (of what I wrote for Dunlin).
OK for the walkthrough....
1) Download the free IrfanView software if you don't already have a copy.
2) Use the software for a few sample images...resize if you would want.
3) In IrfanView check out the EXIF data under Image, then Information.
4) See the button to copy to the clipboard and push it.
5) Open up a blank MS Word document, put the mouse cursor at the top of that document and push Ctrl+V to paste it in from the clipboard.
6) In MS Word, push Alt+F11. That will bring you to the programming modules.
7) Copy the program I wrote (start with the simple one) into a module.
8) Run the program, by putting the mouse cursor any where in the code section and push the arrow in the ribbon above between the words "Run" or "Debug". Or push the F5 key.
9) Copy & paste the selected EXIF data at the bottom of the MS Word document into your DPRevived post, next to your image.
Now your version of IrfanView might be different than mine, so consider my instructions only for testing. Then we can fine tune it to match what you have. I wrote this from memory...hope I didn't mess up...but if I did I'll edit it and we'll go from there. At any of the steps I wrote, if you get stuck, let me know. Then I'll open up IrfanView or MS Word and look at more details and we'll get it to work.
After this test is complete, you may want to select different EXIF data lines. That will be super easy. All we do is have to put that number in the array and loop it all the way through. I'll explain further later if you need that help. Again, that will be super easy. Let's just get this test to work first. :-)
I don't normally program with MS Word VBA, but because of my programming background and some code from available sources like the Microsoft website, I was able to get something to work. There is little error protection built in. One time I was able to insert a space between the output, but today that failed. But it did affect the results. I just had to manually put in an extra space. You must know with code, there's always something. :-)
If you copy & paste multiple EXIF data from each image, remember to start at the very top of the MS Word document. Then leave a space between the multiple sets of EXIF data. If you don't do that right, then the results will be not what you want. I only spent a few hours writing this code. If you find improvements, please let us know. It's fun automating tasks. I avoid doing manually boring routine tasks if I can. :-)
This has some error protection, but it doesn't work all the time. I purposely tried to crash it, and it ignored what I wrote some of the time. Maybe you can figure that out.
OK, here's the code for multiple images and then followed by the code for one image. Also, the underscored line means that it continues. It has been referred to as a "line-continuation character". You can read about that on the internet, if you are not familiar with it.
Sub EXIFDataMultipleRevision2()
Dim A As Integer: Dim B As Integer: Dim TheEnd As Integer: Dim EXIFLen As Integer: Dim vardata
On Error GoTo TheLast
'***************
' This code is written for multiple EXIF data sets for each image. *
' TheEnd is any additional image EXIF data beyond the first one. *
' For example, when TheEnd is two, this is for three sets of image EXIF data. *
' EXIFLen is the fixed number of EXIF data lines plus one; that is 103 + 1 (allowing for one space) *
'* The EXIF data must be inserted in the MS Word document with one separating space to match the code. *
'*****************
TheEnd = 3 'This is for four images.
EXIFLen = 104
For A = 0 To TheEnd
For B = 0 To 6
vardata = Array(1 + EXIFLen * A, 3 + EXIFLen * A, 13 + EXIFLen * A, 14 + EXIFLen * A, 16 + EXIFLen * A, 27 + EXIFLen * A, 47 + EXIFLen * A)
ActiveDocument.Paragraphs(vardata(B)).Range.Copy
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, End:=ActiveDocument.Content.End - 1)
myRange.Paste
Next B
myRange.Paragraphs(1).LineUnitAfter = 1
Next A
Exit Sub
TheLast:
MsgBox "There is an error in this program, so this will end. The error is " & Err.Description & ".", vbInformation, "Programming Error"
End Sub
'***************
Here's the code for only one image. This is easier to understand. Then you can see what I wrote above; it might make more sense that way.
Sub EXIFData()
Dim A As Integer
Dim vardata
vardata = Array(1, 3, 13, 14, 16, 27, 47)
For A = 0 To 6
ActiveDocument.Paragraphs(vardata(A)).Range.Copy
Set myRange = ActiveDocument.Range _
(Start:=ActiveDocument.Content.End - 1, _
End:=ActiveDocument.Content.End - 1)
myRange.Paste
Next A
End Sub
