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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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