ביצוע אוטומטי של מאקרו בעת פתיחת המסמך

[Ncoder]

ביצוע אוטומטי של מאקרו בעת פתיחת המסמך

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

המאקרו עובד נהדר והנה הקוד:
Sub FixTOC()
'
'
'
With ActiveDocument.TablesOfContents(1)
.Update
ActiveDocument.Repaginate
.Update
.Range.ParagraphFormat.Reset
End With
End Sub

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

 

[מיכאל אבידן]

אפשר, גם, בעזרת: AutoOpen‏ . . .

 

[Ncoder]

לא ברור הפתרון שלך

יש לי קוד AutoOpen כחלק מהמקרו לקובץ שלי, הקוד המלא לקובץ שלי:

Sub AutoOpen()
'
' This Macro update automatically all the fields in doc
'
'
Dim aStory As Range
Dim Afield As Field
For Each aStory In ActiveDocument.StoryRanges
For Each Afield In aStory.Fields
Afield.Update
Next Afield
Next aStory
Selection.EscapeKey
End Sub
Sub FixDammnTOC()
'
' This Macro fix TOC, It's not automatically so you need to run it everytime you change TOC
'
'
With ActiveDocument.TablesOfContents(1)
.Update
ActiveDocument.Repaginate
.Update
.Range.ParagraphFormat.Reset
End With
End Sub

בבקשה הסבר איך גורמים למאקרו השני (שמתקן TOC) להתבצע בכל פעם שפותחים את הקובץ, כי כרגע הוא לא עושה זאת.

 

[מיכאל אבידן]

תריץ חיפוש ב"גוגל" אחר . . .

&nbsp
WORD DOCUMENT RUN A MACRO FROM WITHIN A MACRO