Re: Help! A word feature is trying to drive me insane!

Hey Greg, thanks a lot for the help, I'll check it out. Rianna

"Greg Maxey" wrote:

Rianna,

Well first confirm that this is the cause. Take any file that is showing
you this behaviour and turn that feature off. Press Tools>Options>Save and
uncheck "Embed smart tags." Save the file, close it, reopen it, and close
again. If the prompt is absent, then I was on to something.

This problem didn't occur with new files created, only previous files. You
can manually repeat the process above on each file as you are using them, or
you can run that macro on a batch of files. See:
http://www.gmayor.com/installing_macro.htm for instructions for installing a
macro.


--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Rianna wrote:
Gosh Greg it looks like you might be onto something here but "You can
set that option to off in a batch of files by running this macro:" I
have no idea what all this is. How do I run a macro? Figures they
have to make turning it off hard. Thanks for your help. Rianna



"Greg Maxey" wrote:

Rianna,

I had a similiar problem a few years back when I upgraged to
Word2002. It would happend when I opened documents created in an
earlier version. The culprit was Tools>Options>Save>Embed Smart
tags.

If that option was checked, I would get the promt everytime.

You can set that option to off in a batch of files by running this
macro:

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/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Rianna wrote:
Hello, one of words features it trying to send me to the nut house
so I better try to do something about it. I use my word 2003 a lot.
Every single dratful time I open one of my word documents and try to
close it again it asks me if I want to save my changes. Even when I
have made NONE! It asks me every time! What good is it having the
save feature if it insists on asking you? Is there a way I can turn
this annoying feature off? Let me know please, I hope you know the
answer you will save me from this neverending torture. Rianna at
riannamay@xxxxxxx



.

Relevant Pages

  • Re: How do I delete all words that are mispelled in a document?
    ... Thanks Greg for the rapid response. ... I open a target file manually in Word 2007 and launch the macro. ... Dim myErrors As ProofreadingErrors ...
    (microsoft.public.word.docmanagement)
  • Re: How do I delete all words that are mispelled in a document?
    ... Hi Greg - Oops, forget my last post. ... Your macro is into its 15th ... Dim myErrors As ProofreadingErrors ...
    (microsoft.public.word.docmanagement)
  • Re: Highlighting specific words
    ... As a matter of fact, I didn't ignore your suggestion, Greg. ... AutoCorrect without needing to enter each one individually? ... programmer to make a macro to do this. ... automatically highlight them as they're typed or they already ...
    (microsoft.public.word.docmanagement)
  • Re: Macro to replace text that includes field codes
    ... Thanks, Greg, for this very educational exchange. ... Dim oRng As Range ... I had success with your macro, ... When field code is diplayed, ...
    (microsoft.public.word.vba.beginners)
  • Re: Missing bookmarks
    ... documents and step through the macro one line at a time using the F8 key. ... Greg Maxey/Word MVP ... Dim oFrmFlds As FormFields ... Dim oStr As String ...
    (microsoft.public.word.vba.general)