El primer dia de la setmana el Copilot em proposa una macro complexa per a crear autotexts a partir d'una llista de paraules. Es veu que n'hi han versions de Word per a parar un carro i les SUB i les Function van avisant que hi poden haver errors i per això proposa alternatives. No funcionen, però regire un poc el Word que tinc instal·lat i trobe la instrucció correcta per a activar la creació dels autotexts. ¡Bingo!, i en pocs minuts, no ha segut cosa d'hores com en atres ocasions.

Inici positiu, doncs, tot tement que la cosa no anirà del tot bé cap al final, quan s'han de conxorxar uns diputats del parlament valencià per a continuar l'obra de l'inefable Mazón Guizot.

Hauria d'estar acabant la fitxa sobre l'expressió «amb perdó de la taula» que es sol considerar una originalitat del poeta Estellés —tot i que té precedents— i que alguns han convertit «amb perdó de taula», però em deixe dur pel relax que suposa aïllar-se dins de la ginmàstica cerebral d'anar pensant com fer anar les macros de Word que no t'acaben d'eixir —ni tan sols amb l'ajuda dels logaritmes augmentats, l'ia, eixa 'informació amuntegada' que confonem amb la inteŀligència.

Les macros de Word acaben eixint bé, encà que tinguen una sintaxi i uns procediments embolicats i millorables. En canvi, la realitat no té sintaxi, és com és, diria Takse mirant el paisatge humà amb què topa en l'ra, la realitat artificiosa en què vivim: cinc magistrats del tribunal suprem espanyol han decidit participar en el lawfare i, segons Martín Pallín (La Selva), 🔗 en un colp d'estat judicial. Hui, l'aniversari de la publicació del Tirant lo Blanch. Vaja.

Ara són les macros de Word que m'atrauen i m'absorbixen les hores, la vista i les neurones. Me se passa el temps volant mirant de resoldre consevol xorrà. Com que també en açò vaig pegant bots d'una idea a una atra, d'una macro a una atra, copiant d'ací i d'allà rutines que m'han funcionat o que trobe en la xarxa, relligant-les entre elles i mirant-les de prop sense quasi mai saber què he de vore quan la macro no ha funcionat, per què em diu que no està ben escrita o per què m'apareix l'error «5894» que ves a saber com he d'interpretar: «A matching cluster network for the specified IP address could not be found.»

Picant pedra en el teclat, això sí, no sé si amb tenacitat o amb contumàcia.

Com a continuació de les novetats informàtiques d'este mes, em canvien l'ordinador en la faena, perquè ha caducat el Windows xp i ara toca canviar al Windows 7. La novetat i el mareig més important, vaja, és el canvi de la configuració del Word. Cal dir que canvie des del Word 2002, que tinc molt adaptat a les faenes que faig. El canvi és d'eixos que dius: ¿calia realment marejar tant les coses? La lògica i les intuïcions de més d'una dècada se n'han anat al poal del fem i no acabe de vore per quin motiu han en Microsoft pensat que això era bo.
La grossa és la incompatibilitat d'autotexts^[*], que no és un simple entrebanc sentimental. Els de Windows l'han tornada a fer bona. Resulta que la versió nova no admet el format anterior i la conversió de la plantilla provoca la pèrdua dels autotexts. Hem de seguir avant, però no tirant la faena de vint anys al fem. ¿La solució? Amb l'editor del Visual Basic pots copiar les macros de la plantilla vella (.dot) a la nova (.dotm). I situes la plantilla vella en la carpeta «Inici» (o «Startup») que hi ha dins de la carpeta que conté la carpeta «Plantilles». Eixa farà anar els autotexts. (Amb la versió anterior del Word pots eliminar les macros de la plantilla vella per a no confondre't més avant. És un pas que encara no he fet.)
En fi, espere no trobar-me moltes més sorpreses aixina en el nou Word. (No sé si podré canviar el fons blanc de l'Explorador de Windows: no confie trobar fàcilment com fer-ho.)

A més del divendres de negre funcionarial de hui, ha estat un matí un poc desbaratat durant l'elaboració del butlletí (és a dir, el «Bolletí») de les Corts. Les respostes desordenades em conviden a fer una macro amb el Word per a apanyar l'ordenació i, ja posats, per a esmenar algunes cosetes més, com ara unes gracietes del programa Salt que es fa servir a tort (a dret, poc): Camps Devesa, que esdevé Campos Dehesa... En alguna comissió fan una declaració institucional. Es veu que hem d'agrair que la facen en valencià. Però el cas és que sentir «lloc a punt» ('posat a punt') et permet confirmar l'interés fingit que tenen pel valencià alguns polítics. Això ja no ho puc apanyar amb una macro.

Em pensava que no podria, però quasi a última hora aconseguixc que funcione la macro i, tot i que siga un poc pedestre i poc elegant, aconseguixc que transforme en tot el document els textos en superíndexs de Word al format html, és a dir, amb la inclusió dels codis ^... a banda i banda del text. Tenint en compte la calfamenta de cap que m'ha costat, l'he de deixar escrita:

With ActiveDocument.Content.Find
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Wrap = wdFindContinue
.Format = True
.Font.Superscript = True
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="^{"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Font.Superscript = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute
With Selection.Font
.Superscript = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="}"
Do While .Execute(Forward:=True) = True
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Wrap = wdFindContinue
.Format = True
.Font.Superscript = True
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="^{"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Font.Superscript = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute
With Selection.Font
.Superscript = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="}"
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Wrap = wdFindContinue
.Format = True
.Font.Superscript = True
End With
Selection.Find.Execute
Loop
End With

Segur que es pot millorar i deixar més neta de palla i brossa, però amb este primer esbós crec que ja puc fer la resta de macros de conversió de codis seguint el mateix procediment repetitiu d'inserció de codi i aplicant-hi les substitucions habituals.

D'altra banda, les oficines de la coalició Compromís que hi ha davant del riu, prop de les Corts, en València, han estat decorades amb uns codis ben eloqüents sobre el rostre dels polítics representats. Per sort, a voltes no compta tant la imatge que tenen o el vestit que lluïxen, sinó la faena que fan, encara que els sàpia mal als de les escopinyades de pintura.

He estat tota la setmana embolicat fent una macro que em resolguera la importació de la terminologia oberta del Termcat a un format assimilable del WordPress. Això m'ha fet reviscolar les convencions del Wordbasic i assimilar-ne algunes de Visual Basic, dos llenguatges que no he acabat mai de practicar correctament. Vaig fent artesanalment, però, i tinc la mà unflada de tant de teclejar.

Per exemple, la descoberta més grossa ha segut aconseguir que el Visual Basic fera un bucle que tinguera un punt d'escapament. La solució apareixia en una pàgina molt interessant per a estes coses (Word-VBA Code Samples) que m'ha resolt la qüestió. Vet ací una «meravella» (dins del meu estil barroer):

Dim NÚMERO
Dim Número_$
On Error GoTo -1: On Error GoTo eixir
NÚMERO = 144
On Error GoTo -1: On Error GoTo eixir

NÚMERO:
Do Until ActiveDocument.Bookmarks("\Sel") = _
ActiveDocument.Bookmarks("\EndOfDoc")
NÚMERO = NÚMERO + 1
Selection.Find.ClearFormatting
With Selection.Find
.Text = "1<"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

If Selection.Find.Found = True Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Número_$ = WordBasic.[LTrim$](Str(NÚMERO))
WordBasic.Insert Número_$
Else
Exit Do
End If
Loop
GoTo eixir

eixir:
WordBasic.MsgBox "C'est fini!", "Vaig dir", 16

Amb això, la macro canvia el número u (en el context «1<») pel número corresponent d'ordre del començament al final del document (he fet que comence amb el 145). Una obvietat per a molts, però, per a mi, una necessitat que no sabia com resoldre. Fins que he trobat el Zawawi, una referència per al futur, perquè supose que hauré de continuar amb les macros de Word, almenys mentres l'Open Office no done les mateixes facilitats de configuració.

Finalment, com podeu observar, vaig canviar el disseny del bloc fa uns dies (si no recorde malament, dilluns 11 de febrer del 2008). He posat per a arribar-hi una imatge que trobe molt agradable, que correspon al món que es veu des d'un lloc de la Bretanya que denominen la butte de César en francés (i no sé si tumiac en bretó).