VBA - word

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

• ---

• מדריכים - VBA word

  6 23
  6 נושאים

  23 פוסטים

  P

  היו אנשים שהתלוננו בעבר על כך שיישור טורים בוורד לא מדויק. ובכן, זה נכון, אך לא תמיד. לפעמים, כאשר מבצעים זום בשיעור שונה מ-100%, זה יכול לשבש את המראה של הטורים כך שייראה כאילו אינם מיושרים, אך ברגע שמחזירים את הזום ל-100%, הכל יתיישר כראוי. Spoiler הפסיקים באדיבות gpt מה אתם אומרים יודע איך לפסק או לא להתשמש בו לפסיקים?
• עזרה הדדית - VBA word

  48 374
  48 נושאים

  374 פוסטים

  ט

  @קפטן-מרשמלו תודה רבה, פשוט אין מילים!!! ברוך השם שיתפתי ל 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