ABAKUS

Marktlücke?

Stonebrands hat geschrieben:Unsere Artikel bestehen gewöhnlich aus je 20 Keywords.

Stonebrands hat geschrieben:Marktlücke?

Halte ich nicht für eine Marktlücke, eher dafür, dass da kaum Bedarf für so ein Script besteht. So richtig verstehe ich die Zielsetzung ohnehin nicht.

Sollen da einmalig 20 Keywords in eine Liste aufgenommen werden, um dann zu überprüfen, ob in den nächsten 100 bis 200 Artikeln in jedem dieser Artikel diese 20 KWs enthalten sind? Wo für sollte das gut sein, wer optimiert einen einzelnen Artikel oder eine einzelne Unterseite auf 20 KWs?

Oder sollen da aus einer Liste mit 20 KWs in jedem Artikel oder in jeder Unterseite wenigstens 2 bis 3 KWs vorkommen, um eine Site insgesamt auf 20 KWs zu optimieren?

Da die Texte vermutlich ohnehin in Word erstellt werden, würde ich die Aufgabe auch mit einem Word-Makro lösen.

Melegrian hat geschrieben: Sollen da einmalig 20 Keywords in eine Liste aufgenommen werden, um dann zu überprüfen, ob in den nächsten 100 bis 200 Artikeln in jedem dieser Artikel diese 20 KWs enthalten sind?

Nein, in jedem Artikel sind 20-30 verschiedene Keywords.

Aktuell prüfen wir pro Artikel jedes Keyword einzeln.

D.h. Kw1 markieren -> kopieren -> MSword-suchfeld öffnen -> keyword einfügen -> suchen

Kw2 markieren -> kopieren -> word-suchfeld öffnen -> keyword einfügen -> suchen

usw...

Wir suchen ein Tool, das alle 20-30 Keywords auf einmal pro Artikel abfrägt. Sowas würde uns sehr viel Arbeit ersparen.

Folgendes Word-Makro durchsucht das aktuelle Dokument nach den in der Eingabebox genannten Keywords und schmeißt am Ende eine Statistik aus:

Sub CountKeywords()

Dim Keywords As String, Pos_Space As Long, Anzahl_Keywords As Long, i As Integer, iCount As Integer, Stat_Text As String
Dim Suchbegriffe() As String, Anz_Hits() As Integer

Keywords = Trim(InputBox("Bitte hier die Keywords, durch Leerzeichen getrennt, eingeben:")) & " "
Anzahl_Keywords = 0

' Eingabetext auseinandernehmen:
Do While Len(Keywords) > 0
Pos_Space = InStr(1, Keywords, " ")
ReDim Preserve Suchbegriffe(Anzahl_Keywords + 1)
Suchbegriffe(Anzahl_Keywords + 1) = Left(Keywords, Pos_Space - 1)
Keywords = Right(Keywords, Len(Keywords) - Pos_Space)
Anzahl_Keywords = Anzahl_Keywords + 1
Loop

' Vorkommen zählen:
For i = 1 To Anzahl_Keywords
Selection.Find.ClearFormatting
iCount = 0
With ActiveDocument.Content.Find
.Text = Suchbegriffe(i)
.Forward = True
.MatchWholeWord = True
.MatchCase = False
Do While .Execute
iCount = iCount + 1
Loop
ReDim Preserve Anz_Hits(i)
Anz_Hits(i) = iCount
End With
Next

' Statistik ausgeben:
Stat_Text = "Anzahl Treffer:" & Chr(13) & Chr(13)
For i = 1 To Anzahl_Keywords
Stat_Text = Stat_Text & Suchbegriffe(i) & ": " & Anz_Hits(i) & Chr(13)
Next
MsgBox Stat_Text

End Sub

Wow, danke! Hast Du das selbst geschrieben?

20 KWs pro Artikel????

Stonebrands hat geschrieben:Wow, danke! Hast Du das selbst geschrieben?

Ja, ich verbreite keine Raubkopien.

Funktioniert's denn wie gewünscht?

Konnte es bisher nicht testen, da mir die Zeit fehlte und leider auch nicht weiß wie das mit den Makros funktioniert.

In den Word-Optionen unter "Häufig verwendet" "Entwicklerregisterkarte in der Multifunktionsleiste anzeigen" aktivieren.
In dem "neuen" Menü "Entwicklertools" unter "Makros" einen beliebigen Makronamen eingeben (zweckmäßigerweise "CountKeywords") und auf "Erstellen" klicken. Dort hinein den Code kopieren. Speichern nicht vergessen! Mit dem grünen Pfeil nach rechts kannst Du das Makro starten.
Wenn das Makro erst einmal eingerichtet ist, lässt es sich auch über "Makros", "CountKeywords", "Ausführen" starten.
Komfortabler ist es, über die Word-Optionen unter "Anpassen" "Befehle auswählen" "Makros" das Makro in das rechte Fenster zu ziehen. Dann ist es in der Icon-Leiste oben immer präsent.

Hinweise finden sich auch hier unter "Schaltfläche verknüpfen" und "Symbol anpassen":
=> https://officewissen.net/schaltflaeche- ... einrichten

Meinst Du z. B. sowas wie Proton zum dateiübergreifenden Suchen und Ersetzen? Gibts als kostenlosen Download im Netz.

Ich kann dir das Tool hier empfehlen:
https://www.elexpress.de/tools/?tool=keyword_density
Da schmiesst du deinen Texyt rein, sagst dem System welches deine Keywords sind und es zeigt dir dann in welcher Dichte das jeweilige Keyword vorhanden ist.

Aber einen Text auf 20 Keywords zu optimieren halte ich für fst unmöglich. Entweder muss der Text ewig lang sein oder er ist so ziemlich unleserlich.

VG