Word doc vanuit word doc openen, maar niet zichtbaar

[greatmaze]

Hallo allemaal,

Ik wil via een macro vanuit een geopend Word document (A) een bestaand Word document (Z) openen. Nu is dat geen probleem. Alleen wil ik dat het nieuw geopende bestand Z niet op de voorgrond komt, omdat je anders weer met je muis het andere originele bestand A moet aanklikken om actief te maken.

De regel om het document te openen werkt prima
Documents.Open FileName:=FolderPath & newFileName & SaveExt

Alvast bedankt.

 

[OctaFish]

Dan zul je denk ik toch een nieuwe applicatie moeten openen:

dim aDoc As Document
     Set wrd = GetObject(, "Word.Application")
     wrd.Visible = false
     Set aDoc=wrd.Documents.Open FileName:=FolderPath & newFileName & SaveExt
     With aDoc
          '.....
          'Hier de handelingen die je wilt doen
          '.....
          .Close SaveChanges:=wdDoNotSaveChanges
     End With
     wrd.Quit
     Set wrd = Nothing

 

[greatmaze]

Hi Michel,

Bedankt voor je antwoord, maar helaas het werkt niet, mijn bestaande rapport wordt afgesloten en de nieuwe wordt helemaal niet getoond.
Ik wil dus beide rapporten geopend hebben, alleen de nieuwe die ik open, mag niet op de voorgrond staan.
Sub SaveDocument()
Dim oTable As Table
Dim strString As String
Dim FolderPath As String
Dim myPath As String
Dim SaveExt As String
Dim myFileName As String
Dim NewName As String
Dim newFileName As String
Dim wrd As Object

Set oTable = ActiveDocument.Tables(15)
strString = oTable.Rows.Item(1).Cells(1).Range
myFileName = Left(strString, Len(strString) - 2)
myPath = ActiveDocument.FullName

FolderPath = Left(myPath, InStrRev(myPath, "\"))

SaveExt = "." & Right(myPath, Len(myPath) - InStrRev(myPath, "."))
NewName = FolderPath & myFileName & SaveExt
ActiveDocument.SaveAs2 NewName

newFileName = "Excel V10 - test1"
Set wrd = GetObject(, "Word.Application")
wrd.Visible = False
wrd.Documents.Open FileName:=FolderPath & newFileName & SaveExt
End Sub

 

[snb]

Dat kan simpel met

Getobject "G:\OF\voorbeeld.docx"