??? ??? ????? Word 2003 ?? Word 2007 ????? ??????? ???????? ???? ???? ???? ????? ?? ????? ???? ?? Word 2003

?????? ????????? ?????? ?????????
???? ???????: 960557 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

???????

??? ??? ????? Microsoft Office Word 2003 ?? Microsoft Office Word 2007 ???? ???? ????? ??????? ???????? ???? ????? ?? ????? ???? ?? Word 2003.

?????

???? ??? ??????? ???? ????? ????? ????? ??????? ???????? ?? Word 2007 ?? ????? ???? ??????? ?? Word 2003.

????

??? ??? ???????? ?? ?????? ??????? ?????? 960556 ??? Word 2003.

????? ?? ?????????? ???? ??? ??? ??????? ?????? ?????? ?? "????? ??????? ?? Microsoft:
960556??? ???? ????????? ??????? Word 2003 (Winword.msp Wordom.msp): 16 ?????? ????
????? ??? ??????? ?????? ?? Winword.exe ? Msword.olb ?????? ????? Visual Basic for ??????? (VBA) ????????? ????????. ????? ??? ???????? ???????? ????? ??????? ???????? ??? ????? ?????. ??? ????? ??? ????????? ???????? ??? ??????? ?? Word 2003 ?? ?? ???? ????? ????? ??????? ?? ????? ??? ??? ????? Word 2003 ?? Word 2007:
Function ConvertDocument(strFile As String) As Boolean
   ConvertDocument = False
 
   Dim doc As Document
   Set doc = Documents.Open(strFile)
   If (Not doc Is Nothing) Then
      ' Force view to be PrintPreview.
      doc.PrintPreview
      ' Make sure the doc has been entirely paginated.
      doc.Repaginate
      ' Turn all automatic hyphens into manual hyphens.
      doc.ConvertAutoHyphens
      ' Disable future automatic hyphenation.
      doc.AutoHyphenation = False
      doc.Save
      doc.Close
      ' Success.
      ConvertDocument = True
   End If
End Function
 
Sub ConvertAllDocuments(strFolder As String)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set folder = fso.GetFolder(strFolder)
 
   ' Process .doc files immediately in the folder.
   For Each file In folder.Files
      If (StrComp(".doc", Right(file.Name, 4), vbTextCompare) = 0) Then
         If (Not ConvertDocument(file.Path)) Then
            MsgBox "Unable to process file " + file.Path
         End If
      End If
   Next
 
   ' Process files in sub-directories.
   For Each subfolder In folder.SubFolders
      ConvertAllDocuments (subfolder.Path)
   Next
End Sub
 
Sub BatchConversion()
   ' Add a ConvertAllDocuments call here for each folder you want to process.
   ' Example:
   ' ConvertAllDocuments ("C:\\My Files").
End Sub
 
 
Sub UIConversion()
   Dim dialog As FileDialog
   Set dialog = Application.FileDialog(msoFileDialogFolderPicker)
 
   With dialog
      .Title = "Select folder"
      .InitialView = msoFileDialogViewList
   End With
 
   If dialog.Show <> -1 Then
      ' User cancelled.
     Exit Sub
   End If
 
   For Each strFolder In dialog.SelectedItems
      ConvertAllDocuments (strFolder)
  Next
End Sub

???????

???? ???????: 960557 - ????? ??? ??????: 30/???/1430 - ??????: 1.1
????? ???
  • Microsoft Office Word 2003
????? ??????: 
kbmt kbqfe kbexpertisebeginner kbsurveynew kbprb KB960557 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????960557

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com