Re: Word file format problems

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Instead of saving the files to your USB storage device save them to the hard
drive and *copy* them using Windows Explorer after establishing that you can
open them again in Word at home. At school reverse the process. Do not open
them directly from the USB device.

If these files are genuinely in Word 97-2003 format, then Word 2007 should
open them.

How are you saving them to DOCX format at home? If you are using Word 2007
then you can convert all with a macro, but it should be unnecessary. The
following assumes that DOCX is the default save format for Word 2007. Run
the macro on files saved on the hard drive!

Sub SaveAllAsDOCX()
Dim strFileName As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document

With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
strPath = .Directory
Else
MsgBox "Cancelled by User"
Exit Sub
End If
End With

If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFileName = Dir$(strPath & "*.doc")

While Len(strFileName) <> 0
Set oDoc = Documents.Open(strPath & strFileName)

strDocName = ActiveDocument.FullName
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".docx"
oDoc.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDocumentDefault
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFileName = Dir$()
Wend
End Sub

http://www.gmayor.com/installing_macro.htm (dialog access is different from
the illustrations in 2007)


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

JP wrote:
I have been writing reports for my class using a report writing
programme which uses a word 97-2003 template format/file for my
report design. I have written over 100 reports using this format/file
and then taken them to work to put on the schools network with a usb
pen. When I try to open these files at work it prompts me to install
a converter for word-when prompted to do so the result is a load of
nonsense-there are various options to try on this converter such as
unicode. ms dos, default windows-turksih, european etc etc etc-none
make any sense of teh documents. However, when I save each report as
a word 2007 document-the school network computers do open and display
teh word files correctly. Therefore, I have two queries:

What's the qucikest way to convert over 100 word files (97-2003) to
Word 2007 without having to open each one individuallyand resave
each one?

Any ideas why our school network computers are recognising these
97-30 word files and needing a converter? And any solutions to this?

Cheers

JP


.

Relevant Pages

  • Re: Word file format problems
    ... How are you saving them to DOCX format at home? ... Dim strFileName As String ... What's the qucikest way to convert over 100 word files to ... Any ideas why our school network computers are recognising these ...
    (microsoft.public.word.docmanagement)
  • Re: Question/Problem creating a live USB
    ... that flash drives has cache on most systems - so it's a ... You have to wipe it the complete USB key again. ... The usb flash drive has partition 1 as a fat32 filesystem. ... able to format the drive. ...
    (Fedora)
  • Re: Setting field properties in code
    ... format that the user has defined in the Windows Control Panel, ... >> Sub StandardProperties(strTableName As String) ... >> Dim tdf As DAO.TableDef 'Table nominated in argument. ... >> Dim ind As DAO.Index ...
    (comp.databases.ms-access)
  • Re: Conditional format problem
    ... an Excel 5.0/95 format file, ... Anyone know how to save in a later Excel format from Access? ... Dim oXL As Object ... Dim strCondition1 As String ...
    (microsoft.public.excel.programming)
  • Re: Mail Merge HTML Format Word 2002 XP SP3
    ... HTML format as you have no control over how the recipient reads them. ... 'Creates a new e-mail item and modifies its properties. ... Dim olApp As Outlook.Application ...
    (microsoft.public.word.mailmerge.fields)