Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to Select a variable range in Word
Message
From
20/03/2004 11:33:43
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
19/03/2004 20:38:14
Peter Wagner
Point Informática Ltda.
Limeira, Brazil
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00888137
Message ID:
00888212
Views:
11
>Im building many different strings in VFP (VFP_VAR1,VFP_VAR2,... ) and replacing it in Word.
>The string looks something like this:
>
>"a) Entrada de R$ %2.816,52 (Dois Mil Oitocentos e Dezesseis Reais e
>Cinqüenta e Dois Centavos )%% em %2 (Duas )%% parcelas %NÃO REAJUSTÁVEIS e SEM
>JUROS%%, sendo  a  primeira no valor de R$ %1.408,26%% no dia %15/03/2004%%, e a
>segunda no valor de R$ %1.408,26%% no dia %15/04/2004%%"
>
>Im replacing the text in Word this way..
>
>LOCAL oWord AS "Word.Application"
>IF TYPE("oWord") <> "O"
>	oWord = CREATEOBJECT("Word.Application")
>ENDIF
>
>oWord.VISIBLE = .F.
>loSelection = oWord.ActiveWindow.ActivePane.SELECTION
>loSelection.FIND.ClearFormatting()
>
>WITH loSelection.FIND
>	.TEXT              = "@@TEXT1"
>	.Replacement.TEXT  = ""
>	.Forward           = .T.
>	.WRAP              = wdFindContinue
>	.FORMAT            = .F.
>	.MatchCase         = .F.
>	.MatchWholeWord    = .F.
>	.MatchWildcards    = .F.
>	.MatchSoundsLike   = .F.
>	.MatchAllWordForms = .F.
>ENDWITH
>
>loSelection.FIND.TEXT  = "@@TEXT1"
>loSelection.FIND.Execute()
>loSelection.TypeText(TRIM(VFP_VAR1))
>loSelection.GOTO(3,1,1)
>
>
>So far its Ok, but after replacing those strings in Word I need to select ranges in those string where it starts with "%" and ends with "%%" to Format the text between "%" and "%%" to BOLD, and later remove "%" and "%%" from the document.
>
>Does someone knows how to select variable ranges in Word to do this ?
>
>Thanks in Advance
>
>Peter

Peter,
Why don't you use document variables or bookmarks instead.
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform