Macro to replace one specific heading style with another

ubns · #31 08-23-2012, 05:34 PM

Hi Paul,

I have worked out the reason. Its just that when word opens a document downloaded from internet - it opens in non editing mode and we have to click "Enable Content" and hence the reasdon it cannot recognise the document is open and cannot run the macro (at open macro).

Regards

ubns · #32 08-23-2012, 05:36 PM

Hi Paul,

Sorry to ask this again, I am just trying to make it work.

Now it is giving the error "Style not found". I thought something should be wrong with the style name, however when I clicked on the Debug, the error was on some other line. See the attached image and code is below

Code:

Sub Document_Open()
Dim StrSty As String, i As Long
StrSty = "Custom Breakout,Custom Breakout Subheading,Custom Page Heading," & _
  "Custom Page Subheading 1.0,Table Grid, Umesh Table"
With ActiveDocument
  With .Content.find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Text = "monitor"
    .Replacement.Text = "review"
    .Execute Replace:=wdReplaceAll
    .Text = "folder or on a seperate disc"
    .Replacement.Text = "folder"
    .Execute Replace:=wdReplaceAll
  End With
  If InStr(.Sections.First.Footers(wdHeaderFooterFirstPage).Range.Text, "Statement of Advice") > 0 Then
    For i = 0 To UBound(Split(StrSty, ","))
      Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
        Name:=Split(StrSty, ",")(i), Object:=wdOrganizerObjectStyles
    Next
  End If
End With
End Sub

macropod · #33 08-23-2012, 05:38 PM

Quote:

I have worked out the reason. Its just that when word opens a document downloaded from internet - it opens in non editing mode and we have to click "Enable Content" and hence the reasdon it cannot recognise the document is open and cannot run the macro (at open macro).

That's just a matter of downloading the file before opening it (rather than opening it from the internet) and using the correct security settings, including (if applicable) trusted locations.

ubns · #34 08-23-2012, 05:38 PM

Hi Paul,

It seems to be working now.

I am going to reinstall word.

macropod · #35 08-23-2012, 05:41 PM

Quote:

Originally Posted by ubns

Hi Paul,

Sorry to ask this again, I am just trying to make it work.

Now it is giving the error "Style not found". I thought something should be wrong with the style name, however when I clicked on the Debug, the error was on some other line.

In all likelihood, it's because the template the code looks at isn't your's anymore, but the user's.

macropod · #36 08-23-2012, 05:43 PM

Quote:

Originally Posted by ubns

I am going to reinstall word.

I can't see that resolving anything. If there is a Word error (unlikely from anything you've described), reinstalling is unlikely to fix it any better than a repair would.

ubns · #37 08-23-2012, 06:01 PM

oh Ok.

I will do repair.

ubns · #38 08-29-2012, 05:11 PM

Hi,

I have done all the repair etc.

I have changed the settings of protected mode.

See attached images - I have numbered them in sequence 1,2,34.

Please advice what else could be done - for macro to work at start.

Regards

macropod · #39 08-29-2012, 08:36 PM

Hi Umesh,

As I said before, a Word error was unlikely from anything you've described. So I don't know why you've done a repair or changed various settings.

The first issue to address is why Word detects a problem in the 'reportout' document. For example, is it a valid Word file, or has someone just opened it in Word without checking?

ubns · #40 08-29-2012, 08:43 PM

Ok thanks, so how do you suggest I address that issue.

macropod · #41 08-29-2012, 09:19 PM

Well, you could start with the checks I suggested. After all, I have no idea what your 'reportout' document is. The image you posted doesn't indicate a doc(x/m) extension - or any other, for that matter - and I don't even know if it's in a format that Word recognizes.

ubns · #42 08-30-2012, 05:11 AM

Hi Paul,

Thanks. What checks you are referring to. FYI the document is .doc type.

macropod · #43 08-30-2012, 06:10 AM

How do you know it's a doc type? Simply adding a 'doc' extension does not make it one. the error message suggests Word does not think it is a valid doc type.

ubns · #44 09-04-2012, 06:54 PM

Quote:

Originally Posted by macropod

How do you know it's a doc type? Simply adding a 'doc' extension does not make it one. the error message suggests Word does not think it is a valid doc type.

Hi Paul,

Then how can I determine the file type? Can you please suggest something on that?

Regards

macropod · #45 09-04-2012, 08:17 PM

I suspect it may be just a plain text file, in which case the content will be readily visibly in Notepad.

A genuine Word Doc file, when viewed with a text editor (eg notepad) begins with the character Ð. There are many other conditions but, if the Ð isn't present, whatever else it might be it's not a Doc file.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create and save custom heading style	ubns	Word	3	08-01-2012 09:42 PM
Modify a numbered heading style	TheQueenBea	Word	3	06-05-2012 12:12 PM
Changing numbering in a Heading style	TheQueenBea	Word	1	05-31-2012 02:22 PM
Very frequent heading style, but still not built in Word!!!!! why???	Jamal NUMAN	Word	17	06-30-2011 05:47 PM
How to have this Heading – Table of contents style?	Jamal NUMAN	Word	0	01-13-2011 06:02 PM