Как изменить цвет фона страницы?

TanaTiX · Регистрация: 19.02.2011

Author24 — интернет-сервис помощи студентам

Когда-то давно сделал в Word-е по умолчанию серый цвет фона страницы (Формат>Фон). Сейчас вздумалось сделать кнопку, которая бы по клику в случае если фон серый делала его белым, а если белый - возвращала в серый.
Проблем несколько:

Не могу найти описание свойства, отвечающего за изменение цвета фона документа.
Не знаю как (возможно ли?) обеспечить сохранение результата для всех документов. При этом хотелось бы обойтись без явного открытия normal.dot, если это возможно.

Заранее спасибо.

@Казанский · 26.05.2014, 12:38

TanaTiX,
1. обычно макрорекордер дает ответ на этот вопрос. Конкретно по цвету фона - в 2007 макрорекордер записывает изменение свойств темы, но можно напрямую:

Visual Basic    
        
    Скопировано
1
ActiveDocument.Background.Fill.ForeColor.RGB = &HC0C0C0

TanaTiX · 26.05.2014, 13:06 **[ТС]**

Казанский, да, действительно, записывает.
Сделал такой вариант:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
If ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
        ActiveDocument.Background.Fill.ForeColor.RGB = RGB(192, 192, 192)
    Else
        ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If

Этот код по началу работал, а сейчас отказывается. Никаких ошибок не выдает. Даже пришлось проверить сам факт работы кода - работает. Но никак на документе это не сказывается. Я где-то что-то упустил?

shanemac51 · 26.05.2014, 13:11

попробуйте

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
If ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(192, 192, 192)
Elseif ActiveDocument.Background.Fill.ForeColor.RGB = RGB(192, 192, 192) then
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
else
     ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
End If

TanaTiX · 26.05.2014, 13:26 **[ТС]**

shanemac51, не помогло, такое же поведение.

Не по теме:

ЗЫ. есть смутное сомнение, что дело не в коде, но в чем не знаю

shanemac51 · 26.05.2014, 13:27

хотя и ваш работает
правда перед этим я запустила свой

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
Sub w140525_1326_back()
'
If ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 0) Then
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(146, 208, 80)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
Else
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 0)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
End If
End Sub

TanaTiX · 26.05.2014, 13:32 **[ТС]**

shanemac51, попробовал этот вариант - не пашет. Поставил MsgBox с выводом цвета - он рассказал, что цвет меняется, но реально я этого не вижу. В чем может быть проблема?

shanemac51 · 26.05.2014, 13:46

надо смотреть документ, угадать не смогу

TanaTiX · 26.05.2014, 13:57 **[ТС]**

shanemac51, я создаю новый документ - это не работает даже на новом документе

shanemac51 · 26.05.2014, 14:34

попробуйте

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub w140525_1324()
If ActiveDocument.Background.Fill.Visible = False Then
ActiveDocument.ActiveWindow.View.Type = wdWebView
With ActiveDocument.Background.Fill
    .Visible = True
    .ForeColor.RGB = RGB(192, 192, 192)
End With
End If
 
If ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
      ActiveDocument.Background.Fill.ForeColor.RGB = RGB(192, 192, 192)
  Else
      ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
  End If
End Sub

TanaTiX · 27.05.2014, 17:23 **[ТС]**

shanemac51, переключает в веб-режим, в котором работает, но в режиме разметки - нет. Попытка манипуляции соответствующими свойствами - также без результата

Добавлено через 23 часа 3 минуты
Своими силами что-то все никак...

shanemac51 · 27.05.2014, 18:51

нашла в справке

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
Debug.Print ActiveDocument.Background.Fill.Visible
If ActiveDocument.Background.Fill.Visible = False Then
ActiveDocument.ActiveWindow.View.Type = wdWebView
With ActiveDocument.Background.Fill
    .Visible = True
    .ForeColor.RGB = RGB(192, 192, 192)
End With
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Обои могут видеть только в режиме веб-документа.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end sub

TanaTiX · 27.05.2014, 19:57 **[ТС]**

shanemac51, а нельзя запомнить текущий режим отображения документа, перейти в веб, сделать ~~грязное~~ дело и вернуть режим отображения в исходный?
Я вот так попробовал - не работает

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim a As Integer
    a = ActiveDocument.ActiveWindow.View.Type
    If ActiveDocument.Background.Fill.Visible = False Then
    ActiveDocument.ActiveWindow.View.Type = wdWebView
    With ActiveDocument.Background.Fill
        .Visible = True
        .ForeColor.RGB = RGB(192, 192, 192)
    End With
    End If
 
If ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
      ActiveDocument.Background.Fill.ForeColor.RGB = RGB(192, 192, 192)
  Else
      ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
  End If
  ActiveDocument.ActiveWindow.View.Type = a

Так тоже

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
Dim a As Integer
    a = ActiveDocument.ActiveWindow.View.Type
    Debug.Print ActiveDocument.Background.Fill.Visible
    If ActiveDocument.Background.Fill.Visible = False Then
    ActiveDocument.ActiveWindow.View.Type = wdWebView
    With ActiveDocument.Background.Fill
        .Visible = True
        .ForeColor.RGB = RGB(192, 192, 192)
    End With
    End If
    ActiveDocument.ActiveWindow.View.Type = a

При этом, что странно, стоит один раз в документе вручную поменять фон - дальше работает.

Новые блоги и статьи Все статьи Все блоги /
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .	Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .

TanaTiX Модератор 2914 / 1772 / 180 Регистрация: 19.02.2011 Сообщений: 6,520
		1
	Как изменить цвет фона страницы? 26.05.2014, 11:44. Показов 5120. Ответов 12 Метки нет (Все метки) Когда-то давно сделал в Word-е по умолчанию серый цвет фона страницы (Формат>Фон). Сейчас вздумалось сделать кнопку, которая бы по клику в случае если фон серый делала его белым, а если белый - возвращала в серый. Проблем несколько: Не могу найти описание свойства, отвечающего за изменение цвета фона документа. Не знаю как (возможно ли?) обеспечить сохранение результата для всех документов. При этом хотелось бы обойтись без явного открытия normal.dot, если это возможно. Заранее спасибо. 0

TanaTiX Модератор 2914 / 1772 / 180 Регистрация: 19.02.2011 Сообщений: 6,520
	26.05.2014, 13:26 [ТС]	5
	shanemac51, не помогло, такое же поведение. Не по теме: ЗЫ. есть смутное сомнение, что дело не в коде, но в чем не знаю 0

TanaTiX Модератор 2914 / 1772 / 180 Регистрация: 19.02.2011 Сообщений: 6,520
	26.05.2014, 13:32 [ТС]	7
	shanemac51, попробовал этот вариант - не пашет. Поставил MsgBox с выводом цвета - он рассказал, что цвет меняется, но реально я этого не вижу. В чем может быть проблема? 0

shanemac51 Модератор 12144 / 4999 / 799 Регистрация: 07.08.2010 Сообщений: 14,724 Записей в блоге: 4
	26.05.2014, 13:46	8
	надо смотреть документ, угадать не смогу 0

TanaTiX Модератор 2914 / 1772 / 180 Регистрация: 19.02.2011 Сообщений: 6,520
	26.05.2014, 13:57 [ТС]	9
	shanemac51, я создаю новый документ - это не работает даже на новом документе 0

TanaTiX Модератор 2914 / 1772 / 180 Регистрация: 19.02.2011 Сообщений: 6,520
	27.05.2014, 17:23 [ТС]	11
	shanemac51, переключает в веб-режим, в котором работает, но в режиме разметки - нет. Попытка манипуляции соответствующими свойствами - также без результата Добавлено через 23 часа 3 минуты Своими силами что-то все никак... 0