Foxpro и MS word

@Ebis · Регистрация: 03.03.2010

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

Подскажите пожалуйста, как мне провести "ревизию" существующего вордвоского файла ( не создавая новый), а точнее как получить указатель на него или что то в этом роде, чтобы дальше работать с ним как с word.aplication ?

@Redglow · 17.01.2012, 10:34

Совершенно непонятно, что подразумевается под "ревизией". Кроме того, в фоксе нет понятия указателя. Если вопрос состоит в том, как создать объект существующего вордовского файла, то примерно так:

Код

PRIVATE poWordApp
LOCAL lcDocFile, lcFile

lcDocFile = GETFILE("Документ Word:DOC", "Файл:", "Выбрать", 0, "Выбор файла")
IF EMPTY(lcDocFile)
	RETURN .f.
ENDIF
lcFile = ["] + lcDocFile + ["]
poWordApp = CREATEOBJECT("Word.Application")
poWordApp.Documents.Open(&lcFile.)
*poWordApp.Visible = .t.

@Ebis · 17.01.2012, 10:54 **[ТС]**

Спасибо! Нжуно было именно poWordApp.Documents.Open.
P.S. Под ревизией в данном случае понимается просмотр файла и подсчет слов,символов,абзацев,таблиц и изображений

P.S.S А не подскажете еще как подсчитать кол-во абзацев?
wrd.documents(1).paragraphs.count так мне покажет число параграфов, с учетом того, что параграф ставиться в каждой ячейки таблицы, а мне нужно кол-во абзацев

@Ebis 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 94
		1
	Foxpro и MS word 16.01.2012, 16:47. Показов 6514. Ответов 2 Метки нет (Все метки) Подскажите пожалуйста, как мне провести "ревизию" существующего вордвоского файла ( не создавая новый), а точнее как получить указатель на него или что то в этом роде, чтобы дальше работать с ним как с word.aplication ? 0

@Redglow 107 / 107 / 0 Регистрация: 06.05.2011 Сообщений: 277
	17.01.2012, 10:34	2
	Совершенно непонятно, что подразумевается под "ревизией". Кроме того, в фоксе нет понятия указателя. Если вопрос состоит в том, как создать объект существующего вордовского файла, то примерно так: Код PRIVATE poWordApp LOCAL lcDocFile, lcFile lcDocFile = GETFILE("Документ Word:DOC", "Файл:", "Выбрать", 0, "Выбор файла") IF EMPTY(lcDocFile) RETURN .f. ENDIF lcFile = ["] + lcDocFile + ["] poWordApp = CREATEOBJECT("Word.Application") poWordApp.Documents.Open(&lcFile.) *poWordApp.Visible = .t. 1

@Ebis 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 94
	17.01.2012, 10:54 [ТС]	3
	Спасибо! Нжуно было именно poWordApp.Documents.Open. P.S. Под ревизией в данном случае понимается просмотр файла и подсчет слов,символов,абзацев,таблиц и изображений P.S.S А не подскажете еще как подсчитать кол-во абзацев? wrd.documents(1).paragraphs.count так мне покажет число параграфов, с учетом того, что параграф ставиться в каждой ячейки таблицы, а мне нужно кол-во абзацев 0