Leider übersteigt die Word-Makroprogrammierung mein derzeitiges Knowhow. Ich muss es aber für meinen neuen Job irgendwie realisieren. Vielleicht kann mir jemand helfen?
Ich habe in einer Datei unterschiedliche Erklärungen, Bilder und Tabellen zu Produktversionen.
Beispiel:
Der Einschaltknopf bei der XY Maschine befindet sich rechts oben.
Der Einschaltknopf bei der XX Maschine befindet sich rechts unten.
Der Einschaltknopf bei der YY Maschine befindet sich links unten.
Nun soll ich je nach Bedarf nur die gewünschte Erklärung ausdrucken/sichtbar machen.
Meine Idee dazu: Ich setze vor und nach der entsprechene Erklärung einfach eine Art Code (ausgeblendet) die ich suchen, die Markierung erweitern und damit ausblenden kann.
#XYDer Einschaltknopf bei der XY Maschine befindet sich rechts oben.#XY
#XXDer Einschaltknopf bei der XX Maschine befindet sich rechts unten.#XX
#YYDer Einschaltknopf bei der YY Maschine befindet sich links untern.#YY
Das könnte ich vor Bilder und Tabllen genauso machen. Mein Problem: Ich bekomme die Schleife bis zum Dokumentende nicht hin.
Bisher habe ich das:
Sub TEST()
'
' Alle mit #XX gekennzeichneten Texte ausblenden
'
'
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.ShowAll = True
'Anfang Schleife - Ausstieg falls Dokumentende erreicht
Selection.Find.ClearFormatting
With Selection.Find
.Text = "#XX"
End With
Selection.Find.Execute
Selection.Extend
Selection.Find.ClearFormatting
With Selection.Find
.Text = "#XX"
End With
Selection.Find.Execute
With Selection.Font
.Hidden = True
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
'Ende Schleife
End Sub
|