How to select all embedded Visio objects in Word?
If your Word document contains multiple embedded Visio objects, selecting them one by one can be tedious. This tutorial introduces two methods to help you quickly select all embedded Visio objects in a document.
Select all embedded Visio objects with VBA
Select all embedded Visio objects with Kutools for Word
Recommended Productivity Tools for Word
Kutools for Word: Integrating AI π€, over 100 advanced features save 50% of your document handling time.Free Download
Office Tab: Introduces the browser-like tabs to Word (and other Office tools), simplifying multi-document navigation.Free Download
Select all embedded Visio objects with VBA
Instead of manually selecting each embedded Visio object, you can use a VBA macro to quickly select them all. Here's how to do it:
- Press Alt + F11 to open the Microsoft Visual Basic for Applications window.
- Click Insert > Module, and paste the following code into the module window:
Sub SelectAllEmbedWordObject() Dim tempTable As InlineShape Application.ScreenUpdating = False ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.InlineShapes If InStr(tempTable.OLEFormat.ProgID, "Visio") = 1 Then tempTable.Range.Paragraphs(1).Range.Editors.Add wdEditorEveryone End If Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub
- Click the Run
button or press F5 to execute the code.
Office Tab: Brings tabbed interfaces to Word, Excel, PowerPoint...![]() |
Enhance your workflow now. Learn More about Office Tab Free Download |
Select all embedded Visio objects with Kutools for Word
If you're not comfortable using macros, or simply prefer an easier way, Kutools for Word provides a one-click solution. With its Select Embedded Visio Object Paragraphs feature, you can instantly select all Visio objects in your document.
- Click Kutools > Paragraphs (in the Select group) > Select Paragraphs with Embedded Visio Objects.
Note: If you select part of the document before using this tool, it will only select embedded Visio objects within that selection.
Best Office Productivity Tools
Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!
π€ Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (Preserve Format) / Super Translate (Preserve Format) / AI Redaction / AI Proofread...
π Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF...
β Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text...
π§Ή Effortless Clean: Sweap away Extra Spaces / Section Breaks / Text Boxes / Hyperlinks / For more removing tools, head to the Remove group...
β Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Multiple Pictures / Discover more in the Insert group...
π Precision Selections: Pinpoint Specific Pages / Tables / Shapes / Heading Paragraphs / Enhance navigation with more Select features...
β Star Enhancements: Navigate to Any Location / Auto-Insert Repetitive Text / Toggle Between Document Windows / 11 Conversion Tools...
π Supports 40+ Languages: Use Kutools in your preferred language β supports English, Spanish, German, French, Chinese, and 40+ others!

β¨ Kutools for Office β One Installation, Five Powerful Tools!
Includes Office Tab Pro Β· Kutools for Excel Β· Kutools for Outlook Β· Kutools for Word Β· Kutools for PowerPoint
π¦ Get all 5 tools in one suite | π Seamless integration with Microsoft Office | β‘ Save time and boost productivity instantly
Best Office Productivity Tools
Kutools for Word - 100+ Tools for Word
- π€ Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish / Super Translate / AI Redaction / AI Proofread
- π Document Mastery: Split Pages / Merge Documents / Batch Convert to PDF
- β Contents Editing: Batch Find and Replace / Resize All Pictures
- π§Ή Effortless Clean: Remove Extra Spaces / Remove Section Breaks
- β Creative Inserts: Insert Thousand Separators / Insert Check Boxes / Create QR Codes
- π Supports 40+ Languages: Kutools speaks your language β 40+ languages supported!