I stedet for å velge den innebygde Visio objekter en etter en, er det lettere å velge alle av dem med VBA i Word.
VBA-kode kan Velg alle innebygde objekter, gjør du følgende:
Trinn 1: Trykk Alt + F11 for å åpne VBA vinduet;
Trinn 2: Klikk Module fra kategorien Sett inn, sette inn koden i Module vinduet;
Trinn 3:. Klikk på Kjør-knappen eller trykk F5 for å bruke VBA
VBA-kode for å velge alle innebygde objekter: Hvis du ikke er god på makro, eller du ønsker å finne en enkel måte for å velge alle innebygd Visio objekt i Word, er Kutool for Word ditt beste løsningen. Etter at du har installert Kutool for Word, kan du velge alt innebygd Visio-objekter med ett klikk. Kutools for Word, en hendig add-in, omfatter grupper av verktøy for å lette arbeidet ditt og forbedre din evne av behandlingen av Word-dokument. Gratis prøveversjon i 45 dager! Få det nå Klikk Kutools > Klikk Avsnitt Velg i Avsnitt-gruppen > Klikk på Velg alle Embedded Visio-objekter Avsnitt fra nedtrekkslisten. Se skjermbilde: Merk: hvis du gjør et valg i dokumentet først, vil dette verktøyet bare velge alle innebygde Visio dokument gjenstander av utvalget For mer detaljert. informasjon om Velg Embed Visio Objekt ledd Kutools for Word. vennligst besøk: Paragraf Velg funksjonen beskrivelse Anmeldelser
Sub SelectAllEmbedWordObject ()
Dim tempTable Som InlineShape
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Hver tempTable I ActiveDocument.InlineShapes
Hvis InStr (tempTable.OLEFormat .ProgID, "Visio") = 1 Så
tempTable.Range.Paragraphs (1) .Range.Editors.Add wdEditorEveryone
End If
Neste
< em> ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
Velg alle innebygde Visio-objekter med Kutool for Word