דילוג לתוכן

וורד

807 נושאים 10.6k פוסטים

קטגוריות משנה


  • 11 נושאים
    35 פוסטים
    P
    כבר כמה אנשים באו אלי עם הבעיה דלהלן: הפיכת ממשק וורד לעברית לא מספיקה – עדיין כל המסמכים נפתחים בכיווניות משמאל לימין וכל ההגדרות נשארות מותאמות לאנגלית. הפתרון: בנוסף לשינוי שפת הממשק לעברית, יש לוודא שהגדרות שפת העריכה וההגהה של אופיס מוגדרות גם הן לעברית. כך תתאימו את כל ההגדרות למסמכים בעברית, והכל יבוא על מקומו בשלום. [image: 1748453042793-63b4e235-4874-4440-a0ac-4852f667cf8a-image.png]
  • 742 נושאים
    10k פוסטים
    יאיר דניאלי
    @pcinfogmach ממבט ראשון ושני - יש בו משהו מיוחד - גם בתצוגה צרה הוא נוח, ממשק מודרני ואינטראקטיבי. אממ'ה, אצלנו החרדים... לכאורה אמור להיות הרבה שימוש בניווט בתוך המסמך - מה ששם קצת מורכב. זה לא נוח לפתוח ניווט - ואז לרדת למטה ולבחור סוג ניווט = כותרות/עמודים, ואז להתחיל לדפדף. נקודה למחשבה [image: 1776819179335-ff78bb4f-2af2-4bb3-a1f4-3d75d8abdd11-image.png]
  • 54 נושאים
    397 פוסטים
    ט
    @קפטן-מרשמלו תודה רבה, פשוט אין מילים!!! ברוך השם שיתפתי ל AI סטודיו את הפוסט שלך, והציע לי מניפולציה מסויימת ותוך כדי הוא פתאום "קלט" מה אני רוצה ממנו והביא לי קוד VBA שעובד מצויין! מצורף כאן לכל המעוניין..... כמובן - יש להקיש f9 לאחר הרצת המאקרו לעדכון שדות (ולא - כל השדות יהיו האות 'א'). Sub החלף_מספור_באותיות_הפניה_מקושרת() Dim fld As Field Dim codeText As String ' מעבר על כל השדות במסמך For Each fld In ActiveDocument.Fields ' בדיקה אם השדה הוא מסוג הפניה (REF) If InStr(1, fld.Code.Text, "REF ", vbTextCompare) > 0 Then codeText = fld.Code.Text ' הוספת שמירת עיצוב אם חסר If InStr(1, codeText, "\* MERGEFORMAT", vbTextCompare) = 0 Then codeText = codeText & " \* MERGEFORMAT" End If ' הוספת תבנית אותיות בעברית אם חסר If InStr(1, codeText, "\* hebrew1", vbTextCompare) = 0 Then codeText = codeText & " \* hebrew1" End If ' עדכון קוד השדה והשדה עצמו fld.Code.Text = codeText fld.Update End If Next fld MsgBox "כל שדות ההפניה שונו לאותיות עבריות בהצלחה!", vbInformation End Sub