דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. וורד
  5. עזרה הדדית - וורד
  6. בקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX

בקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
13 פוסטים 4 כותבים 302 צפיות 4 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ש מנותק
    ש מנותק
    שליו
    כתב ב נערך לאחרונה על ידי
    #1

    בלי שיצטרכו לפתוח אחד אחד
    תודה רבה

    ד sivan22S 2 תגובות תגובה אחרונה
    0
    • ש שליו

      בלי שיצטרכו לפתוח אחד אחד
      תודה רבה

      ד מנותק
      ד מנותק
      דאנציג
      כתב ב נערך לאחרונה על ידי
      #2

      @שליו אולי @pcinfogmach ידע.

      תגובה 1 תגובה אחרונה
      0
      • ש שליו

        בלי שיצטרכו לפתוח אחד אחד
        תודה רבה

        sivan22S מנותק
        sivan22S מנותק
        sivan22
        כתב ב נערך לאחרונה על ידי sivan22
        #3

        @שליו כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

        בלי שיצטרכו לפתוח אחד אחד
        תודה רבה

        להתקין פייתון.

        להתקין את החבילה הבאה:

        pip install doc2docx
        

        ליצור קובץ בסיומת py עם התוכן הבא:

        import doc2docx
        doc2docx.convert('./')
        

        להריץ אותו בתיקייה שבה נמצאים כל הקבצים

        או לחילופין פשוט להוריד מכאן ולהריץ: doc2docx.exe

        עריכה: אחר כך ראיתי שהסקריפט שלי קצת מיותר, כי אחרי שמתקינים את החבילה אפשר מיד להריץ משורת הפקודה doc2docx עם הרבה אפשרויות מובנות.

        menajemmendelM ד 2 תגובות תגובה אחרונה
        4
        • sivan22S sivan22

          @שליו כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

          בלי שיצטרכו לפתוח אחד אחד
          תודה רבה

          להתקין פייתון.

          להתקין את החבילה הבאה:

          pip install doc2docx
          

          ליצור קובץ בסיומת py עם התוכן הבא:

          import doc2docx
          doc2docx.convert('./')
          

          להריץ אותו בתיקייה שבה נמצאים כל הקבצים

          או לחילופין פשוט להוריד מכאן ולהריץ: doc2docx.exe

          עריכה: אחר כך ראיתי שהסקריפט שלי קצת מיותר, כי אחרי שמתקינים את החבילה אפשר מיד להריץ משורת הפקודה doc2docx עם הרבה אפשרויות מובנות.

          menajemmendelM מנותק
          menajemmendelM מנותק
          menajemmendel
          כתב ב נערך לאחרונה על ידי menajemmendel
          #4

          @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של 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
          
          sivan22S תגובה 1 תגובה אחרונה
          4
          • sivan22S sivan22

            @שליו כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

            בלי שיצטרכו לפתוח אחד אחד
            תודה רבה

            להתקין פייתון.

            להתקין את החבילה הבאה:

            pip install doc2docx
            

            ליצור קובץ בסיומת py עם התוכן הבא:

            import doc2docx
            doc2docx.convert('./')
            

            להריץ אותו בתיקייה שבה נמצאים כל הקבצים

            או לחילופין פשוט להוריד מכאן ולהריץ: doc2docx.exe

            עריכה: אחר כך ראיתי שהסקריפט שלי קצת מיותר, כי אחרי שמתקינים את החבילה אפשר מיד להריץ משורת הפקודה doc2docx עם הרבה אפשרויות מובנות.

            ד מנותק
            ד מנותק
            דאנציג
            כתב ב נערך לאחרונה על ידי דאנציג
            #5

            @sivan22
            השאלה היא האם זה משנה רק את הסיומת, או שזה ממיר את המסמך.
            אם זה משנה רק את הסיומת (ולא ממיר דרך וורד), זה לא יעזור.
            היה פה פעם גם קובץ BAT שעושה את אותה עבודה:

            rename *.DOC *.DOCX
            

            כשהוא בתיקייה שהקבצים נמצאים.

            sivan22S תגובה 1 תגובה אחרונה
            1
            • ד דאנציג

              @sivan22
              השאלה היא האם זה משנה רק את הסיומת, או שזה ממיר את המסמך.
              אם זה משנה רק את הסיומת (ולא ממיר דרך וורד), זה לא יעזור.
              היה פה פעם גם קובץ BAT שעושה את אותה עבודה:

              rename *.DOC *.DOCX
              

              כשהוא בתיקייה שהקבצים נמצאים.

              sivan22S מנותק
              sivan22S מנותק
              sivan22
              כתב ב נערך לאחרונה על ידי
              #6

              @דאנציג כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

              @sivan22
              השאלה היא האם זה משנה רק את הסיומת, או שזה ממיר את המסמך.
              אם זה משנה רק את הסיומת (ולא ממיר דרך וורד), זה לא יעזור.
              היה פה פעם גם קובץ BAT שעושה את אותה עבודה:

              rename *.DOC *.DOCX
              

              כשהוא בתיקייה שהקבצים נמצאים.

              ברור שזה משנה את התוכן.

              תגובה 1 תגובה אחרונה
              2
              • menajemmendelM menajemmendel

                @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של 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
                
                sivan22S מנותק
                sivan22S מנותק
                sivan22
                כתב ב נערך לאחרונה על ידי
                #7

                @menajemmendel כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של 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
                

                38 שורות קוד לעומת 2

                menajemmendelM תגובה 1 תגובה אחרונה
                0
                • sivan22S sivan22

                  @menajemmendel כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                  @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של 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
                  

                  38 שורות קוד לעומת 2

                  menajemmendelM מנותק
                  menajemmendelM מנותק
                  menajemmendel
                  כתב ב נערך לאחרונה על ידי menajemmendel
                  #8

                  @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                  38 שורות קוד לעומת 2

                  שכחת שאתה צריך להתקין תוכנה במיוחד, 😄
                  נראה לי שאנשים מעדיפים לעשות העתק הדבק של 38 שורות מלהתקין תוכנה

                  ועוד כאן עובד אופליין

                  חוץ מזה לא הבנתי איפה כותבים את התיקיה שרוצים להמיר

                  sivan22S תגובה 1 תגובה אחרונה
                  1
                  • menajemmendelM menajemmendel

                    @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                    38 שורות קוד לעומת 2

                    שכחת שאתה צריך להתקין תוכנה במיוחד, 😄
                    נראה לי שאנשים מעדיפים לעשות העתק הדבק של 38 שורות מלהתקין תוכנה

                    ועוד כאן עובד אופליין

                    חוץ מזה לא הבנתי איפה כותבים את התיקיה שרוצים להמיר

                    sivan22S מנותק
                    sivan22S מנותק
                    sivan22
                    כתב ב נערך לאחרונה על ידי
                    #9

                    @menajemmendel פייתון זה האולר שווייצרי שלי, אפילו לא חיפשתי משהו אחר.

                    menajemmendelM תגובה 1 תגובה אחרונה
                    0
                    • sivan22S sivan22

                      @menajemmendel פייתון זה האולר שווייצרי שלי, אפילו לא חיפשתי משהו אחר.

                      menajemmendelM מנותק
                      menajemmendelM מנותק
                      menajemmendel
                      כתב ב נערך לאחרונה על ידי menajemmendel
                      #10

                      @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                      @menajemmendel פייתון זה האולר שווייצרי שלי, אפילו לא חיפשתי משהו אחר.

                      ברור שאם אני הייתי יודע פייתון כמו שאני יודע VBA הייתי עושה בפייתון לעצמי, אבל לאחרים [שלא מכירים שום דבר] עדיף VBA, אתה יכול לשלוח להם אפ' קובץ וורד מוכן שיעשה את זה

                      ש תגובה 1 תגובה אחרונה
                      2
                      • menajemmendelM menajemmendel

                        @sivan22 כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                        @menajemmendel פייתון זה האולר שווייצרי שלי, אפילו לא חיפשתי משהו אחר.

                        ברור שאם אני הייתי יודע פייתון כמו שאני יודע VBA הייתי עושה בפייתון לעצמי, אבל לאחרים [שלא מכירים שום דבר] עדיף VBA, אתה יכול לשלוח להם אפ' קובץ וורד מוכן שיעשה את זה

                        ש מנותק
                        ש מנותק
                        שליו
                        כתב ב נערך לאחרונה על ידי
                        #11

                        @menajemmendel כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                        אבל לאחרים [שלא מכירים שום דבר] עדיף VBA,

                        ממש כך, ניסיתי גם עם הפייתון וממש לא הסתדרתי
                        אבל עם הקוד שלך הסתדרתי מצויין

                        אולי כדאי להוסיף שורה שתמחק את הקבצים בסיומת DOC לאחר ההמרה
                        תודה רבה

                        menajemmendelM תגובה 1 תגובה אחרונה
                        0
                        • ש שליו

                          @menajemmendel כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                          אבל לאחרים [שלא מכירים שום דבר] עדיף VBA,

                          ממש כך, ניסיתי גם עם הפייתון וממש לא הסתדרתי
                          אבל עם הקוד שלך הסתדרתי מצויין

                          אולי כדאי להוסיף שורה שתמחק את הקבצים בסיומת DOC לאחר ההמרה
                          תודה רבה

                          menajemmendelM מנותק
                          menajemmendelM מנותק
                          menajemmendel
                          כתב ב נערך לאחרונה על ידי menajemmendel
                          #12

                          @שליו כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                          אולי כדאי להוסיף שורה שתמחק את הקבצים בסיומת DOC לאחר ההמרה

                          לי נראה שלא כדאי, עדיף למחוק אותם רק אחרי שבדקת שאכן התוצאה היא הרצויה, והDOCX יצאו כמו שצריך, ובכל אופן אתה יכול למחוק אותם מאד בקלות, בסייר קבצים תעשה שיסדר לפי סוג קובץ, ואז יסדר בנפרד הDOC מהDOCX

                          ש תגובה 1 תגובה אחרונה
                          2
                          • menajemmendelM menajemmendel

                            @שליו כתב בבקשת מידע | האם יש אפשרות להפוך קבצים מרובים של DOC לקבצי DOCX:

                            אולי כדאי להוסיף שורה שתמחק את הקבצים בסיומת DOC לאחר ההמרה

                            לי נראה שלא כדאי, עדיף למחוק אותם רק אחרי שבדקת שאכן התוצאה היא הרצויה, והDOCX יצאו כמו שצריך, ובכל אופן אתה יכול למחוק אותם מאד בקלות, בסייר קבצים תעשה שיסדר לפי סוג קובץ, ואז יסדר בנפרד הDOC מהDOCX

                            ש מנותק
                            ש מנותק
                            שליו
                            כתב ב נערך לאחרונה על ידי
                            #13

                            @menajemmendel
                            אתה צודק
                            אבל ממילא אין לי כוח לבדוק אחד אחד

                            אני בקשתי את זה בשביל הספרייה התורנית שרבים מקבצי הוורד שם עם סיומת docx

                            ראיתי שכתבת שאתה נציג, לכן אני מיידע אותך

                            תגובה 1 תגובה אחרונה
                            0
                            • menajemmendelM menajemmendel התייחס לנושא זה ב

                            • התחברות

                            • אין לך חשבון עדיין? הרשמה

                            • התחברו או הירשמו כדי לחפש.
                            • פוסט ראשון
                              פוסט אחרון
                            0
                            • חוקי הפורום
                            • פופולרי
                            • לא נפתר
                            • משתמשים
                            • חיפוש גוגל בפורום
                            • צור קשר