En aquest article explico com convertir marcadors visibles de plantilla de Word en camps de combinació MERGEFIELD mitjançant una macro de VBA i com verificar els resultats amb Alt+F9. També presento a Q2BSTUDIO com a proveïdor de solucions tecnològiques, especialistes en aplicacions a mida, programari a mida, intel·ligència artificial, ciberseguretat, serveis cloud aws i azure, serveis intel·ligència de negoci, ia per a empreses, agents ia i power bi.
Resum de la solució: la macro recorre una llista de claus utilitzades com a marcadors visibles a la plantilla, busca cada marcador escrit com <<clau>> al document i reemplaça cada ocurrència creant un camp de tipus MERGEFIELD amb el nom de la clau. D'aquesta manera la plantilla queda preparada per combinar amb dades externes.
Descripció de la macro en llenguatge natural i pseudocodi: iniciar Sub ReplacePlaceholdersWithMergeFields; declarar variables fldName com a Variant i rng com a Range; definir una matriu amb les claus utilitzades a la plantilla, per exemple date, dataYYYY, allCount, receiveCount, CitizenCount, CitizenApplyTypeOne, CitizenApplyTypeTwo, CitizenIsConvenientOneTwo, CitizenIsConvenientThree, CitizenIsConvenientFourFive, CitizenQesHandingEvalOneTwo, CitizenQesHandingEvalThree, CitizenQesHandingEvalFourFive, CitizenOverallSatisfactionOneTwo, CitizenOverallSatisfactionThree, CitizenOverallSatisfactionFourFive, LegalCount, LegalApplyTypeOne, LegalApplyTypeTwo, LegalIsConvenientOneTwo, LegalIsConvenientThree, LegalIsConvenientFourFive, LegalQesHandingEvalOneTwo, LegalQesHandingEvalThree, LegalQesHandingEvalFourFive, LegalOverallSatisfactionOneTwo, LegalOverallSatisfactionThree, LegalOverallSatisfactionFourFive, OrgCount, OrgApplyTypeOne, OrgApplyTypeTwo, OrgIsConvenientOneTwo, OrgIsConvenientThree, OrgIsConvenientFourFive, OrgQesHandingEvalOneTwo, OrgQesHandingEvalThree, OrgQesHandingEvalFourFive, OrgOverallSatisfactionOneTwo, OrgOverallSatisfactionThree, OrgOverallSatisfactionFourFive; recórrer cada clau a la matriu: establir rng a ActiveDocument.Content; configurar rng.Find amb el text <<clau>> i les opcions de cerca desitjades; executar Do While rng.Find.Execute i dins del bucle afegir rng.Fields.Add amb Type igual a wdFieldMergeField i Text igual al nom de la clau; col·lapsar rng al final i continuar fins que no hi hagi més coincidències; Next fldName; End Sub.
Notes pràctiques i verificació: després d'executar la macro els marcadors visibles <<nomCamp>> quedaran reemplaçats per camps MERGEFIELD al document. Per veure la sintaxi dels camps i comprovar que s'han creat correctament prémer Alt+F9 per alternar la vista de codis de camp. Si apareixen codis MERGEFIELD nomCamp significa que la conversió va ser exitosa.
Consejos de Q2BSTUDIO: si necessita automatitzar plantilles Word a gran escala, integrar la combinació de correspondència amb bases de dades o serveis cloud aws o azure, o enriquir els processos amb agents ia i solucions d'intel·ligència artificial per a empreses, el nostre equip pot desenvolupar programari a mida i aplicacions a mida que incloguin seguretat per disseny i dashboards a Power BI per a intel·ligència de negoci. Contacti amb Q2BSTUDIO per avaluar el seu cas i dissenyar una solució escalable i segura.
