Just wondering is anyone else having this problem...
I create a multi-page document... for instance lets say a Mass Booklet.
When editing the document pages, some of the pages move out of sync, ie. page 6 moved to page 8, etc...Any suggestions? Designed a 44 page book today, emailed the customer the proof... 8 of the pages had moved page position.
This really is a serious flaw in CD 2019... It has not only cost be money in one or two jobs where I have missed the movement of pages, it has also cost me a ton of unnecessary time... Corel really needs to address this problem and soon, as it is a serious flaw.
1 possible workaround is to use a macro or a combination thereof to reset the pages to the correct order.
Once you have the pages in the correct order run a macro to rename the pages. Whereby "Page 1" now becomes 1:001, Page 2 becomes 2:002 etc. Save the doc. This macro I don't have but shouldn't be too hard to make.
Now when you open the file at any other time and find the pages out of order you can run macro 2 which will Alphabetize the pages. This macro I have. Or have it run automatically at open.
I now have the macro to rename the pages.
Interested to know if it works. Yesterday I had to redo the order of the pages of the manual several times.
Tested with X7 like this
Keep in mind that when "alphabetizing" numbers you won't get the desired result hence the reasoning behind renaming the pages first
1. create a 15pg doc
2. on center of each pg type the actual pg # i.e. "Pg1" approx 1" LH. Do this for each page
3. run the "NumberPages" Macro. Note that "Page 1" is now 1:001 and so forth
4. go to page sorter view and rearrange the pages
5. run the "AlphabetizePages" Macro
6. pages are back in the correct order
Sub RenamePages()Dim i, n, LintFlip As LongDim p As PageDim StrPage(1) As StringStrPage(1) = " 001"For Each p In ActiveDocument.Pagesp.Activatei = ActivePage.Indexn = Format$(i, "000")p.Name = n & StrPage(LintFlip)Next pEnd Sub
Sub AlphbetizePages()Dim i As Integer, j As IntegerWith ActiveDocument.Pages For i = 1 To .Count - 1 For j = i + 1 To .Count If IsNumeric(.Item(i).Name) And IsNumeric(.Item(j).Name) Then If CDbl(.Item(i).Name) > CDbl(.Item(j).Name) Then .Item(i).MoveTo j .Item(j - 1).MoveTo i End If Else If UCase(.Item(i).Name) > UCase(.Item(j).Name) Then .Item(i).MoveTo j .Item(j - 1).MoveTo i End If End If Next j Next i End WithEnd Sub
helpful indeed... but hell.. Corel, just fix it please. : / my goodness.