It seems the Calendar Macros are not designed for a Changing date header. Using Bings Chat GPT it suggested the following but, Insert Character is not showing up in Corel 2023. Otherwise it sounds like this method might work.To format a date line in CorelDRAW, you can use the Text tool to insert a text frame and type the date format you want, such as YYYY-MM-DD (WW). Then, you can select the text frame and go to Text > Insert Character > Date/Time. This will open a dialog box where you can choose the date format and the update option. You can select Update on open to make the date changeable on each new page. I thought to create a column in Excel and try a print merge but Excel does not seem to like my chosen text and numbers date type. In some respects a calendar Macro like Oberon could be useful in allowing it to show all the holidays but does npt seem to intend it to be just a line on a 5.5x8.5 tall agenda.Suggestions?
YYYY-MM-DD (WW)
Sub Macro1() Dim p As Page, Dt As Date, i&, k& Dt = CDate("1-1-2024") 'Enter the starting date of the calendar here k = 7 'Enter the number of days for the calendar here '(this affects the speed of macro execution)
ActivePage.Name = Format(CStr(Dt), "yyyy-mm-dd") For i = 1 To k - 1 Set p = ActiveDocument.InsertPages(1, False, ActiveDocument.Pages.Count) p.Name = Format(CStr(Dt + i), "yyyy-mm-dd") Next iEnd SubTry this.RegardsTaras
Thank you, looking at what you provided I do not see a mention of the weekday, Monday, Tuesday, etc.
I had an issue with Visual Studio installing Community version it appears the 2019 version needs to be installed so as to install the Visual Studio Tools 2019 version. I saved your script and running it creates multiple pages but blank. The blank pages shows them named 2024-01-01, and 2024-01-02 .
Diary,Agenda,Appointment,Reservation book date header 5.5x8.5.xlsx As it is evident I do not know how to use the macro provided to create content within the document. (it only created the blank pages with the proper name for each page) . I went further with creating a Excel spreadsheet table of the dates in "2024 January 1, Monday" formatl, in addition I had it add a Spanish translation as the appointment book is going to be used in Mexico. Column A provides the starting date, B the English Date, and G the Spanish Date. Select all and drag down on the right corner to create the rows. I used Chat GPT 3.5 to provide the formulas. Now I will need to use Print Merge to create the document for print and may have to use a separate pagination program to print the 5.5x8.5 pages in booklet form then will take it to a print shop to cut in 1/2 and either Spiral or Wire bind. Because each signature will be 4 pages one needs to print multiples of 4 pages, the list shown is thus a bit over a year though by the time I print it I may have switched it to printing a bit before the new year and a bit after. I am hoping the file attached is retained as an Excel file and not corrupted on upload.
Aditional note: I could do no more than 200 spreadsheet lines and it took many minutes to refresh. Corel Merge still almost useless. I suggest you may want to limit spreadsheet lines to 100 then join the pdf using another program. I like Cute PDF professional.
Try to format data in excel to required format and then save as csv file use this file as data source.
sample csv and first 10 pages of merged file attached as sample (zipped)
Processing of all records from your excel file (about 400 lines), i.e. creating new cdr flie with 400 pages took about 12 seconds
diary.zip