Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа.

11.10.2006, 03:54. **Показов** 9997. **Ответов** 3

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

Началось VBA - лекций нет, только практика. Препод категоричеки отказывается что-нить объяснять, ссылаясь на то, что: "если сам найдешь лучше запомнишь". Задал такое задание. Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа. Задание не сложное - на паскале бы без б написала, но тут вся загвоздка в том, что ни операторов, ни функций для работы - ничего не знаю. Даже как переменную объявить! Люди добрые, кто может помогите, может у кого с этим дела хорошо обстоят - состряпайте макрос и программный код в *.txt файле скиньте на мыло fenix@kmtn.ru. Пожалуйста! Если не готовый макрос, то хотя бы подскажите как организовать randomize для произвольного выбора шрифта (для текста - элементарно) и цикл для слов.... Плиз!! Третью неделю мучаюсь с этим VBA. Все советы заканчиваются на уровне "там можно записать макрос его и переделай". Это как пытаться не зная итальянского на нем объяснять куда пройти...Помогите! Жду!

@EichE · 17.10.2006, 20:55

Sorry, готового рецепта нет, и времени, чтобы "состряпать" его, тоже. Могу только дать несколько советов. Во-первых, чтобы "докопаться" до среды программирования VBA в MS WORD надо открыть меню Сервис/Макрос/Редактор Visual Basic. Там будет обычная среда программирования, наподобие Delphi. Вот там вот и надо писать и прогонять макрос. Теперь немного по программированию. Переменные объявляются так

Visual Basic

'=================================================================
' Константы и переменные
  Const MaxNum = 5
  Const MinNum = 1
  ' Это две константы
  Dim RndNum As Long
  ' Это int для случайного числа
  Dim i As Long
  ' Это счетчик цикла, или просто индексная переменная
  
  Dim Str As String
  
  Dim StrWord As String
  ' Это обычные строки
' Конец блока
'=================================================================

Еще могу кое-что добавить о коде

Visual Basic

RndNum = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
  ' Вот так генерируется случайное число в диапазоне [MinNum;MaxNum]
StrWord = Mid(Str, i, InStr(i, Str, " ", vbTextCompare) - i)
    ' А вот так можно извлекать слова из строки Str, начиная с символа i

К сожалению это все.

19.10.2006, 16:55

Visual Basic

Sub МенялкаСлов()
 Dim w As Range
 For Each w In ActiveDocument.Range.Words
   DoEvents
   w.Font.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
   w.Font.Size = 8 + CInt(Rnd * 8)
   w.Font.Name = Array("Times New Roman", "Arial Black", "Batang", "Century")(CInt(Rnd * 3))
 Next w
End Sub

19.10.2006, 18:47

СПАСИБО!!!!!!!!!!!!!!!!

Animus
		1
	Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа. 11.10.2006, 03:54. Показов 9997. Ответов 3 Метки нет (Все метки) Началось VBA - лекций нет, только практика. Препод категоричеки отказывается что-нить объяснять, ссылаясь на то, что: "если сам найдешь лучше запомнишь". Задал такое задание. Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа. Задание не сложное - на паскале бы без б написала, но тут вся загвоздка в том, что ни операторов, ни функций для работы - ничего не знаю. Даже как переменную объявить! Люди добрые, кто может помогите, может у кого с этим дела хорошо обстоят - состряпайте макрос и программный код в *.txt файле скиньте на мыло fenix@kmtn.ru. Пожалуйста! Если не готовый макрос, то хотя бы подскажите как организовать randomize для произвольного выбора шрифта (для текста - элементарно) и цикл для слов.... Плиз!! Третью неделю мучаюсь с этим VBA. Все советы заканчиваются на уровне "там можно записать макрос его и переделай". Это как пытаться не зная итальянского на нем объяснять куда пройти...Помогите! Жду!

Animus
	19.10.2006, 18:47	4
	СПАСИБО!!!!!!!!!!!!!!!!

	19.10.2006, 18:47

Опции темы