Microsoft Office Forums - View Single Post

driessenm · 02-03-2015, 02:51 AM

Hello,

I have made this macro :

Code:

Sub JUD_OMZET_DOC2()
 
Dim strDocName As String
Dim strDocPath As String
On Error Resume Next
strDocPath = ActiveDocument.Path & Application.PathSeparator
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")
If intPos <> 0 Then
  strDocName = Left(strDocName, intPos - 1)
End If
strDocName = strDocName & ".DOC"
ActiveDocument.Saved = False
ActiveDocument.SaveAs2 FileName:=strDocPath & strDocName, FileFormat:=wdFormatDocument97, _
  LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
  :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
  False
 
End Sub

I want a document in RTF-format to be saved as a Word 1997-2003 document.

On my PC with Office 2013, it's working very well. But on another PC (Windows 8) on which Office 2013 is recently installed (downloaded version), a dialog box is always shown on which I have to confirm the save.

Why is it working fine on my PC (no dialog box to confirm), and why does the dialog box appear on the other PC?

Thanks.