über Excel in word suchen

28/08/2009 - 15:08 von manfred | Report spam
Hallo Leute ich hoffe es kann mir wer helfen.
ich möchte einen text "Test" suchen und dann alles nach oben markieren, um
die anzahl der markierten Tabellen zu bekommen.

jetzt hab ich aber das Problem in word funktioniert es und in Excel störst
es mir komplett ab. =(

bitte um hilfe.

Danke

Manfred

Word.Selection.Find.ClearFormatting
With Word.Selection.Find
.Text = "Test"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Word.Selection.Find.Execute
Word.Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
t = Word.Selection.Tables.Count
 

Lesen sie die antworten

#1 Andreas Killer
28/08/2009 - 17:28 | Warnen spam
manfred schrieb:

jetzt hab ich aber das Problem in word funktioniert es und in Excel störst
es mir komplett ab. =(


Ist recht einfach, Excel kennt die Konstanten nicht die Word kennt und
außerdem weiß ich nicht wie Du die Word-Instanz initialisierst. Daher
bitte das nàchste Mal das komplette Makro posten.

Der Code-Schnipsel làuft so ohne Problem.

BTW, heißer Tip bei solchen Aktionen: Immer "Option Explicit" oben
drüber schreiben!

Andreas.

Option Explicit

Const wdFindContinue = 1
Const wdStory = 6
Const wdExtend = 1

Sub test()
Dim Word As Object, T As Long
Set Word = GetObject(, "Word.Application")

Word.Selection.Find.ClearFormatting
With Word.Selection.Find
.Text = "Test"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Word.Selection.Find.Execute
Word.Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
T = Word.Selection.Tables.Count
End Sub

Ähnliche fragen