Syntax
ToolsOptionsEdit [.ReplaceSelection = number] [, .DragAndDrop = number] [, .AutoWordSelection = number] [, .InsForPaste = number] [, .Overtype = number] [, .SmartCutPaste = number] [, .AllowAccentedUppercase = number] [, .PictureEditor = text]
[, .TabIndent = number]
Remarks
Sets editing options. The arguments for the ToolsOptionsEdit statement correspond to the options on the Edit tab in the Options dialog box (Tools menu).
Argument | Explanation | ||||
.ReplaceSelection | If 1, replaces selected text with typed text. | ||||
.DragAndDrop | If 1, allows drag-and-drop editing. | ||||
.AutoWordSelection | If 1, dragging selects one word at a time instead of one character at a time. | ||||
.InsForPaste | If 1, allows the INS key to be used for pasting the Clipboard contents. | ||||
.Overtype | If 1, replaces text following the insertion point with typed text. | ||||
.SmartCutPaste | If 1, automatically adjusts spacing between words and punctuation when cutting and pasting. | ||||
.AllowAccentedUppercase | If 1, allows proofing tools and the Change Case feature to suggest that Word add an accent mark to an uppercase letter. | ||||
.PictureEditor | The name of the application you want to use to edit pictures, as it appears in the Picture Editor box. | ||||
.TabIndent | If 1, TAB and BACKSPACE can be used to add or remove list formatting. This argument is available only in Word version 7.0. | ||||
Example
This example toggles the Drag-And-Drop Text Editing check box:
Dim dlg As ToolsOptionsEdit
GetCurValues dlg
If dlg.DragAndDrop Then
dlg.DragAndDrop = 0
Else
dlg.DragAndDrop = 1
End If
ToolsOptionsEdit dlg
See Also
Overtype