Domino 9 und frühere Versionen > ND6: Entwicklung

Import MS Word -> RT -> Stringmanipulation

<< < (2/2)

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
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete