Markierten Text jeweils in eigenständige Textboxes extrahieren

01/10/2009 - 16:24 von Alexander | Report spam
Hallo ich habe ein bestehendes Word-dokument indem ich mir Textpassagen
markiere. Diese Textpassagen sollen in einzelne Textboxes geschrieben werden.

Derzeit realisiere ich die Textextraktion der markierten Bereiche über:

Sub ExtrahierterText()

Selection.HomeKey wdStory

For i = 1 To ActiveDocument.Characters.Count
With Selection
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If .Range.HighlightColorIndex = wdNoHighlight Then .Delete
.Collapse
direction:=wdCollapseEnd
End With
Next i

End Sub

Mir ist leider keine bessere Möglichkeit eingefallen die Überprüfung nach
unmarkiertem und markiertem Text zu realisieren. Habt ihr hierfür eine Idee?

Des weiteren weiss ich nicht wie ich diesen Text in eine Textbox bekommen
soll. Das anlegen der Textbox erfolgt über:

Sub Textbox()

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 100,
100).Select

End Sub

Es wàre schön, wenn ihr Lösungsansàtze für meine Probleme hàttet.

Alex
 

Lesen sie die antworten

#1 Thomas Gahler
03/10/2009 - 22:56 | Warnen spam
Hallo Alexander


Hallo ich habe ein bestehendes Word-dokument indem ich mir Textpassagen
markiere. Diese Textpassagen sollen in einzelne Textboxes geschrieben
werden.


Macht es einen besonderen Sinn, dass du zuerst alle Texte markierst und erst
am Schluss diese in Textboxen umwandelst. Spricht etwas dagegen die
Umwandlung gleich vorzunehmen (nur mit dem Cursor markieren und umwandeln)?

Muss unbedingt mit Highlight gearbeitet werden? Können wir nicht ein
besonder Formatvorlage (Typ Zeichen) für diesen Zweck verwenden, dann können
wir mittels .Find (Bearbeiten / Suchen) die Textstellen aufspüren.




Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP2), Office 2007 (SP2)

Ähnliche fragen