Re: Prompt to Save When Closing

anonymous_at_discussions.microsoft.com
Date: 08/01/04 

Date: Sat, 31 Jul 2004 21:40:53 -0700

This is entirely possible as I *have* used different
computers and older versions of Word in the past.

I'll give your suggestions a shot. Thanks, Greg.
Roxie

>-----Original Message-----
>Roxie,
>
>My experience is this is caused if you open a document
that was created with
>another computer using an earlier Word versions (say
your lap top or work
>computer) and then opened in in Word2002.
>
>The cause was Tools>Options>Save>Embed Smart Tags.
Uncheck this, save the
>document, open again and see if resolved.
>
>You can run this macro to turn it off on all files in a
directory:
>
> Public Sub BatchToggleEmbedSmartTabs()
>
>'Sets embeded SmartTag off in all files in a directory
>Dim myFile As String
>Dim PathToUse As String
>Dim myDoc As Document
>'Close any documents that may be open
>If Documents.Count > 0 Then
>Documents.Close SaveChanges:=wdPromptToSaveChanges
>End If
>'Get the folder containing the files
>With Dialogs(wdDialogCopyFile)
>If .Display <> 0 Then
>PathToUse = .Directory
>Else
>MsgBox "Cancelled by User"
>Exit Sub
>End If
>End With
>
>If Left(PathToUse, 1) = Chr(34) Then
>PathToUse = Mid(PathToUse, 2, Len(PathToUse) - 2)
>End If
>
>myFile = Dir$(PathToUse & "*.*")
>
>While myFile <> ""
>'Open each file and toggle SmartTags
>Set myDoc = Documents.Open(PathToUse & myFile)
> With ActiveDocument
> .EmbedSmartTags = False
> End With
>'Close the file, saving the changes.
>myDoc.Close SaveChanges:=wdSaveChanges
>myFile = Dir$()
>Wend
>
>End Sub
>
>
>--
>Greg Maxey
>A peer in "peer to peer" support
>Rockledge, FL
>To e-mail, edit out the "w...spam" in
gmaxey@whamspammvps.org
>
>Roxie wrote:
>> I'm using Word 2002. Usually, when closing a document
I
>> get prompted to save a document if I have made
>> keystrokes, that is, if I have only opened a document,
>> realized it wasn't the one I was looking for and close
>> it, it closes without a 'save' message.
>>
>> Sometimes, I get asked if I want to save changes to a
>> document even if no changes have been made. Is there a
>> way to turn this off? Thanks.
>
>
>.
>

Relevant Pages

  • Project Error
    ... Private Declare Sub Sleep Lib "Kernel32" ... Dim strDataSrc As String ...
    (microsoft.public.vb.bugs)
  • Re: Is there a way to prevent a RichTextBox from scrolling?
    ... Private _isRegex As Boolean ... Public Sub New(ByVal thispattern As String, ... Dim entry As tDict ...
    (microsoft.public.dotnet.framework.windowsforms.controls)
  • Excel Listing tool using VB
    ... Sub ListFiles2() ... Dim directories() As String, CurrentDirectory As String ... Dim dirtopaste, dirok ...
    (microsoft.public.vb.general.discussion)
  • Form Error
    ... SMSDS_CallerID As String ... Private Declare Sub Sleep Lib "kernel32" ... Dim ComString As String ... Dim AppPath As String, FreeFileNo% ...
    (microsoft.public.vb.bugs)
  • Re: Encrypt/hide Password
    ... Public Sub New(ByVal strCryptoName As String) ... ' instantiated crypto class. ... Dim fsKey As New FileStream(strSaveToPath, FileMode.OpenOrCreate, _ ...
    (microsoft.public.scripting.wsh)