לגבי חיפוש מהוורד ביקשתי מצ'אט gpt והוא הביא לי את זה:
Sub OpenProgramAndPasteClipboard()
Dim programName As String
Dim clipboardText As String
' Replace "program.exe" with the name of the program you want to open
programName = "program.exe"
' Get the text from the clipboard
clipboardText = Clipboard.GetText
' Open the program
Shell (programName)
' Paste the text from the clipboard
SendKeys clipboardText
End Sub
וזה לא עובד (ניסיתי על פנקס הרשימות), מה הסיבה?
מצרף את הדיאלוג המלא:
Spoiler
"
Can you write me a macro command for word that when I run it out of word, another software will open and within the other software that opens the computer will paste the text that exists in the copy board? [As if i press ctrl + v]
Here is a macro command for Word that will open another program and paste the contents of the clipboard into that program:
Copy code
Sub OpenProgramAndPasteClipboard()
Dim programName As String
Dim clipboardText As String
' Replace "program.exe" with the name of the program you want to open
programName = "program.exe"
' Get the text from the clipboard
clipboardText = Clipboard.GetText
' Open the program
Shell (programName)
' Paste the text from the clipboard
SendKeys clipboardText
End Sub
To use this macro, you will need to open the Visual Basic editor in Word and paste the code into a new module. Then, you can run the macro by going to the Macros dialog in Word and selecting the OpenProgramAndPasteClipboard macro.
Note that this macro uses the Shell and SendKeys functions, which are not always reliable and may not work on all systems. Additionally, this macro assumes that the program you want to open accepts keyboard input for pasting text. If the program does not accept keyboard input, this macro will not work."
https://chat.openai.com/chat#:~:text=Can you write,will not work.
 { 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}