Re: Wörter im WORD Dokument mit c# suchen.

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo "Andreas
>[...]
>ich verwende Word Interop in meinem c# project.
>Jetzt würde ich gerne gezielt nach Wörtern suchen die mit $ Anfangen.
>[...]
>Sub FindWord()
>Dim rDcm As Range
>Set rDcm = ActiveDocument.Range
>ResetSearch
>With rDcm.Find
> .Text = "$*>" ' Dollar vor irgendwas bis Wortende ">"
> .MatchWildcards = True
> While .Execute
> Select Case rDcm
> Case "$brown": rDcm.Text = "braun"
> Case "$fox": rDcm.Text = "Fuchs"
> End Select
> rDcm.Collapse wdCollapseEnd
> Wend
>End With
>ResetSearch
>End Sub
>' ---
>Public Sub ResetSearch()
>With Selection.Find
> .ClearFormatting
> .Replacement.ClearFormatting
> .Text = ""
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> .Execute
>End With
>End Sub
ich verstehe dein Problem nicht - du sagst du verwendest bereits
Interop - und du hast Fertigen Source.
Syntaktisch sogar zu 99% verwendbar (okay - in C# gibts halt keine Sub
und kein With Statement)

Bitte um ReDefinition deines Problems

Grüße, David
.

Relevant Pages

  • Speichern unter Dialogfeld
    ... Ich bin VBA-Neuling habe in Word folgenden Code geschrieben. ... Diese sollen eine Datei speichern und den Formularschutz vergeben. ... Sub FileSaveAs() ... Dim strDocName As String ...
    (microsoft.public.de.word.vba)
  • Re: Make Word macro find text in footnotes, headers, etc?
    ... top of the private sub) to this position (I've shown the surrounding lines ... >> For Each rDcm In ActiveDocument.StoryRanges ... >> The private sub CharacterByCharacterSearch IS in the same module, ... > Dim rDcm As Range ...
    (microsoft.public.word.vba.general)
  • Re: Falsches Ergebnis bei rs.recordcount
    ... > Ich habe folgendes Konstrukt geschrieben: ... > Private Sub Suchen_Click ... > Dim Consuch As ADODB.Connection ... > strKritSuchObjBez & strKritSuchUrheber & strKritSuchDatierung ...
    (microsoft.public.de.access)
  • Re: Falsches Ergebnis bei rs.recordcount
    ... Wentzell schrieb folgendes: ... > Ich habe folgendes Konstrukt geschrieben: ... > Private Sub Suchen_Click ... > Dim Consuch As ADODB.Connection ...
    (microsoft.public.de.access)
  • Re: For Review
    ... issue being limited to the story and the macro referenced by Doug Robbins. ... > Sub Test3() ... > For Each rDcm In ActiveDocument.StoryRanges ... > Private Sub HighlightText(rLoc As Range, sWrd As String, ...
    (microsoft.public.word.vba.general)