Word, change font for specific parts of a word document

[Michael1996]

Hi all,

i am trying to create a script, that replaces a placeholder text with numbers counting up in an existing word document. the doc multiple cells with the same placeholders twice in each cell. this works fine

 my code:

#include <Word.au3>
$WordObject=_Word_Create ()
$WordDocObject=_Word_DocOpen ($WordObject, "AveryMuster.doc")
$i = 0
$beginn = 3380001
While $i <= 51
_Word_DocFindReplace($WordDocObject, "platz", $beginn + $i, 1)
_Word_DocFindReplace($WordDocObject, "platz", $beginn + $i, 1)
$i =$i+1
WEnd

the doc

 

[Michael1996]

(posted to soon, here is the rest)

what it does :

 

after changing the placeholder to the specified number i want to change the upper line in each cell to a barcode-font (code 39), which i am having problems with. if i change the upper text in each cell to the barcode font beforehand, the script cant read it and starts the replacing with the second line in the first cell

what it does if i change the font beforehand:

i tried fiddeling around with "$sFontName = ..." but cant get it to do what i want

what i want (when scanning the barcode it reads the number below the barcode):

if you are wondering the doc is a form for stickers, i hope you can understand what i want

any ideas?

[water]

Please post the code you run.

[Michael1996]

#include <Word.au3>
$WordObject=_Word_Create ()
$WordDocObject=_Word_DocOpen ($WordObject, "AveryMuster.doc")
$i = 0
$beginn = 3380001
While $i <= 51
_Word_DocFindReplace($WordDocObject, "platz", $beginn + $i, 1)
_Word_DocFindReplace($WordDocObject, "platz", $beginn + $i, 1)
$i =$i+1
WEnd

[water]

Sorry, I missed the code you already posted in #1.

I suggest to replace _Word_DocFindReplace  with _Word_DocFind. _Word_DocFind returns the range of the found placeholder. You then can change the placeholder to your number and set the font of the range.
Something like (untested):

While $i <= 51
    ; Replace/format first placeholder
    $oRange = _Word_DocFind($WordDocObject, "platz", $beginn + $i, 1)
    $oRange.Text = $beginn + $i
    $oRange.Font.Name = "FontName" ; needs to be changed by you
    $oRange.Font.Size = 12         ; needs to be changed by you
    ; Replace second placeholder
    _Word_DocFindReplace($WordDocObject, "platz", $beginn + $i, 1)
    $i =$i+1
WEnd