@דאנציג כתב בבקשה | שליטה על הגופנים בוורד:
Sub החלפת_אות()
Attribute החלפת_אות.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_אות"
'
' החלפת_אות Macro
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
Sub החלפת_מילה()
Attribute החלפת_מילה.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_מילה"
'
' החלפת_מילה Macro
'
'
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
תודה רבה, מאד עוזר.
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}