Loop through listboxes in Application.OrganizerCopy

Marrick13 · #1 01-09-2012, 03:57 PM

Hi Macropod,

Thanks for the code. It's true that error 4198 is a new message, but I wanted to be able to copy the built-in styles - is that not "allowed"? The Word Organizer can copy them, and the purpose of this app is to mimic the Organizer but improve its limitations by copying styles to multiple files and by not defaulting source and target folders to templates and template-type files.

I did discover an error in the code when choosing "Show only styles in use" but just fixed it. However, if I choose "Show all styles" and select the "Template for Headings 1-2.doc" as the source, I get 8 styles. If I click "Show only styles in use" and select the same file, I get 29 styles.

I must have had the idea that styles in use would be equal to or less than the built-ins, but perhaps not. So is there a way to copy multiple built-in styles to multiple files? The target files will likely have the same built-in styles, but of course some of the source built-in styles could be different from the target ones, and this is why I want to mass copy them as well.

I've attached the repaired application so you can see the changes.

macropod · #2 01-10-2012, 03:35 PM

Hi Marrick,

Quote:

Originally Posted by Marrick13

It's true that error 4198 is a new message, but I wanted to be able to copy the built-in styles - is that not "allowed"? The Word Organizer can copy them, and the purpose of this app is to mimic the Organizer but improve its limitations by copying styles to multiple files and by not defaulting source and target folders to templates and template-type files.

An update:
I've narrowed down the problem Styles to the following list (based on what's in a test document I'm using):

Code:

1 / 1.1 / 1.1.1
1 / a / i
Article / Section
Comment Reference
Emphasis
Endnote Reference
FollowedHyperlink
Footnote Reference
HTML Acronym
HTML Cite
HTML Code
HTML Definition
HTML Keyboard
HTML Sample
HTML Typewriter
HTML Variable
Hyperlink
Line Number
Page Number
Strong
Table 3D effects 1
Table 3D effects 2
Table 3D effects 3
Table Classic 1
Table Classic 2
Table Classic 3
Table Classic 4
Table Colorful 1
Table Colorful 2
Table Colorful 3
Table Columns 1
Table Columns 2
Table Columns 3
Table Columns 4
Table Columns 5
Table Contemporary
Table Elegant
Table Grid
Table Grid 1
Table Grid 2
Table Grid 3
Table Grid 4
Table Grid 5
Table Grid 6
Table Grid 7
Table Grid 8
Table List 1
Table List 2
Table List 3
Table List 4
Table List 5
Table List 6
Table List 7
Table List 8
Table Professional
Table Simple 1
Table Simple 2
Table Simple 3
Table Subtle 1
Table Subtle 2
Table Theme
Table Web 1
Table Web 2
Table Web 3

I don't know what's special about them, but at least we know it's not all built-in Styles.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to use for loop in formula in VBA?	tinfanide	Excel Programming	1	12-06-2011 08:33 AM
music loop in powerpoint presentation	genoMU69	PowerPoint	1	06-15-2011 08:00 AM
While loop not working right	Cbrehm	Excel Programming	0	05-11-2011 11:05 AM
Continuous Loop	cksm4	Word	6	01-06-2011 09:03 PM
Outlook 2003 restart in a loop	Stegel	Outlook	0	06-29-2007 12:34 PM