[VB] Word Automation

[Verwijderd]

Ik ben bezig met een template in WORD welke vanuit VB word gestart. De hele template werkt bijna goed, op een gegeven moment moet er een text met een vierkant omheen verschijnen. Dit heb ik op de onderstaande manier verkregen. Probleem is nu dat helemaal onder in de template hetzelfde vierkant weer verschijnt. Anybody knows the sollution?

code:

.borders.OutsideLineStyle = 1
.Font.Size = 8
.TypeText "Factuurnummer: "
.Font.Bold = True
.TypeText "<?=$factuurID+401230?>"
.Font.Bold = false
.Font.Size = 10
.InsertParagraph
.borders.OutsideLineStyle = 0

[Tukk]

Dit soort problemen ben ik in Word ook wel eens tegen gekomen.
Volgens mij heeft word dan nog iets in zijn geheugen hangen aan opmaak
waardoor je code niet geheel geeft wat je wil.

Mijn oplossing is altijd, het openen van een compleet nieuw word document. De oude template geheel selecteren. Ctrl-c en dan plakken in het nieuwe.

Hierdoor raak je de historie aan opmaak kwijt.

Excuses voor het niet geheel technisch verantwoorde antwoord, maar het helpt wel.

[Unifex]

Oeps iets te snel gereageerd , je werkte vanuit vb Word.
Maar dat zou in principe dacht ik ook met selections moeten werken.
Ik zal eens kijken of ik ergens wat relevants kan vinden,
sorry


Misschien kun je wat met onderstaande code, die zet een vierkant om een stuk text.

Succes


Dim oWordApp As Object

'Start a new instance of Microsoft Word
Set oWordApp = CreateObject("Word.Application")

With oWordApp

'Create a new document
.Documents.Add

'Add text to the document
.Selection.TypeText Text:="one"
.Selection.TypeParagraph
.Selection.TypeText Text:="two"
.Selection.TypeParagraph
.Selection.TypeText Text:="three"
.Selection.borders.OutsideLineStyle = 1


'Save the document
.ActiveDocument.SaveAs FileName:="c:\Doc1.doc", _
FileFormat:=0, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

End With

'Quit Word
oWordApp.quit

'Unload this form
Unload Me