megoldást keresek erre a problémára
-
godunov #2097 Sziasztok!
Az alábbi Excel makró problémában kérném szíves segítségeteket:
Excelből szeretnék Word doksit kezelni.
1) megnyitom
2) megkeresek egy kifejezést
3) kijelölöm a sor (sor elejére ugrik, majd a végére kijelöléssel)
4) copy
Az utolsó két műveletet sehogy sem veszi be.
Ha a Word-ben fut a makró így néz ki és működik:
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Excelben eddig jutottam el (A sor elejére ugrik, majd a végére, kijelölés nélkül. A "Unit" és "Extend" nem működik.)
Sub MACROEXCELLWITHWORD()
Dim OWORD As Object
Set OWORD = CreateObject("Word.Application")
Dim ODOC As Object
Set ODOC = OWORD.Documents.Open("C:\teszt.doc")
OWORD.Visible = True
Set sel = OWORD.Selection
sel.Find.ClearFormatting
With sel.Find
.Text = "keresett szöveg"
.Forward = True
.Wrap = OWORDFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
With sel.Find.Execute
End With
With sel
.HomeKey
.EndKey
End With
End Sub
Nagyon köszönöm előre is a segítséget!
Üdv: godunov
Utoljára szerkesztette: godunov, 2015.08.17. 10:47:22