Как перевернуть все изображения в word

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

Sub Procedure_1()
 
    Dim myShape As Word.Shape
    Dim myLeft As Double, myTop As Double
    Dim i As Long
    
    'В Wordе рисунки делятся на две группы:
        '1) рисунки, которые находятся в тексте - т.е. являются частью абзаца;
        '2) рисунки, которые обтекаются текстом.
    'Рисунки, которые находятся в тексте, в VBA - это InlineShape.
    'Рисунки, которе обтекаются текстом, в VBA - это Shape.
    
    'Двигаемся от последнего рисунка к первому, т.к.
    'рисунки будут перемещаться и терять своё положение.
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    
        '1. Запоминаем, где находится "InlineShape".
        '1.1. Положение можно узнать с помощью объекта "Selection",
        'поэтоу рисунок сначала выделяем.
        ActiveDocument.InlineShapes(i).Select
        '1.2. Запоминаем положение рисунка.
        'Значения получаем в пунктах (Points).
        myLeft = Selection.Information(wdHorizontalPositionRelativeToPage)
        myTop = Selection.Information(wdVerticalPositionRelativeToPage)
        
        '2. Превращаем "InlineShape" в "Shape".
        'Так меняется "InlineShape" на "Shape".
        'Даём имя "myShape" созданному "Shape".
        'Через это имя можно управлять рисунком.
        Set myShape = ActiveDocument.InlineShapes(i).ConvertToShape
        
        '3. Устанавливаем рисунок в нужное положение.
        '3.1. Делаем так, чтобы положение было относительно страницы.
        'Потому что мы запомнили положение относительно страницы.
        myShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        myShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage
        '3.2. Помещаем рисунок в нужную позицию.
        myShape.Left = myLeft
        myShape.Top = myTop
        
    Next i
 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

Sub Procedure_1()
    
    Dim myInlineShape As Word.InlineShape
    Dim myShape As Word.Shape
    Dim myLeft As Double, myTop As Double
    Dim i As Long
    
    'В Wordе рисунки делятся на две группы:
        '1) рисунки, которые находятся в тексте - т.е. являются частью абзаца;
        '2) рисунки, которые обтекаются текстом.
    'Рисунки, которые находятся в тексте, в VBA - это InlineShape.
    'Рисунки, которе обтекаются текстом, в VBA - это Shape.
    
    'Двигаемся от последнего рисунка к первому, т.к.
    'рисунки будут перемещаться и терять своё положение.
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    
        '1. Даём имя рисунку, т.к. в коде придётся несколько раз
        'к нему обратиться. Через имя должно быть быстрее.
        Set myInlineShape = ActiveDocument.InlineShapes(i)
    
        '2. Запоминаем, где находится "InlineShape".
        'Значения получаем в пунктах (Points).
        myLeft = myInlineShape.Range.Information(wdHorizontalPositionRelativeToPage)
        myTop = myInlineShape.Range.Information(wdVerticalPositionRelativeToPage)
        
        '3. Превращаем "InlineShape" в "Shape".
        'Так меняется "InlineShape" на "Shape".
        'Даём имя "myShape" созданному "Shape".
        'Через это имя можно управлять рисунком.
        Set myShape = myInlineShape.ConvertToShape
        
        '4. Устанавливаем рисунок в нужное положение.
        '4.1. Делаем так, чтобы положение было относительно страницы.
        'Потому что мы запомнили положение относительно страницы.
        myShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        myShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage
        '4.2. Помещаем рисунок в нужную позицию.
        myShape.Left = myLeft
        myShape.Top = myTop
        
    Next i
 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Sub Procedure_1()
    
    Dim myShape As Word.Shape
    Dim i As Long
    
    'С помощью цикла с "i" обрабатываем все "InlineShape" в документе.
    For i = 1 To ActiveDocument.InlineShapes.Count Step 1
        
        '1. Превращаем "InlineShape" в "Shape" и даём "Shape" имя "myShape".
        'Через это имя будем воздействовать на "Shape".
        Set myShape = ActiveDocument.InlineShapes(i).ConvertToShape
        
        '2. Поворачиваем "Shape".
        myShape.Rotation = 10
        
        '3. Превращаем "Shape" обратно в "InlineShape".
        myShape.ConvertToInlineShape
        
    Next i
 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12

    'Аналогично действию в Word 2007:
    'Круглая кнопка - Параметры Word - Дополнительно -
    'Показывать содержимое документа - флажок "Показывать пустые рамки рисунков".
    ActiveWindow.View.ShowPicturePlaceHolders = True
    'Здесь идёт код.
    ActiveWindow.View.ShowPicturePlaceHolders = False
    
    'Переход в режим просмотра "Черновик".
    'В этом режиме может быть не будет происходить разбивка на страницы.
    ActiveWindow.View.Type = wdNormalView
    'Здесь идёт код.
    ActiveWindow.View.Type = wdPrintView