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

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
ס

סוקולובר

@סוקולובר
אודות
פוסטים
36
נושאים
8
שיתופים
0
קבוצות
0
עוקבים
0
עוקב אחרי
0

פוסטים

פוסטים אחרונים הגבוה ביותר שנוי במחלוקת

  • בקשת מידע | מטען נייד למחשב נייד
    ס סוקולובר

    האם באמת אין חשש נזק למחשב בשימוש במתאם לטייפסי עם חתיכה המאימה ליצאה של המחשב (נראה לי ודאי שצריך PD אך השאלה אם זה מספיק)

    עזרה הדדית - מחשבים וטכנולוגיה

  • בעיה | מסך קופץ בהדלקה
    ס סוקולובר

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

    חומרה

  • שיתוף | ממיר קבצי וורד בסיומת DOC לסיומת DOCX עבור אוצריא
    ס סוקולובר

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

    עזרה הדדית - VBA word

  • שיתוף | ממיר קבצי וורד בסיומת DOC לסיומת DOCX עבור אוצריא
    ס סוקולובר

    הכנתי את זה עבור בקשה של מישהו משתף למי שיביא לו תועלת יש בקוד שגיאה בצורת הספירה של הקבצים(אם חשוב למישהו יכול לרשום ואערוך בעז"ה) להפעיל יש להכניס למודול מאקרו עיין במרחבי מתמחים הדרכות מפורטות

    Private Sub SearchReplaceAllDocuments()
        Dim FileDialog As FileDialog
        Dim FilePaths As Variant
        Dim fileName As Variant
        Dim doc As Document, counter As Long
        Dim FirstLoop As Boolean
        FirstLoop = True
        Application.ScreenUpdating = False
        ' Open the file picker dialog
        Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
        With FileDialog
            .Title = "בחר קבצים (חיפוש בקבצים מרובים לפי בחירת קבצים)"
            .AllowMultiSelect = True
            .Filters.Clear
            .Filters.Add "Word Documents", "*.doc"
            If .Show = -1 Then
    '            FilePaths = .SelectedItems
               
        ' Initialize counter
        counter = 0
        
        ' Loop through each selected file
        For Each fileName In .SelectedItems
            ' Open the document
            Set doc = Documents.Open(fileName:=fileName)
            
    Dim A, b As String
    A = ActiveDocument.Name
    b = ActiveDocument.Path & "\" & A
    If Not InStr(A, "docx") > 0 Then
    A = Replace(A, "doc", "docx")
        ActiveDocument.SaveAs2 fileName:=b & "x", FileFormat:= _
            wdFormatXMLDocument
           
            End If
    
            ' Save and close the document
            doc.Close SaveChanges:=True
             Kill (b)
            ' Increment counter
            counter = counter + 1
        Next fileName
        
        ' Enable screen updating
        Application.ScreenUpdating = True
        
        ' Display results
         
          MsgBox "פעולת ההחלפה הסתיימה." & vbCrLf & vbCrLf & _
            "מספר המסמכים שבוצעה בהם החלפה הם: " & counter, vbMsgBoxRight, "Operation Result"
            
            End If
        End With
        
    End Sub
    
    Private Sub SearchReplaceAllDocumentsInFolder()
        Dim folderPath, fileName, DocumentPath As String, _
        doc As Document, counter As Long, FirstLoop As Boolean, respnse As VbMsgBoxResult
        Application.ScreenUpdating = False
             On Error Resume Next
     
        ' Select the folder containing the documents
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Title = "בחר תיקייה (חיפוש בקבצים מרובים לפי תיקיות)"
            If .Show = -1 Then
                folderPath = .SelectedItems(1) & "\"
            Else
                Exit Sub
            End If
        End With
        
        respnse = MsgBox("האם ברצונך לחפש גם בתת תיקיות?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading)
    
    '     Initialize counters
        counter = 0
        
        ' Loop through each file in the folder
        fileName = Dir(folderPath & "*.doc")
        Do While fileName <> ""
            ' Construct the full path of the document
            DocumentPath = folderPath & fileName
            
            ' Open the document
         
            
     fileName = DocumentPath
                        If InStr(fileName, "doc") > 0 And Len(fileName) - InStrRev(fileName, ".doc") = 3 Then
                         Set doc = Documents.Open(fileName)
    
    A = ActiveDocument.Name
    b = ActiveDocument.Path & "\" & A
    
    
        ActiveDocument.SaveAs2 fileName:=b & "x", FileFormat:= _
            wdFormatXMLDocument
           
           
    
            ' Save and close the document
            doc.Close SaveChanges:=True
             Kill (b)
             If Err.Number = 70 Then
             FileErr = FileErr & Chr(13) & b
             Err.Number = 0
             End If
            counter = counter + 1
            End If
            ' Move to the next file
            fileName = Dir
        Loop
                
    nd:
    
    
    'subfolders
    If respnse = vbYes Then
    
        Dim FSO As Object, fld As Object, Fil As Object
        Dim fsoFile As Object
        Dim fsoFol As Object
        
    '    If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set fld = FSO.GetFolder(folderPath)
        If FSO.folderExists(fld) Then
        
        
            For Each fsoFol In FSO.GetFolder(folderPath).subfolders
                For Each fsoFile In fsoFol.Files
                        fileName = fsoFile.Path
                        If InStr(fileName, ".doc") > 0 And Len(fileName) - InStrRev(fileName, ".doc") = 3 Then
                         Set doc = Documents.Open(fileName)
    
    A = ActiveDocument.Name
    b = ActiveDocument.Path & "\" & A
    
    
        ActiveDocument.SaveAs2 fileName:=b & "x", FileFormat:= _
            wdFormatXMLDocument
           
           
    
            ' Save and close the document
            doc.Close SaveChanges:=True
             Kill (b)
             If Err.Number = 70 Then
             FileErr = FileErr & Chr(13) & b
             Err.Number = 0
             End If
            counter = counter + 1
                         End If
                Next
                   folderPathA = fsoFol & "\"
           Set fldA = FSO.GetFolder(folderPathA)
        If FSO.folderExists(fldA) Then
        
     
            For Each fsoFolA In FSO.GetFolder(folderPathA).subfolders
                For Each fsoFileA In fsoFolA.Files
                        fileName = fsoFileA.Path
                        If InStr(fileName, ".doc") > 0 And Len(fileName) - InStrRev(fileName, ".doc") = 3 Then
                         Set doc = Documents.Open(fileName)
    
    A = ActiveDocument.Name
    b = ActiveDocument.Path & "\" & A
    
    
        ActiveDocument.SaveAs2 fileName:=b & "x", FileFormat:= _
            wdFormatXMLDocument
           
           
    
            ' Save and close the document
            doc.Close SaveChanges:=True
             Kill (b)
             If Err.Number = 70 Then
             FileErr = FileErr & Chr(13) & b
             Err.Number = 0
             End If
            counter = counter + 1
                         End If
                Next
                folderPathB = fsoFolA & "\"
              Set fldB = FSO.GetFolder(folderPathB)
        If FSO.folderExists(fldB) Then
        
     
            For Each fsoFolB In FSO.GetFolder(folderPathB).subfolders
                For Each fsoFileB In fsoFolB.Files
                        fileName = fsoFileB.Path
                        If InStr(fileName, ".doc") > 0 And Len(fileName) - InStrRev(fileName, ".doc") = 3 Then
                         Set doc = Documents.Open(fileName)
    
    A = ActiveDocument.Name
    b = ActiveDocument.Path & "\" & A
    
    
        ActiveDocument.SaveAs2 fileName:=b & "x", FileFormat:= _
            wdFormatXMLDocument
           
           
    
            ' Save and close the document
            doc.Close SaveChanges:=True
             Kill (b)
             If Err.Number = 70 Then
             FileErr = FileErr & Chr(13) & b
             Err.Number = 0
             End If
            counter = counter + 1
                         End If
                Next
            Next
     End If
            Next
     End If
            Next
        End If
        End If
        
        ' Enable screen updating
        Application.ScreenUpdating = True
        
        ' Display results
        If Len(FileErr) > 2 Then FileErr = vbNewLine & "שגיאה במחיקת הקבצים" & FileErr
          MsgBox "פעולת ההחלפה הסתיימה." & vbCrLf & vbCrLf & _
            "מספר המסמכים שבוצעה בהם החלפה הם: " & counter & FileErr, vbMsgBoxRight + vbMsgBoxRtlReading, "Operation Result"
    
    End Sub
    
    
    עזרה הדדית - VBA word

  • להורדה | קבצי 'ZIM' ('אופליין'...) של אתרים פופולריים ושימושיים להורדה
    ס סוקולובר

    @דוד-יצחק תודה רבה על ההזמה החדשה שכל זכות באמת מכיל דברים נוספים אך עדיין חסרים חלקים הדבר תורם מאד

    עזרה הדדית - מחשבים וטכנולוגיה

  • עזרה | גלישה בחו"ל
    ס סוקולובר

    תעתיק את הכתובת לשורת הכתובת
    s.il1.nfaw.netfree.link

    רשתות

  • עזרה | גלישה בחו"ל
    ס סוקולובר

    למה לא תנסה דרך הVPN הישראלי שלהם

    רשתות

  • בעיה | התקנת Home Assistant באימולטור עם מחשב נטפרי
    ס סוקולובר

    @א.מ. האם יש בעל ניסיון בהתקנה במחשב נטפרי (התקנתי ע"פ ההדרכה במדריך הזה) שיוכל להדריך אותי בתעודות אבטחה וכמה זמן יש לחכות לאחר ההודעהa289425f-593b-4aa0-94c3-e06e9be002b8-image.png
    ובכל ענין או אולי בצורה אחרת להתמודד עם זה
    או סתם באופן עללי להגיד איך זה נטפרי עם Home Assistant אשמח שישתפני

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

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

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | האם ניתן/כדאי להתקין ווינדוס 11 כשהמעבד לא נתמך
    ס סוקולובר

    מעניין מאד אולי כדאי לשאול את הציבור בכללותו כי גם במחשבים של חברים זה עשה לי כזה רושם

    עזרה הדדית - ווינדוס 11

  • בקשת מידע | האם ניתן/כדאי להתקין ווינדוס 11 כשהמעבד לא נתמך
    ס סוקולובר

    ברור שבחשב חזק זה לא ישנה אבל מחשב דל ווסטרו I3 לוקח שתי דקות לעליית 11 ולעומתו אפילו אסוס N4020 מעלה את 10 יותר מהר מניסיוני

    עזרה הדדית - ווינדוס 11

  • בקשת מידע | האם ניתן/כדאי להתקין ווינדוס 11 כשהמעבד לא נתמך
    ס סוקולובר

    מה מדליק כל כך בווינדוס 11
    אני ראיתי שהעלייה של 11 לוקח יותר מכפול זמן מעשר צריך לשקול רוווח הפסד

    עזרה הדדית - ווינדוס 11

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    אל תעשה דרך הגדרה אוטומטית אלא שלב אחרי שלב בלי המסייע ולכן תעשה ביטול להגדרת גודל

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

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

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    תעשה ביטול ותמשיך הלאה

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    תעשה ביטול ותעשה לא דרך המגדיר האוטומטי אלא לפי באמצעות הוסף פרטים אחרי שהגדרת שזה תויות

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    אני אחרי זה כשעבדתי על תויות בדברי דואר זה נתן תויות בכל העמודות .
    חשבתי שבזה נתקעת אם לא תאר היכן

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    אולי תנסה להוסיף משמאל ואח"כ להתקדם

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    תכנס בתוך המסמך אחרי שהוא פתוח לעריכה
    e78716f6-305d-4494-80fb-c09aabf7015f-image.png
    הוסף עמודה מימין

    עזרה הדדית - מחשבים וטכנולוגיה

  • בקשת מידע | מה השיטה הכי טובה ליצירת מדבקות להזמנות וכדו'?
    ס סוקולובר

    תפתח את הקובץ לעריכה והגדר בצד שמאל למעלה עריכה
    ae9e409b-5cef-4fb7-b8c6-4b7802e0d174-image.png
    אח"כ תכנס לטבלה ותוסיף טור מימין

    עזרה הדדית - מחשבים וטכנולוגיה
  • התחברות

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

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