Spark! Pro series 11th May 2023 Spiceworks Originals.Snap! - Decryptor, Moon Hopper, Sea Lions and Video Games, Real-Life Superpower Spiceworks Originalsįlashback: May 11, 1997: IBM's Deep Blue Beats World's Best Chess Player (Read more HERE.)īonus Flashback: May 11, 1984: Transit of Earth across the Sun as seen from Mars (Read.My next challenge is to change the script so that it will open, search and replace text in all the. The phone and email script is currently this: Set objDoc = ("S:\IT & Systems\Word Find & Replace\*.docx") So the name and title script is currently this: By doing this the script keeps the replacement text in the exact same formatting (all bold for phone and email, but not for name and title. What I have done for the moment is split it into two scripts, one that looks at and can change the name or title and then the other script looks at and can change the phone number or email. I am only modify the title in my draft of the script to see if it is working, however we would like to be able to alter the script to change anypart of the information we want to. = "Andrew Perkins" & vbCr & "Test Subject" & vbCr & "Telephone: 01604 630003" & vbCr & "Email: andrew.perkins" = "Andrew Perkins" & vbCr & "Corporate Director" & vbCr & "Telephone: 01604 630003" & vbCr & "Email: andrew.perkins" Set objDoc = ("S:\IT & Systems\Word Find & Replace.docx") Set objWord = CreateObject("Word.Application")
However when the script runs the text Telephone: 01604 630003 Email: andrew.perkins, is not in bold. The text it should then replace it with is: I have it working except that I need to make some of the text bold and I am not sure how to. I am writing a VBS to open Word documents and search them for a block of text and then replace it with a different block of text.
0 kommentar(er)
