VBA - Stringsuche in Zeile 1

Here is the last message untranslated. I did not think it translated the code.

Here is a macro to check for the presence of SEARCHTERM in the first paragraph of your document. Word does not really think in terms of "lines." For Word, a paragraph is everything up to the first paragraph mark which is inserted with the Enter key.
<br />

<br />

Sub FindElse()
' Charles Kenyon 23 March 2021
'
Const SEARCHTERM As String = "test"
Dim bFound As Boolean
Dim rngSearch As Range
Set rngSearch = ActiveDocument.Paragraphs(1).Range
'
With rngSearch.Find
.Text = SEARCHTERM
.Execute
bFound = .Found
End With
If bFound Then
MsgBox SEARCHTERM & " was found."
Else
MsgBox SEARCHTERM & " was not found."
End If
End Sub

Will this achieve what you want, or do you need further refinement?

<br />

We use a translation service to assist our users. We apologize for any grammatical errors.
<br />

Hello Jörg,

I am an independent consultant and in this forum.

This would be easier if your first line was in a bookmark or content control, but I can come up with something for you. It will take a few minutes.
<br />Ist die erste Zeile regulärer Text, d. H. Nicht in einer Tabelle oder einem Textfeld?

This forum is a user-to-user support forum. I am a co-user.

I hope this information helps.

Please let me know if you have any further questions or need further assistance.

You can ask for more help by replying to this post (reply button below).

Stay healthy

<br />

Glad to have helped.
<br />I've put in a complaint about the translation program! It is not supposed to translate between the

tags (nor show the tags).
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hier ist ein Makro, um das Vorhandensein von SEARCHTERM im ersten Absatz Ihres Dokuments zu überprüfen. Word denkt nicht wirklich an "Linien". Für Word ist ein Absatz alles bis zur ersten Absatzmarke, die mit der Eingabetaste eingefügt wird.

 Sub FindElse()

Charles Kenyon 23. März 2021

'

Const SEARCHTERM als String = "test"

Dim bFound As Boolean

Dim rngSearch Als Reichweite

Legen Sie rngSearch = ActiveDocument.Paragraphs(1) fest. Bereich

'

Mit rngSearch.Find

. Text = SEARCHTERM

. Ausführen

bGefunden = . Gefunden

Ende mit

Wenn bFound Then

MsgBox SEARCHTERM & " wurde gefunden."

oder

MsgBox SEARCHTERM & " wurde nicht gefunden."

Ende Wenn

End Sub

Wird dies erreichen, was Sie wollen, oder brauchen Sie weitere Verfeinerung?

Thank you very much, Charles.
<br />It works perfect.
<br />Regards Jörg
<br />