Архив форумов ЦИТФорума

[dominik]

Всем доброго времени суток!!!
Есть задача следующего плана: В Excel документе вводятся данные, которые через OLE объект передаются в Word и подставляются в текст документа(замена фрагментов текста). Процедура вызывается из Excel-вского макроса, текст которой размещаю.

Sub DocActivateOrOpen()
Dim docFileName As String, docPath As String
Set wrd = CreateObject("Word.Application")
docFileName = "Äîãîâîð.doc"
docPath = "D:\temp\"
For Each targetDoc In wrd.Documents
If targetDoc.Name = docFileName Then
targetDocIsOpen = True
End If
Next targetDoc
If targetDocIsOpen = True Then
wrd.Documents(docFileName).Activate
Else
wrd.Documents.Open ("D:\temp\Äîãîâîð.doc")
wrd.Visible = True
End If
wrd.Windows("Äîãîâîð.doc").Selection.WholeStory
wrd.Windows("Äîãîâîð.doc").Selection.Find.ClearFormatting
wrd.Windows("Äîãîâîð.doc").Selection.Find.Replacement.ClearFormatting
With wrd.Windows("Äîãîâîð.doc").Selection.Find
.Text = "<DateDogov>"
If .Found = True Then
MsgBox "Text found."
End If
.Replacement.Text = "01/01/2007"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wrd.Windows("Äîãîâîð.doc").Selection.Find.Execute Replace:=wdReplaceAll
End Sub
_________________
И наше ВАМ почтение!!!