אופיס 365 העתקת סגנונות למסמכים רבים כאחד.

[אלחנן אריאל]

השלום והברכה!

ברצוני להעתיק כמה סגנונות, למסמכים רבים בפעולה אחת.

האם ישנה דרך לזה?


תודה רבה!

 

[moishy]

קוד לא בדוק!

Sub ImportStyles()

    Dim strSourcePath As String
    Dim strDestinationPath As String
    Dim strFileName As String
    Dim strStyleName() As String
    Dim i As Integer

    ' בחירת קובץ המכיל את הסגנונות
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show <> 0 Then
            strSourcePath = .SelectedItems(1)
        End If
    End With

    ' קביעת הסגנונות לייצא
    strStyleName = Split(InputBox("יש לכתוב כאן את שמות הסגנונות לייצא" & vbCrLf & "יש להפריד את הסגנונות בפסיק (ללא רווח לאחריו."), ",")

    ' בחירת תיקיה המכילה את הקבצים לייצא אליהם את הסגנונות
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show <> 0 Then
            strDestinationPath = .SelectedItems(1)
        End If
    End With

    strFileName = Dir(strDestinationPath & "\*.do*", vbNormal)

    Do Until strFileName = ""
        With Documents.Open(FileName:=strDestinationPath & "\" & strFileName, Visible:=False)
            .UpdateStylesOnOpen = False
            
            For i = LBound(strStyleName) To UBound(strStyleName)
                Application.OrganizerCopy Source:= _
                                          strSourcePath, _
                                          Destination:=strFileName, Name:=strStyleName(i), _
                                          Object:=wdOrganizerObjectStyles

                Selection.Style = ActiveDocument.Styles(strStyleName(i))
            Next i

            .Close SaveChanges:=wdSaveChanges

            strFileName = Dir()
        End With
    Loop

End Sub

 

[אלחנן אריאל]

יישר כחך ויגדל עד מאוד!

לי זה עבד מצויין!

נ. ב. יש לעבוד עם מסמך פתוח, (לא משנה איזה מסמך).

 

[moishy]

נ. ב. יש לעבוד עם מסמך פתוח, (לא משנה איזה מסמך).

אחרת איך תפעיל את המאקרו.

 

[אלחנן אריאל]

אחרת איך תפעיל את המאקרו.

בוורד פתוח, ללא מסמך פתוח.

 

[moishy]

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

Selection.Style = ActiveDocument.Styles(strStyleName(i))

 

[אלחנן אריאל]

שלום רב!

נזקקתי שוב למאקרו זה, וכעת אינו פועל לי.
אני מצרף צילו"מ של מקום השגיאה.

תודה רבה מאוד למסייעים!

 

[שג]

השלום והברכה!

ברצוני להעתיק כמה סגנונות, למסמכים רבים בפעולה אחת.

האם ישנה דרך לזה?


תודה רבה!

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

 

[אלחנן אריאל]

ע"י ייצוא הסגנונות ל"Normal", גם אמור להופיע אח"כ בכל המסמכים.

זה טוב למסמכים חדשים, לא למסמכים קיימים.

 

[שג]

זה טוב למסמכים חדשים, לא למסמכים קיימים.

אז אפשר לשנות את הסגנונות הקיימים, לעיצוב הרצוי.

 

[שמח לעזור]

שלום רב!

נזקקתי שוב למאקרו זה, וכעת אינו פועל לי.
אני מצרף צילו"מ של מקום השגיאה.

תודה רבה מאוד למסייעים!

תוכל לציין גם מה השגיאה?

 

[אלחנן אריאל]

איני יודע, המאקרו לא רץ, ובחלון של הויזואל בייסיק, מדגיש את מה שצרפתי בתמונה, שזה אומר ששורות אלו אינו מצליח להריץ.

 

[moishy]

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

לראות אם יש שגיאה ומהי במידה וישנה, כתוב בחלון המיידי ?err.number ותלחץ אנטר.

 

[אלחנן אריאל]

שלום רב!

שוב נזקקתי למאקרו. ושוב אינו עובד.
הוא נתקע כנ"ל. וכותב "שגיאה 4149, הקובץ לא נמצא".

גם בחלון המיידי מודיע על השגיאה הנ"ל.


תודה רבה למוישי ולמסייעים.

 

[Rרחמים]

השלום והברכה!

ברצוני להעתיק כמה סגנונות, למסמכים רבים בפעולה אחת.

האם ישנה דרך לזה?


תודה רבה!

יש לי תוסף כזה ראה בקטלוג שבאתר שלי

 

[שלום053]

יש לי תוסף כזה ראה בקטלוג שבאתר שלי

יש קישור לאתר?

 

[Rרחמים]

יש קישור לאתר?

בבקשה כאן