Π‘ΠΎΠ΄Π΅Ρ€ΠΆΠ°Π½ΠΈΠ΅

Как ΠΌΠΎΠΌΠ΅Π½Ρ‚Π°Π»ΡŒΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΠΌΠ°ΡΡˆΡ‚Π°Π± всСх ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΎΠΊ Π² Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π΅ Word – Π’Π°Π΄ΠΈΠΌ Π‘Ρ‚Π΅Ρ€ΠΊΠΈΠ½

Microsoft Word – это ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΠΌΠΎΠΈΡ… основных инструмСнтов для создания записСй Π±Π»ΠΎΠ³Π°, Π² ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Ρ‚Ρ€Π°Π΄ΠΈΡ†ΠΈΠΎΠ½Π½ΠΎ ΠΌΠ½ΠΎΠ³ΠΎ снимков экрана. БСгодня я ΠΏΠΎΠΊΠ°ΠΆΡƒ Π²Π°ΠΌ интСрСсный макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ экономит массу Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ ΠΏΡ€ΠΈ Ρ€Π°Π±ΠΎΡ‚Π΅ с Ρ‚Π°ΠΊΠΈΠΌΠΈ Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π°ΠΌΠΈ.

Π‘ ΠΏΡ€ΠΈΡ…ΠΎΠ΄ΠΎΠΌ Windows 8 ΠΈ Π΅Π΅ полноэкранных ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π² ΠΌΠΎΠΈΡ… Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π°Ρ… выросло число Π±ΠΎΠ»ΡŒΡˆΠΈΡ… ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΎΠΊ, Ρ‡Ρ‚ΠΎ затрудняло написниС тСкста ΠΈ Π½Π°Π²ΠΈΠ³Π°Ρ†ΠΈΡŽ. Word Π½Π΅ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅Ρ‚ ΠΌΠ°ΡΡˆΡ‚Π°Π± послСднСй вставлСнной ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠΈ, подгоняя Π΅Π΅ ΠΏΠΎΠ΄ Ρ€Π°Π·ΠΌΠ΅Ρ€ страницы. Но Π΄Π°ΠΆΠ΅ Ссли ΡƒΠΌΠ΅Π½ΡŒΡˆΠ°Ρ‚ΡŒ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ, Ρ‚ΠΎ для ΠΏΡƒΠ±Π»ΠΈΠΊΠ°Ρ†ΠΈΠΈ Π² Π±Π»ΠΎΠ³Π΅ ΠΌΠ½Π΅ Π² ΠΈΡ‚ΠΎΠ³Π΅ всС Ρ€Π°Π²Π½ΠΎ Π½ΡƒΠΆΠ½Ρ‹ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠΈ Π² ΠΌΠ°ΡΡˆΡ‚Π°Π±Π΅ 100%.

Π― Ρ€Π΅ΡˆΠΈΠ» ΡƒΠΏΡ€ΠΎΡΡ‚ΠΈΡ‚ΡŒ сСбС Тизнь!

Как выглядит макрос

НСдолгиС поиски ΠΏΡ€ΠΈΠ²Π΅Π»ΠΈ мСня ΠΊ макросу, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΎΠ΄Π½ΠΈΠΌ сочСтаниСм клавиш позволяСт Π·Π°Π΄Π°Ρ‚ΡŒ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²Ρ‹ΠΉ ΠΌΠ°ΡΡˆΡ‚Π°Π± всСм ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ°ΠΌ Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π° Word.

Π’ основС Π»Π΅ΠΆΠΈΡ‚ ΠΊΠΎΠ΄ VBA.

 Sub AllPictSize()
        Dim PercentSize As Integer
        Dim oIshp As InlineShape
        Dim oshp As Shape
    
        PercentSize = InputBox("Enter percent of full size", "Resize Picture", 100)
    
        For Each oIshp In ActiveDocument.
InlineShapes With oIshp .ScaleHeight = PercentSize .ScaleWidth = PercentSize End With Next oIshp For Each oshp In ActiveDocument.Shapes With oshp .ScaleHeight Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue .ScaleWidth Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue End With Next oshp End Sub

ШСстая строка опрСдСляСт стандартный ΠΌΠ°ΡΡˆΡ‚Π°Π±, ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΡ‹ΠΉ Π² Π΄ΠΈΠ°Π»ΠΎΠ³Π΅.

Как Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ макрос

ΠŸΡ€ΠΎΡ‰Π΅ простого!

  1. Π’ Word Π½Π°ΠΆΠΌΠΈΡ‚Π΅ сочСтаниС клавиш Alt + F11, Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ ΠΊΠΎΠ΄ Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€, Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Ctrl + S, Π·Π°Ρ‚Π΅ΠΌ Alt + F4.
  2. НаТмитС Alt + F8 ΠΈ запуститС макрос AllPictSize. ВсС!

Для ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΡΡ‡Π°ΡΡ‚ΡŒΡ Π² настройках Π»Π΅Π½Ρ‚Ρ‹ я повСсил Π½Π° макрос сочСтаниС клавиш Alt + P.


ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΠΊΠ°ΠΊ ΡΠΎΠΊΡ€Π°Ρ‰Π°ΡŽΡ‚ΡΡ инструкции, ΠΊΠΎΠ³Π΄Π° Π² Π½ΠΈΡ… Π²ΠΊΠ»ΡŽΡ‡Π°ΡŽΡ‚ΡΡ сочСтания клавиш. Π”Π°ΠΆΠ΅ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠΈ Π½Π΅ Π½ΡƒΠΆΠ½Ρ‹ πŸ™‚ ΠšΡΡ‚Π°Ρ‚ΠΈ, я посмотрСл, Ρ‡Ρ‚ΠΎ Ρƒ мСня ΠΎΡ‡Π΅Π½ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ записСй ΠΏΡ€ΠΎ сочСтания клавиш, ΠΈ сдСлал ΠΈΠΌ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ Ρ‚Π΅Π³.

А Π²Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅ макросы Π² Office Π΄ΠΎΠΌΠ° ΠΈΠ»ΠΈ Π½Π° Ρ€Π°Π±ΠΎΡ‚Π΅? РасскаТитС Π² коммСнтариях, для Ρ‡Π΅Π³ΠΎ ΠΎΠ½ΠΈ Ρƒ вас слуТат!

Как ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ всСх / Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ Π² Word?

Как ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ всСх / Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ Π² Word?

Когда ΠΌΡ‹ ΠΊΠΎΠΏΠΈΡ€ΡƒΠ΅ΠΌ ΠΈΠ»ΠΈ ΠΈΠΌΠΏΠΎΡ€Ρ‚ΠΈΡ€ΡƒΠ΅ΠΌ изобраТСния ΠΈΠ· Π˜Π½Ρ‚Π΅Ρ€Π½Π΅Ρ‚Π° ΠΈΠ»ΠΈ Π΄Ρ€ΡƒΠ³ΠΈΡ… Ρ„Π°ΠΉΠ»ΠΎΠ², Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹ΠΌ. ВсС Π·Π½Π°ΡŽΡ‚, ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½ΡΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΎΠ΄Π½ΠΎ Π·Π° Π΄Ρ€ΡƒΠ³ΠΈΠΌ, Π½ΠΎ Ссли ΠΌΡ‹ Ρ…ΠΎΡ‚ΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΠΈΡ… Ρ€Π°Π·ΠΌΠ΅Ρ€ Π΄ΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈ Ρ‚ΠΎΠ³ΠΎ ΠΆΠ΅ Ρ€Π°Π·ΠΌΠ΅Ρ€Π° сразу, ΠΊΠ°ΠΊ ΠΌΡ‹ ΠΌΠΎΠΆΠ΅ΠΌ это ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ? Π­Ρ‚ΠΎΡ‚ ΡƒΡ€ΠΎΠΊ ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ‚ Π²Π°ΠΌ нСсколько ΠΌΠ΅Ρ‚ΠΎΠ΄ΠΎΠ² измСнСния Ρ€Π°Π·ΠΌΠ΅Ρ€Π° ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ.

ИзмСнСниС Ρ€Π°Π·ΠΌΠ΅Ρ€Π° ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ Π² Word

ИзмСнСниС Ρ€Π°Π·ΠΌΠ΅Ρ€Π° ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA

Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚Π΅ Ρ€Π°Π·ΠΌΠ΅Ρ€ Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΎΠ΄Π½ΠΎΠ²Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Kutools for Word