Professional Texts

This article is dedicated to users of Word 2007 who need to use accents in words. Unfortunately, the usual way to insert accented letters for the word in Word 2007 is not working, unlike previous versions a text editor. But you can use the following macro, which is perfectly cope with this problem in the new version of the editor. This macro allows you to set as accent marks above the selected letter, and remove the sign. In MS Word there are several types of characters accents. In the described macro I use the symbol with the code 769 of the symbol table Unicode. Macro code: Sub setAndDeleteAccent () 'Add or Remove accent marks' @ A.

Kokin WordExpert.ru – Professional Text Dim rAcc As Range Dim rTmp As Range Set rTmp = Selection.Range If Selection.Type = wdSelectionIP Then MsgBox prompt: = 'Do not select the letter' ElseIf Len (rTmp.Characters (1)) = 1 Then rTmp.Collapse direction : = wdCollapseEnd rTmp.InsertSymbol CharacterNumber: = 769, Unicode: = True Selection.Collapse direction: = wdCollapseEnd Else For Each rAcc In rTmp.Characters If AscW (Right (rAcc, 1)) = 769 Then rAcc = Left (rAcc, a ) End If Next rAcc End If End Sub To insert an accent over the letter, select the drive letter and run the macro. To remove the accent, again select the letter which is under stress. If nothing in the text is selected, the message will be displayed in the dialog box. In order to have quick access to this macro, assign it a keyboard shortcut or create a button on the toolbar (or in the Quick Access Toolbar for Word 2007). If you do not know how to connect to a document and use these macros, read the following notes: Creating a macro from the finished code is automatically recording a macro