Import MS Word -> RT -> Stringmanipulation

[Sorehead]

Hallo!

Ich brauche mal Eure Hilfe.

Ich muss einen Import aus MS Word machen. Dieser Import (über die Zwischenablage) landet in einem Richtext-Feld. Nun muss ich diesen Text nach chr(10) und chr(13) durchsuchen und ein paar Manipulationen machen. Bei dem Versuch den Feldinhalt per "FieldGetText" zu extrahieren, geht ja die gesamte Formatierung verloren. Weiß jemand ne andere Lösung?

Ich muss den Text mit Formatierung also in eine Variable in Script haben.

Vielen Dank schonmal im voraus...

Gruß, Sascha Meyer

[Axel]

Hi,

schau dir mal die neuen Klassen für Richtext-Felder in der Designer-Hilfe an.

Insbesondere die FindAndReplace - Methode aus der Klasse NotesRichTextRange. Damit müsste das eventuell machbar sein.


Axel

[Sorehead]

Nein, das geht nicht, da ich in verschiedenen Schleifen nach chr(10) und chr(13) suche und bestimmte Textteile währenddessen lösche..

Der Code siht ungefähr so aus..

Code

paragraph = uidoc.FieldGetText("Stellungnahme") + Chr(13) + Chr(10)
	i = 1
	While i <8 
		If Left(paragraph,1) = Chr(10) Then
			i = i +1
		End If
		paragraph = Right(paragraph,Len(paragraph)-1)
	Wend
	For i =1 To Len(paragraph)
		yat2 = Mid(paragraph,i,1)
		If yat2 = Chr(9) Then
			yat = yat + "    "
		Else
			If yat2 = Chr(13) Then
				yat = yat + Chr(13)
			Else
				yat = yat + yat2
			End If
		End If
	Next i
	Call uidoc.FieldSetText("Stellungnahme",uidoc.FieldgetText("Stellungnahme") + yat)

[Axel]

Hi,

dann versuch's doch mal mit notesRichTextItem.GetFormattedText.


Axel

[koehlerbv]

GetFormattedText liefert auch nur plain text. Ist etwas ungeschickt benamst, diese Routine ..

Bernhard

[Axel]

Bis du dir da sicher? Die Hilfe sagt nämlich was anderes.

Axel

[koehlerbv]

Die Hilfe sagt gleich einleitend: "Returns the contents of a rich text item as plain text."

Ab R6 gibt es aber nun auch eine Methode mit passenderem Namen "GetUnformattedText" 

Bernhard

[Sorehead]

So, habe das jetzt auf der Seite von Word gemacht...

Code

Sub manipulateString(WordApp As Variant)
'Nachbau der Selektion aus dem Access-Script
'Es werden bestimmte Absätze der Stellungsnahme verworfen
	
	Dim i As Integer
	
	'Tabstopps durch 4 Leerzeichen ersetzen
	Call WordApp.Selection.goto( 3,1) 'What:=wdGoToLine, Which:=wdGoToFirst
	With WordApp.Selection
		'Parameter
		.Find.Text = Chr(9)
		.Find.Replacement.Text = "    "
		.Find.Forward = True
		.Find.MatchCase = False
		.Find.MatchWholeWord = False
		.Find.MatchWildcards = False
		.Find.MatchSoundsLike = False
		.Find.MatchAllWordForms = False
		
		While .Find.Execute()
			'alles ersetzen
		Wend
		
		'Die ersten 7 Absätze nicht Markieren
		Call WordApp.Selection.goto( 3,1) 'What:=wdGoToLine, Which:=wdGoToFirst
		'Parameter
		.Find.Text = Chr(13)
		.Find.Replacement.Text = ""
		.Find.Forward = True
		.Find.MatchCase = False
		.Find.MatchWholeWord = False
		.Find.MatchWildcards = False
		.Find.MatchSoundsLike = False
		.Find.MatchAllWordForms = False
		
		For i = 1 To 7
			Call .Find.Execute()
			Call .MoveRight(1,1,0) ' unit:=wdCharacter, count:=1, extend:=wdMove
		Next
		Call .MoveDown(7,10,1) 'Unit:=wdScreen, Count:=10, Extend:=wdExtend
		Call .EndKey(5,1) ' Unit:=wdLine, Extend:=wdExtend
		
	End With
	
End Sub