Peter
Tue Jan 27 19:13:57 CST 2004
Hi Lee
That'll teach me to try out the code before posting try this:
Public Sub SaveToIntranet(ByVal docToSave As Word.Document)
Dim Save2Intranet As Boolean
Save2Intranet = MsgBox("You are about to close. " & _
"Do you wish to save a copy to the intranet?", vbYesNo) = vbYes
If Save2Intranet Then
docToSave.SaveAs ""\\ruth\inetpub\wwwroot\apps\news\newsreleases\" & _
docToSave.Name, wdFormatHTML
End If
End Sub
Sorry about all this - It REALLY is bad-brain day!
Peter Hewett <Nospam@xtra.co.nz> wrote in news:Xns947E8E37B12DAIwlpth@
207.46.248.16:
> Peter Hewett <Nospam@xtra.co.nz> wrote in
> news:Xns947E8CD394E34Iwlpth@207.46.248.16:
> Hi Lee
>
> Please ignore that last post I'm having a bad-brain day! Here's what you
> need to do:
>
> Public Sub SaveToIntranet(ByVal docToSave As Word.Document)
> Dim Save2Intranet As Boolean
>
> Save2Intranet = MsgBox("You are about to close. " & _
> "Do you wish to save a copy to the intranet?", vbYesNo) = vbYes
> If Save2Intranet Then
> docToSave.SaveAs "\\ruth\inetpub\wwwroot\apps\news\newsreleases\" & _
> strFilename, wdFormatFilteredHTML
> End If
> End Sub
>
> Always call the above procedure using either:
>
> SavetoIntranet ActiveDocument
>
> or if it's another document you want to save, that you've already got a
> document object reference for, use something like:
>
> Dim docImUsing As Word.Document
>
> SaveToIntranet docImUsing.Name
>
> Sorry about that + Cheers - Peter
>
>
>> Hi Lee
>>
>> As long as it's always the ActiveDcoument you're saving you could
>> replace ???? with "ActiveDocument.Name". If it's not always the
>> ActiveDcoument you're saving you should pass the name of the file to the
>> procedure, something like:
>>
>> Public Sub SaveToIntranet(ByVal strFilename As String)
>> Dim Save2Intranet As Boolean
>>
>> Save2Intranet = MsgBox("You are about to close. " & _
>> "Do you wish to save a copy to the intranet?", vbYesNo) =
>> vbYes
>> If Save2Intranet Then
>> Me.SaveAs "\\ruth\inetpub\wwwroot\apps\news\newsreleases\" & _
>> strFilename, wdFormatFilteredHTML
>> End If
>> End Sub
>>
>> You'd call the procedure using something like:
>>
>> Dim docImUsing As Word.Document
>>
>> SaveToIntranet docImUsing.Name
>>
>> HTH + Cheers - Peter
>>
>> "Lee" <anonymous@discussions.microsoft.com> wrote in news:4fda01c3e533
>> $e12e0c10$a301280a@phx.gbl:
>>
>>> I am wanting to find out the code for file name. I have
>>> documents that need a copy automatically saved to a
>>> different location on close (for intranet purposes) but am
>>> unsure how to save the doc as it's original name (where
>>> the ???? are below). The coding I have so far is:
>>>
>>> Private Sub Document_Close()
>>>
>>> Dim Save2Intranet As Boolean
>>> Save2Intranet = MsgBox("You are about to close. Do you
>>> wish to save a copy to the intranet?", vbYesNo) = vbYes
>>> If Save2Intranet Then
>>> Me.SaveAs "\\ruth\inetpub\wwwroot\apps\news\newsreleases\"
>>> & ????, wdFormatFilteredHTML
>>> End If
>>> End Sub
>>>
>>> Thanks
>>>
>>
>>
>
>