Genau so mache ich das auch. Falls ich Sound einfüge, dann schiebe ich eine Takezeile vor mir her, damit die Nummerierung erhalten bleibt. Damit komme ich gut zurecht.
Skriptvorlage für MS Word
- Ersteller Nee
- Erstellt am
Mit Makros kann man relativ einfach Takes zählen.
1. Ich habe die Namen der Figuren als eigene Formatvorlage angelegt (der gesprochene Text, Musik, Sound sind eine andere Formatvorlage).
2. Diese wird automatisch nummeriert (ist für das Zählen aber nicht relevant)
3. Makro schreiben, dass die Formatvorlage XYName nach dem Figurennamen durchsucht und zählt
4. Diesem Makro mitgeben, das Ergebnis als kurze Liste darzustellen.
Funktioniert überraschend gut.
EDIT: Habs mal hier reingehauen. Das geht bestimmt auch geschickter, schlanker und hübscher, aber es erfüllt mir den Zweck.
1. Ich habe die Namen der Figuren als eigene Formatvorlage angelegt (der gesprochene Text, Musik, Sound sind eine andere Formatvorlage).
2. Diese wird automatisch nummeriert (ist für das Zählen aber nicht relevant)
3. Makro schreiben, dass die Formatvorlage XYName nach dem Figurennamen durchsucht und zählt
4. Diesem Makro mitgeben, das Ergebnis als kurze Liste darzustellen.
Funktioniert überraschend gut.
EDIT: Habs mal hier reingehauen.
Das geht bestimmt auch geschickter, schlanker und hübscher, aber es erfüllt mir den Zweck. Mein Skript:
Makro:
Alt + F11 Makros öffnen und Makro dort einfügen (man beachte meinen tollen Namen der Formatvorlage):
Sub CountNamesWithSpecificStyleAndInsert()
Dim NamesToFind As Variant
Dim WordCount As Long
Dim Rng As Range
Dim resultText As String
Dim i As Integer
Dim StyleToCheck As String
' Die Formatvorlage, die überprüft werden soll
StyleToCheck = "Kein Leerraum;Take"
' Liste der Namen, die gesucht werden sollen
NamesToFind = Array("Erzähler", "Lena Winter", "Max Fischer", "Kai Eilers", "Iris Klein", "Barbara Voigt", "Unbekannter Anrufer", „Radio-Moderatorin“, „Polizeikommissar Martin Berger“, „Robert Voigt“)
' Schleife, um jeden Namen zu durchsuchen
For i = LBound(NamesToFind) To UBound(NamesToFind)
WordCount = 0
Set Rng = ActiveDocument.Range
With Rng.Find
.Text = NamesToFind(i)
.Forward = True
.Wrap = wdFindStop
.Format = True ' Ermöglicht die Formatüberprüfung
End With
Do While Rng.Find.Execute
' Überprüfen, ob der gefundene Text die richtige Formatvorlage hat
If Rng.Style = StyleToCheck Then
WordCount = WordCount + 1
End If
Loop
' Text für das Ergebnis erstellen
resultText = NamesToFind(i) & " - " & WordCount & " Takes"
' Einen neuen Absatz mit dem Ergebnis am Ende des Dokuments einfügen
ActiveDocument.Content.InsertAfter vbCrLf & resultText
Next i
End Sub
F5 zum Ausführen
Ergebnis (Ausschnitt):
Makro:
Alt + F11 Makros öffnen und Makro dort einfügen (man beachte meinen tollen Namen der Formatvorlage):
Sub CountNamesWithSpecificStyleAndInsert()
Dim NamesToFind As Variant
Dim WordCount As Long
Dim Rng As Range
Dim resultText As String
Dim i As Integer
Dim StyleToCheck As String
' Die Formatvorlage, die überprüft werden soll
StyleToCheck = "Kein Leerraum;Take"
' Liste der Namen, die gesucht werden sollen
NamesToFind = Array("Erzähler", "Lena Winter", "Max Fischer", "Kai Eilers", "Iris Klein", "Barbara Voigt", "Unbekannter Anrufer", „Radio-Moderatorin“, „Polizeikommissar Martin Berger“, „Robert Voigt“)
' Schleife, um jeden Namen zu durchsuchen
For i = LBound(NamesToFind) To UBound(NamesToFind)
WordCount = 0
Set Rng = ActiveDocument.Range
With Rng.Find
.Text = NamesToFind(i)
.Forward = True
.Wrap = wdFindStop
.Format = True ' Ermöglicht die Formatüberprüfung
End With
Do While Rng.Find.Execute
' Überprüfen, ob der gefundene Text die richtige Formatvorlage hat
If Rng.Style = StyleToCheck Then
WordCount = WordCount + 1
End If
Loop
' Text für das Ergebnis erstellen
resultText = NamesToFind(i) & " - " & WordCount & " Takes"
' Einen neuen Absatz mit dem Ergebnis am Ende des Dokuments einfügen
ActiveDocument.Content.InsertAfter vbCrLf & resultText
Next i
End Sub
F5 zum Ausführen
Ergebnis (Ausschnitt):
Zuletzt bearbeitet:
Hallo miteinander. Es sollte noch in einem meiner alten Beiträge das alte Normal.dot herumliegen. Damit lässt sich ebenfalls alles in Word machen. Ist halt schon ein wenig alt das Ding. Hilft aber ungemein beim Schreiben. Ich habe es mal hier reingepackt. Vielleicht lassen sich die Makros ja auch zusammenführen...
Hinweis zum Nutzen: Das ist eigentlich kein .doc-File. Ich konnte es aber nicht anders hochladen. Benennt bitte AudioScript.doc in AudioScript.dot um, packt es in den Word-Vorlagenordner und dann kann man es schon benutzen. Hoffe ich zumindest. Ich habe es beim aktuellen Word noch nicht wieder ausprobiert.
Hinweis zum Nutzen: Das ist eigentlich kein .doc-File. Ich konnte es aber nicht anders hochladen. Benennt bitte AudioScript.doc in AudioScript.dot um, packt es in den Word-Vorlagenordner und dann kann man es schon benutzen. Hoffe ich zumindest. Ich habe es beim aktuellen Word noch nicht wieder ausprobiert.
