Switch Documents - to Make ActiveDocument For Macro

[dj44]

Hi folks,

How is everyone doing,

Now I thought this was a easy thing to do as it worked in one macro but then it stopped and ive been in a conundrum.

Lets say im in Doc1 - and my macro is in Doc1,
I simply want to make Doc2 my active document

Sub SwitchWindowsMacro()
 
   'Documents("Doc2.docx").Activate
   'Document("Doc2.docx").Activate
    'Dim oDoc  = ActiveDocument
 
    Windows("Doc2").Activate
    Selection.Font.Color = 7662449
    Selection.Font.Size = 22
End Sub

thats a simpke example

How can i activate and make the Doc2 my active document so the macro can continue to do it's said proposed job?

thank you for your coding expertise on this matter

[gmaxey]

Sub SwitchWindowsMacro()
Dim oDoc As Document, oDoc1 As Document, oDoc2 As Document
  Set oDoc1 = ThisDocument 'The document containing the code.
  If Documents.Count > 1 Then
    If oDoc1 = Documents(1) Then
      Set oDoc2 = Documents(2)
    Else
      Set oDoc2 = Documents(1)
    End If
    oDoc2.Activate
    Selection.Font.Color = 7662449
    Selection.Font.Size = 22
  End If
End Sub

[dj44]

Hello Greg,


Nice to see you , hope you are doing great!

I havent had time to come on forum as my macros have been keeping me busy

Well who knew - the vba documentations showed it all together wrong

This is my first foray into swithcing documents and - it took me hours of trying and no document swithced in the end

Oh well thanks for the rescue - as always

thanks for always helping us newbs, Have a great weekend now Greg -


And folks too