![]() |
#11
|
||||
|
||||
![]()
Yes, they are built-ins, but clearly they don't account for all built-in Styles. An error trap is exactly what I used to generate the list. What I haven't been able to figure out yet is why those particular Styles generate an error, but the other built-ins etc don't. if you're happy with an error report, try:
Code:
Private Sub CmdCopyStyle_Click() Dim DestDoc As String, x As Long, y As Long, StrSty As String, StrList As String For x = 0 To ListBox3.ListCount - 1 DestDoc = ListBox3.Column(0, x) For y = ListBox2.ListCount - 1 To 0 Step -1 StrSty = ListBox2.Column(0, y) On Error Resume Next Application.OrganizerCopy Source:=SourceFile, Destination:=DestDoc, _ Name:=StrSty, Object:=wdOrganizerObjectStyles If Err.Number = 4198 Then If x = 0 Then StrList = vbCr & StrSty & StrList ListBox2.RemoveItem (y) End If Err.Clear Next y Next x If StrList <> "" Then MsgBox "Unable to copy the following Styles:" & StrList End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
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 |
![]() |
cksm4 | Word | 6 | 01-06-2011 09:03 PM |
Outlook 2003 restart in a loop | Stegel | Outlook | 0 | 06-29-2007 12:34 PM |