@ישיבישער אני רואה שכבר הסתדרת...
בכל מקרה, מצורף מאקרו נוח שהכנתי בעבר עבור החלפות מרובות, כעת שיפרתי אותו בסיוע AI.
ניתן לערוך שם את ההחלפות ולהוסיף נוספות.
Sub החלפת_מילים_רבות()
Application.ScreenUpdating = False
' =========================================================================
' שורות ההחלפה - ניתן לערוך בקלות
' =========================================================================
החלף "סברה", "סברא" '1
החלף "על ליבא", "אליבא" '2
החלף "רב חיים", "ר' חיים" '3
החלף "קושיה", "קושיא" '4
החלף "גבנה", "גבנא" '5
החלף "כאימא", "קיימא" '6
החלף "קיימלון", "קיימא לן" '7
החלף "הכול פנים", "על כל פנים" '8
החלף "מלכס", "מלקות" '9
החלף "פסיחה", "פתיחה" '10
' =========================================================================
Application.ScreenUpdating = True
MsgBox "תהליך ההחלפות הסתיים בהצלחה!", vbInformation, "אנה - עוזרת פיתוח"
End Sub
Sub החלף(ByVal txtFind As String, ByVal txtReplace As String)
'פונקציית עזר
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = txtFind
.Replacement.Text = txtReplace
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
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}