Wenn Sie ein Word 2003-Dokument in Word 2007 öffnen, wird automatisch getrennt Text anders wie in Word 2003 angezeigt

Problembeschreibung

Wenn Sie ein Microsoft Office Word 2003-Dokument in Microsoft Office Word 2007 öffnen, wird automatisch getrennt Text anders wie in Word 2003 angezeigt.

Ursache

Dieses Problem tritt auf, weil Modul automatische Silbentrennung in Word 2007 die Version des Moduls geändert hat, die in Word 2003 enthalten ist.

Problemlösung

Um dieses Problem zu beheben, installieren Sie Hotfix 960556 auf Word 2003.


Klicken Sie für weitere Informationen auf die folgende Artikelnummer, um den Artikel in der Microsoft Knowledge Base anzuzeigen:
960556 Beschreibung des Word 2003-Hotfix-Pakets (Winword.msp, Wordom.msp): 16. Dezember 2008

Dieser Hotfix aktualisiert sowohl Winword.exe und Msword.olb im folgenden Visual Basic für die Anwendung (VBA)-Code Funktionalität. Dieser Code konvertiert automatische Silbentrennung in manuelle Silbentrennung. Nach dem Ausführen dieses Codes im Dokument in Word 2003 und speichern Sie die Datei die Silbentrennung nicht geändert, wenn Sie Word 2003-Dokument in Word 2007 öffnen:
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

Eigenschaften

Artikelnummer: 960557 – Letzte Überarbeitung: 13.01.2017 – Revision: 1

Feedback