Иногда бывает задача получить какие-либо данные из word-кого документа и потом что-то с ними сделать дальше. Так же бывает и обратная задача: необходимо создать Word документ и записать в него какие-либо данные, а затем сохранить его на диск.
В данной заметке приведены небольшие примеры, показывающие как открыть word документ и прочитать из него текстовые данные на VBScript, а так же как создать пустой word документ, добавить в него текстовые данные, а затем записать его.
Пример чтения Word документа на VBScript
1 2 3 4 5 6 7 8 9 10 | Set Wrd = CreateObject("Word.Application")Set Doc = Wrd.Documents.Open("C:\test.doc")Set Pars = Doc.Range().ParagraphsFor Each Par In Pars txt = Par.Range.Text ' Что-то делаем с текстовыми данными из word-кого документаNextDoc.CloseWrd.Quit False |
Сначала запускаем Word в 1-й строке, во 2-й строке открываем word-кий документ (путь лучше указывать абсолютный).
Затем в 3-й строке получаем все параграфы, которые есть в документе и в 4-й строке в цикле проходим по всем.
В двух последних строках закрываем документ и закрываем сам Word, изменения не сохраняем (False).
Пример создания Word документа и добавления текста на VBScript
1 2 3 4 5 6 7 8 9 10 | Set Wrd = CreateObject("Word.Application")Set Doc = Wrd.Documents.Add()Set Par = Doc.Content.Paragraphs.AddPar.Range.Text = "Пример текста"Par.Range.Font.Bold = TruePar.Range.InsertParagraphAfter()Doc.SaveAs("c:\Мои документы\test.docx")Wrd.Quit |
Первые 2 строки запускают Word и содают новый документ.
Строки 4-7 добавлют параграф с текстом, выделенным жирным шрифтом.
Последние строки сохраняют документ под именем test.docx и закрывают word.
Пример создания Word документа и добавления в него таблицы
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Set Wrd = CreateObject("Word.Application")Set Doc = Wrd.Documents.Add()Set Table = Doc.Tables.Add(Doc.Bookmarks.Item("\endofdoc").Range, 3, 5)Table.Range.ParagraphFormat.SpaceAfter = 6For r = 1 To 3 For c = 1 To 5 Table.Cell(r, c).Range.Text = "Ячейка " & r & " x " & c NextNextTable.Rows.Item(1).Range.Font.Bold = TrueTable.Rows.Item(1).Range.Font.Italic = TrueDoc.SaveAs("c:\Мои документы\test.docx")Wrd.Quit |
Эти простые примеры показывают минимальные возможности автоматизации чтения и записи word документов на VBScript, а дальше, можно написать более сложные программы, используя те же приемы, что используются в Visual Basic или других языках для работы с word-ом.
Комментарии к статье:
4739778493785738464363436476337463643463864736473647648376473846
83466485367344372834232863467863426734267386342\3486342783428888
8888888888888888888888888888888888888888888888888888837647646273
437е3еаапнанпапавнававгаавгаргыргарвгарвыгарв
надеюсь автор сайта не будет таким жестоким чтобы удалять все коменты
я рада тебя видеть!!!!!!
кто тот василий что он делает
на том сайте прочь василий!
он нам изменяет прочь он шпион!
Добавить комментарий: