וורד באוצריא

[חנניה]

1. לא נפתח לי ספרים (נוספים) בוורד באוצרא,
   מה יכולה להיות הסיבה?
2. איך מוצגים הערות שוליים של וורד באוצריא?

[מענין לשמוע]

@חנניה
מדובר על קבצים ישנים ככל הנראה.
צריך לחפש במתמחים, שם העלו קוד VBA להמיר את זה למהדורה חדשה.
הערות שולים מוצגות שורה אחרי טקסט המקור.

[דאנציג]

@חנניה
תמיר אותם מDOC לDOCX.

[מענין לשמוע]

@חנניה
מצאתי!
צריך להכניס את זה לוורד לVBA, איך לי כח להסביר בדיוק איך... זה עובד נפלא!

Sub ConvertDocToDocx()
Dim oDlg As FileDialog
Dim sFolder As String
Dim sName As String, sFullName As String
Dim oDoc As Document
Dim i As Integer: i = 0
    Application.ScreenUpdating = False
    Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If oDlg.Show <> -1 Then Exit Sub
    sFolder = oDlg.SelectedItems(1) + "\"
    sName = Dir(sFolder & "*.doc", vbNormal)
    While sName <> ""
        If Right(LCase(sName), 3) = "doc" Then
            i = i + 1
            Set oDoc = Documents.Open(FileName:=sFolder & sName, _
                                      ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                                      PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                                      WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                                      wdOpenFormatAuto, XMLTransform:="")
            sFullName = Left(oDoc.FullName, InStrRev(oDoc.FullName, Chr(46)))
            If ActiveDocument.HasVBProject = True Then
                ActiveDocument.SaveAs sFullName & "docm", wdFormatXMLDocumentMacroEnabled
            Else
                ActiveDocument.SaveAs sFullName & "docx", wdFormatXMLDocument
            End If
            ActiveDocument.Close
        End If
        sName = Dir()
    Wend
    Application.ScreenUpdating = True
    If i = 1 Then
        MsgBox i & " document converted"
    Else
        MsgBox i & " documents converted"
    End If
    Set oDoc = Nothing
    Set oDlg = Nothing
End Sub

[דאנציג]

@מענין-לשמוע כתב בוורד באוצריא:

איך לי כח להסביר בדיוק איך...

כתבתי פעם מדריך על זה.
https://mitmachim.top/post/777737

העתקתי עכשיו לכאן

[חנניה]

מה אני אמור לעשות עם זה?
לא הבנתי.

[מענין לשמוע]

@חנניה
בשורה העליונה אתה צריך ללחוץ על insert, ואז על mudole (מקוה שאני מאיית נכון).
יפתח לך דף לבן ריק, תדביק את הקוד ותסגור את החלון.
בוורד בלשונית תצוגה תלחץ על פקודות מאקרו ותראה שורה שרשום בה באנגלית 'ConvertDocToDocx', תלחץ עליה, יפתח לך חלון בחירת תיקיה, תבחר תיקיה וכל קבצי הdoc בה יתעדכנו לdocs.
אני רק יציין שזה לא משנה את הקובץ אלא יוצר קובץ חדש בתבנית הנכונה, ונשאר גם הקובץ הקודם.

[מיתר 33]

יש לי תוכנה מהירה שעושה את כל ההמרה כולל תתי תיקיות

ממיר מצויין ומהיר.exe