בקשת מידע | יצירת קובץ VSTO

[צללית]

שלום, יש לי איזה קוד שכתבתי בVBA
איך אני מייצר קובץ VSTO כדי להעביר אותו לאחרים?
@pcinfogmach

[pcinfogmach]

@צללית
לא צריך vsto תעשה תבנית וחסל.

[צללית]

@pcinfogmach ובכל זאת, תורה היא וללמוד אני צריך...
הבנתי שזה נעשה בסביבת ויזואל סטודיו, השאלה אם אפשר לקבל מדריך בסיסי איך אני מגדיר שני לחצנים לשני מאקרו'ים
אצרף את שני המקרו'ים אולי למישהו יהיה מזה תועלת:

Sub msgboxstyle()
Dim strSelectedText As String
Dim originalRange As Range
Set originalRange = Selection.Range
Debug.Print (selectinsave)
strSelectedText = Selection.Text
Dim lngCurrentPage As Long
namefile = ActiveDocument.Name
lngCurrentPage = ActiveDocument.ActiveWindow.Selection.Information(wdActiveEndPageNumber)
Call getstyle(lngCurrentPage, strSelectedText, namefile)
originalRange.Select
End Sub

Function getstyle(lngCurrentPage, strSelectedText, namefile)
Dim sstyle As String
sstyle = Selection.Paragraphs.First.Style.NameLocal
If sstyle = "כותרת 2" Then
'Debug.Print (sstyle)
strHeading = Selection.Paragraphs.First.Range.Text
'Debug.Print (strHeading)
strNewText = "[הועתק מקובץ " + namefile + " עמוד " & lngCurrentPage & "] " & strHeading & Chr(10) & strSelectedText
Debug.Print (strNewText)

' Write text to temporary text file
        Dim filePath As String
        filePath = Environ("TEMP") & "\temp.txt"
        Open filePath For Output As #1
        Print #1, strNewText
        Close #1
        
        ' Read text from temporary file and copy to Clipboard
        Dim objShell As Object
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "cmd /c chcp 1255 & clip < " & filePath, 0, True
        
        ' Delete temporary file
        Kill filePath
        
 


Else
Debug.Print (sstyle)
Selection.MoveUp Unit:=wdParagraph
Call getstyle(lngCurrentPage, strSelectedText, namefile)
End If

End Function

Sub PasteAndFormat()
   ' שמירת מיקום בחירה
    Dim originalRange As Range
    Set originalRange = Selection.Range
    ' להדביק את הטקסט מהClipboard
    Selection.PasteSpecial DataType:=wdPasteText
   
   ' להגדיר את הפיסקה הראשונה ככותרת 2
    
    originalRange.Paragraphs(1).Range.Style = "כותרת 3"
 '    If Selection.Paragraphs.Count >= 1 Then
 '       Selection.Paragraphs(1).Range.Style = "כותרת 2"
 '   End If
End Sub

[אני יודע שהתחביר לא משהו, בבקשה לא לצחוק עלי יותר מדי...]
המטרה היא להעתיק טקסט נבחר עם הכותרת שלו ועם שם הקובץ ומספר העמוד, וכן בהדבקה להגדיר את השורה הראשונה ככותרת.
[נועד לצורך עריכה תורנית מסוימת שאני עוסק בה]

[pcinfogmach]

@צללית
אתה לא צריך vsto כדי ליצור לחצנים
https://mitmachim.top/topic/54139/מדריך-מדריך-איך-להכין-תוסף-לוורד-בקלות

[צללית]

@pcinfogmach
תודה רבה! עזר לי מאד!
אגב, האם יש קוד שמגדיר קיצור מקשים ללחצנים?

[pcinfogmach]

@צללית
אתה לא מגדיר ללחצנים אתה מגדיר ישירות למאקרו כאן

[צללית]

@pcinfogmach אפשר להגדיר את זה בתבנית?

[pcinfogmach]

@צללית
אם תפתח את התבנית ישירות דרך הפתיחה של וורד ולא דרך ווינדוס ואז תגדיר ותשמור זה יישמר לך בתבנית