שיתוף | טיפים למאקרו בוורד
-
הקובץ תבנית שהעליתי לא כל כך יעיל להרבה משתמשים, בפרט שיש כאלה שעשו כבר מאקרואים משל עצמם והם יצטרכו להחליף את התבנית או לייבא את המקרואים שלה לתבנית השניה וזה יוצר כל מיני באגים [מנסיון].
לכן החלטתי לכתוב כאן כל מיני טיפים שעלו במצודתי להחלפות שונות או פעולות מסובכות ומורכבות יותר בוורד, בתקוה שיהיה לעזר לחברי הפורום היקרים.
אז נתחיל:
א] אם אתה רוצה בפעולה אחת לגרום לטקסט נבחר להיכנס לתוך סוגריים מרובעות או עגולות או לתוך גרש או גרשיים, מה שאתה צריך לעשות זה פשוט להקליט את המאקרו הבא:
לבחור את הטקסט>לגזור אותו [CTRL + X]> להקליד [] או () או '' או "" > אחר כך יש להיכנס בין שני התוים הללו ולעשות הדבק [CTRL + V] > לסיים את ההקלטה.
והנה לפנינו מאקרו פשוט שיחסוך לכם הרבה זמן. כמובן שהכי טוב זה ליצור לזה קיצור מקשים ולא פקודה ויזואלית שאתה צריך ללחוץ עליה כל פעם מחדש.
ב] באותו דרך אפשר גם להחליף מסוגריים עגולות למרובעות ולהיפך, פשוט צריך :
לבחור את הטקסט הממוסגר > לגזור > ללחוץ על DELETE ועל מחיקה - BACKCPACE > להקליד את הסוגר החילופי ולהיכנס בתוכו > להדביק מה שגזרת -
@ששמעון
איך אני עושה מאקרו בוורד, אם אני רוצה לחפש כל פעם מילים משתנות, לפי בחירה, וכל פעם שיחפש את המילים הנבחרות ויהפוך אותם לצבע אדום?
ניסיתי לעשות והוא הופך את המילים של החיפוש הראשון שעליהם יהיה את המאקרו, ולא כל פעם לפי הבחירה@israel-li לא מכיר אפשרות כזאת.
-
@israel-li לא מכיר אפשרות כזאת.
@ששמעון
יישר כח,
הסתדרתי
זה המאקרו:
Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = Selection.Range
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = -721354753
With Selection.Find
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}