Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Programming / October 2005

Tip: Looking for answers? Try searching our database.

Problem with visibility on Documents.Add

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Aldo - 02 Oct 2005 18:59 GMT
Hi all

I'm working on a macro to create 10s of word documents and then pasting the
clipboard  into then and save them

I would like to avoid the created windows to appear on the screen.

Is there any possibility to paste the clipboard and save  on non visible and
non active documents ?

As i personally didn't find a solution, I tried to create the documents with
a reduced size with this code but when I create a non visible document I
cannot do anything on it, even make it visible as the .windows.count = 0 so
I cannot use the .windows(1).visible = true

Any idea ?

Documents.Add Template:="", NewTemplate:=False, DocumentType:=1,
Visible:=False

       For I = 1 To Documents.Count
          NN = Documents(I).Name
           With Documents(I).Windows(1)  ---> Error on non visible document
               .Height = 100
               .Width = 100
               .Visible = True
               .Activate
           End With
     Next

Thanks
Jezebel - 03 Oct 2005 09:34 GMT
Application.visible = false

> Hi all
>
[quoted text clipped - 28 lines]
>
> Thanks
Helmut Weber - 03 Oct 2005 10:02 GMT
Hi Aldo,

>Is there any possibility to paste the clipboard and save
>on non visible and non active documents ?

Doesn't seem a problem to me. Let's say there are two docs,
"Mydoc-01.doc" and "Mydoc-02.doc". And both have only 1 window.
Or am I missing something?

Sub test88888()
Dim oDoc1 As Document
Dim oDoc2 As Document

Set oDoc1 = Documents("Mydoc-01.doc")
Set oDoc2 = Documents("Mydoc-02.doc")

oDoc1.Windows(1).Visible = False
oDoc2.Windows(1).Visible = False

oDoc1.Range(0, 0).Paste
oDoc2.Range(10, 10).Paste

oDoc1.Windows(1).Visible = True
oDoc2.Windows(1).Visible = True
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"


Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.