Ensure macro operates in the right doc window

marceepoo · #1 10-31-2012, 05:55 PM

Assume that I am working in Word 2010, and
I have two Word documents open, Doc1 and Doc2, and
I am editing Doc1.

Sometimes, when I am working in Doc1, and I click on the button that triggers the macro below "subCurlyQuots", the macro will operate on Doc2 instead of Doc1.

How can I make sure that the macro operates on Doc1 instead of Doc2?

Any help would be much appreciated.

Thanks,

Marc

Code:

Sub subCurlyQuots() 
     '
     ' CurlyQuotes Macro
     '
     '
    ActiveDocument.ActiveWindow.SetFocus 
    With ActiveDocument.Bookmarks 
        .Add Range:=Selection.Range, Name:="CurlyQuotes99999999999999" 
        .DefaultSorting = wdSortByName 
        .ShowHidden = False 
    End With 
    Selection.HomeKey Unit:=wdStory 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
        .Text = """" 
        .Replacement.Text = """" 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = False 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
    With Selection.Find 
        .Text = "'" 
        .Replacement.Text = "'" 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = False 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
    Selection.GoTo What:=wdGoToBookmark, Name:="CurlyQuotes99999999999999" 
    ActiveDocument.Bookmarks("CurlyQuotes99999999999999").Delete 
    With ActiveDocument.Bookmarks 
        .DefaultSorting = wdSortByName 
        .ShowHidden = False 
    End With 
     
End Sub ' subCurlyQuots()

macropod · #2 10-31-2012, 08:59 PM

Your code should run against whichever document is active at the time. That said, it could be reduced to:

Code:

Sub subCurlyQuots() 
   '
   ' CurlyQuotes Macro
   '
   '
  With ActiveDocument.Content.Find 
      .ClearFormatting 
      .Replacement.ClearFormatting 
      .Text = """" 
      .Replacement.Text = "^&" 
      .Forward = True 
      .Wrap = wdFindContinue 
      .Format = False 
      .MatchCase = False 
      .MatchWholeWord = False 
      .MatchWildcards = False 
      .MatchSoundsLike = False 
      .MatchAllWordForms = False 
      .Execute Replace:=wdReplaceAll 
      .Text = "'" 
      .Execute Replace:=wdReplaceAll 
  End With  
End Sub

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Research window that won't go away.	kaetsdz	Word	3	08-08-2012 07:24 PM
ensure I have an 8.5x11 sheet	Taylor	Word	3	10-09-2011 12:39 AM
Problem with window	Zakhary	Word	1	05-22-2011 01:24 PM
Date pop-up window	Roshan Hanief	Word	0	04-23-2011 04:16 AM
How to ensure that each line ends only at the margin	sparemejava	Word	9	02-06-2011 03:21 PM