_WordCreate
Создаёт объект Microsoft Office Word
#include <Word.au3>
_WordCreate([$s_FilePath = "" [, $b_tryAttach = 0 [, $b_visible = 1 [, $b_takeFocus = 1]]]])
Параметры
| $s_FilePath | [необязательный] Путь к файлу, который будет открыт при создании (См. Примечания) |
| $b_tryAttach |
[необязательный] Указывает, пытаться ли подключится к существующему окну 0 = (по умолчанию) Не пытаться подключится 1 = Пытаться подключится к существующему окну |
| $b_visible |
[необязательный] Указывает, будет ли отображаться окно 0 = Окно будет скрыто 1 = (по умолчанию) Окно будет отображаться |
| $b_takeFocus |
[необязательный] Указывает, перевести ли подключенное окно в фокус 0 = Не переносить окно в фокус 1 = (по умолчанию) Перевести окно в фокус |
Возвращаемое значение
| Успех: | Возвращает переменную объекта, указывающую на объект Word.Application |
| Ошибка: | Возвращает 0 и устанавливает @error |
| @error: | $_WordStatus_Success = Нет ошибок |
| $_WordStatus_GeneralError = Общая ошибка | |
| $_WordStatus_InvalidDataType = Неверный тип данных | |
| $_WordStatus_InvalidObjectType = Неверный тип объекта | |
| @extended: | Устанавливает True (1) или False (0) в зависимости от успешности $f_tryAttach |
Примечания
Файл будет создан, если он не существует.См. также
_WordAttach, _WordQuitПример
; *******************************************************
; Пример 1 - Create a Microsoft Word window and open a document file
; *******************************************************
#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
; *******************************************************
; Пример 2 - Attempt to attach to an existing word window with the specified document open.
; Create a new word window and open that document if one does not already exist.
; *******************************************************
#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc", 1)
; Check @extended return value to see if attach was successful
If @extended Then
MsgBox(4096, "", "Attached to Existing Window")
Else
MsgBox(4096, "", "Created New Window")
EndIf
; *******************************************************
; Пример 3 - Create a word window with a new blank document
; *******************************************************
#include <Word.au3>
$oWordApp = _WordCreate ()
; *******************************************************
; Пример 4 - Create an invisible word window, open a document,
; append some text, and quit saving changes.
; *******************************************************
#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc", 0, 0)
$oDoc = _WordDocGetCollection ($oWordApp, 0)
$oDoc.Range.insertAfter ("This is some text to insert.")
_WordQuit ($oWordApp, -1)