Andreas Peter
2010-10-04 08:55:46 UTC
Hallo zusammen,
seit einigen Tagen plagt mich eine Anforderung, welche ich aktuell mit meinem sp?rlichen VBA-Wissen nicht l?sen kann. Ich schildere mal das Szenario:
Es gibt ein Manuskript, welches diverse Elemente hat: ?berschriften, Listen, Tabellen usw. Es gibt auch L?sungen zu Antworten. Diese L?sung liegt zwischen zwei Zeichen eingebettet. Da hei?t, ich muss die L?sung zwischen diesen beiden Zeichen extrahieren.
Es gibt jedoch auch ?berschriften, die ich auch ?berpr?fen muss, ob danach einen L?sung kommt.
F?r Tabellen verh?lt es sich ein wenig anders: Wenn ich in einer Tabelle eine L?sung gefunden haben, muss die gesamte Tabelle extrahiert werden.
Ich soll ein Script schreiben, welches mir ein neues Dokument ausgibt, wo die gesamten L?sungen mit ?berschriften und Tabellen aufgelistet sind. Dass schaffe ich noch :-)
Ein wenig habe ich schon gemacht :-)
sub test()
Dim doc As Document
Dim para As Paragraph
Dim rngSolution As Range
Dim temp As Range
Dim rngStart As String
Dim rngEnd As String
Dim findStart As String
Dim findEnd As String
Set doc = ActiveDocument
findStart = ChrW(9654)
findEnd = ChrW(9664)
For Each para In doc.Paragraphs
Set temp = para.Range
temp.Select
With temp.Find
.Text = findStart
While .Execute
temp.Start = temp.End
temp.End = temp.End - 1
Set rngSolution = doc.Range(Start:=temp.Start, End:=temp.End)
rngSolution.HighlightColorIndex = wdBrightGreen
Wend
End With
Next para
Meine aktuelle Herausforderung ist, dass ich nicht wei?, wie ich einen RANGE in einem Absatz mehrere Male setzen kann/neu definieren? Mit dem Code oben wird ab der ersten Fundstelle der gesamten Absatz markiert.
Ich hoffe, ich habe das Problem verst?ndlich beschrieben und jemand kann mir hier helfen. Ich w?re sehr dankbar.
Danke f?r das Lesen und eine eventuelle Antwort.
Andreas
Submitted via EggHeadCafe - Software Developer Portal of Choice
ASP.NET Caching Concepts
http://www.eggheadcafe.com/tutorials/aspnet/78de4d09-b013-48c0-8d4a-bedd68f675f5/aspnet-caching-concepts.aspx
seit einigen Tagen plagt mich eine Anforderung, welche ich aktuell mit meinem sp?rlichen VBA-Wissen nicht l?sen kann. Ich schildere mal das Szenario:
Es gibt ein Manuskript, welches diverse Elemente hat: ?berschriften, Listen, Tabellen usw. Es gibt auch L?sungen zu Antworten. Diese L?sung liegt zwischen zwei Zeichen eingebettet. Da hei?t, ich muss die L?sung zwischen diesen beiden Zeichen extrahieren.
Es gibt jedoch auch ?berschriften, die ich auch ?berpr?fen muss, ob danach einen L?sung kommt.
F?r Tabellen verh?lt es sich ein wenig anders: Wenn ich in einer Tabelle eine L?sung gefunden haben, muss die gesamte Tabelle extrahiert werden.
Ich soll ein Script schreiben, welches mir ein neues Dokument ausgibt, wo die gesamten L?sungen mit ?berschriften und Tabellen aufgelistet sind. Dass schaffe ich noch :-)
Ein wenig habe ich schon gemacht :-)
sub test()
Dim doc As Document
Dim para As Paragraph
Dim rngSolution As Range
Dim temp As Range
Dim rngStart As String
Dim rngEnd As String
Dim findStart As String
Dim findEnd As String
Set doc = ActiveDocument
findStart = ChrW(9654)
findEnd = ChrW(9664)
For Each para In doc.Paragraphs
Set temp = para.Range
temp.Select
With temp.Find
.Text = findStart
While .Execute
temp.Start = temp.End
temp.End = temp.End - 1
Set rngSolution = doc.Range(Start:=temp.Start, End:=temp.End)
rngSolution.HighlightColorIndex = wdBrightGreen
Wend
End With
Next para
Meine aktuelle Herausforderung ist, dass ich nicht wei?, wie ich einen RANGE in einem Absatz mehrere Male setzen kann/neu definieren? Mit dem Code oben wird ab der ersten Fundstelle der gesamten Absatz markiert.
Ich hoffe, ich habe das Problem verst?ndlich beschrieben und jemand kann mir hier helfen. Ich w?re sehr dankbar.
Danke f?r das Lesen und eine eventuelle Antwort.
Andreas
Submitted via EggHeadCafe - Software Developer Portal of Choice
ASP.NET Caching Concepts
http://www.eggheadcafe.com/tutorials/aspnet/78de4d09-b013-48c0-8d4a-bedd68f675f5/aspnet-caching-concepts.aspx