Блог

Главная - Вопросы по программированию - Генератор случайных шрифтов скрипта Word 2007

Генератор случайных шрифтов скрипта Word 2007

#ms-word

#ms-word

Вопрос:

Кто-нибудь знает или сможет помочь мне заставить это работать с Word 2007. Это фрагмент кода, который должен устанавливать стили случайным образом.

 //Create instance of Word application
Set objWord = CreateObject("Word.Application")
objWord.Visible = True

//Open an existing Word document, Make sure the file is exist in this path- otherwise the program fails.
Set objDoc = objWord.Documents.Open("C:ScriptsTest.doc")

//Create instance of random object
Set objRandom = CreateObject("System.Random")

intLow = 1
intHigh = 5

//Get the text of word document
Set objRange = objDoc.Range()
//Get the charcters of the text
Set colCharacters = objRange.Characters

 //Set different styles randomly 
For Each strCharacter in colCharacters
    intRandom = objRandom.Next_2(intLow,intHigh)

Select Case intRandom
    Case 1 strCharacter.Font.Name = "Arial"
    Case 2 strCharacter.Font.Name = "Times New Roman"
    Case 3 strCharacter.Font.Name = "Courier New"
    Case 4 strCharacter.Font.Name = "Forte"
End Select

Далее

Комментарии:

1. В чем проблема? Работает ли он с более ранней версией Word, но не с 2007?

2. Я даже не знаю, как писать сценарий Я прочитал несколько статей о сценариях и попытался подключить его к VB macro recorder в word, но это не сработало. Я надеялся, что кто-нибудь сможет быстро подключить его к этой версии word и заставить его работать или найти быстрое решение того, что я делал неправильно. Я, честно говоря, даже не знаю, что это за скрипт. Я понимаю, что если для этого нет быстрого решения или решения, то, думаю, я сам по себе. Спасибо за ответ в любом случае.

Ответ №1:

Вы должны добавить в программу следующие ссылки:

  1. Майкрософт.Офис.Взаимодействие.Word
  2. Библиотека объектов Microsoft Office

Вы можете сделать это, нажав правой кнопкой мыши на project -> Добавить ссылку, на вкладке GAC выберите первую ссылку, о которой я упоминал выше, на вкладке COM выберите вторую.

Метки: