#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:
Вы должны добавить в программу следующие ссылки:
- Майкрософт.Офис.Взаимодействие.Word
- Библиотека объектов Microsoft Office
Вы можете сделать это, нажав правой кнопкой мыши на project -> Добавить ссылку, на вкладке GAC выберите первую ссылку, о которой я упоминал выше, на вкладке COM выберите вторую.