Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 11-02-2017, 01:29 AM
gmayor's Avatar
gmayor gmayor is offline Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Windows 10 Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default


Without knowing how the images are inserted it is something of a guess, but the following will insert the date in the required format after each image.

Code:
Sub Macro1()
'Graham Mayor - http://www.gmayor.com - Last updated - 02 Nov 2017
Dim iShp As Integer
Dim dStartDate As Date
Dim oRng As Range
Dim strDate As String
    dStartDate = "01/01/2018"
    For iShp = 1 To ActiveDocument.InlineShapes.Count
        strDate = Format((dStartDate + iShp), "mmmm d") & _
                DateOrdinal(Format((dStartDate + iShp), "d")) & _
                Format((dStartDate + iShp), " yyyy")
        Set oRng = ActiveDocument.InlineShapes(iShp).Range
        oRng.Collapse 0
        oRng.Text = vbCr & strDate & vbCr
        Set oRng = oRng.Paragraphs(2).Range
        oRng.Font.Size = 24
        oRng.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next iShp
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #2  
Old 11-03-2017, 07:00 PM
caarodriguez caarodriguez is offline Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Windows 10 Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Office 2016
Novice
Need help creating a document with 365 images, with a day of the year 2018 captioned on each image.
 
Join Date: Nov 2017
Posts: 5
caarodriguez is on a distinguished road
Default

Thanks, I tried it.

I get an error saying "DateOrdinal" Compile Error: sub or function not defined.

I use insert -> pictures to get the images into my document.
Reply With Quote
  #3  
Old 11-03-2017, 11:07 PM
gmayor's Avatar
gmayor gmayor is offline Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Windows 10 Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Quote:
Originally Posted by caarodriguez View Post
Thanks, I tried it.
I get an error saying "DateOrdinal" Compile Error: sub or function not defined.
I use insert -> pictures to get the images into my document.
Apologies - I forgot to include the dateordinal function. Paul's alternative should work equally well.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #4  
Old 11-04-2017, 05:13 AM
caarodriguez caarodriguez is offline Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Windows 10 Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Office 2016
Novice
Need help creating a document with 365 images, with a day of the year 2018 captioned on each image.
 
Join Date: Nov 2017
Posts: 5
caarodriguez is on a distinguished road
Default

Quote:
Originally Posted by gmayor View Post
Apologies - I forgot to include the dateordinal function. Paul's alternative should work equally well.
Thanks alot, it works really well. Is it possible to put the dates above the images instead of below?
Reply With Quote
Reply



Similar Threads
Thread Thread Starter Forum Replies Last Post
How to search for a specific year from a table with year range? Wii Excel 0 05-05-2015 12:40 PM
How to calculate a rolling year-to-date percentage by quarter as the year progresses sleake Excel Programming 2 04-23-2015 11:51 AM
Need help creating a document with 365 images, with a day of the year 2018 captioned on each image. Need advice on creating new .pst files every year Rockitman31 Outlook 1 03-02-2013 08:00 AM
Creative Ways for a year-to-year comparison??? ridonkulous5 Excel 1 03-23-2011 04:49 PM
Referencing a Captioned Picture ComcoDG Word 0 11-10-2008 04:40 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:49 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft