Find Jobs
Hire Freelancers

Modify a Visual Basic Macro For Microsoft Word

$10-30 AUD

Completed
Posted almost 8 years ago

$10-30 AUD

Paid on delivery
I am editing some Coptic text files written in a non Unicode fonts. I am converting the files to Unicode. the files I am editing is written using 3 fonts to represent pronounciation dialects. I want to create a macro to search and replace the non unicode characters with unicode ones. However, I want to be able to limit the search and replace to certain fonts. I tried to do it with normal macros, but the macro did not record the font choice that i do. The end result will be replacing the characters in one of the fonts (that had dialect marks built into the character) with a unicode character in addition to the dialect mark separately. Is there a way to modify the code below to make MS Word register that I want to limit the search and replace function to the characters written in a particular font? ` Sub aaaa() ' ' aaaa Macro ' ' [login to view URL] [login to view URL] With [login to view URL] .Text = "n" .[login to view URL] = ChrW(11419) & ChrW(769) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With [login to view URL] Replace:=wdReplaceAll End Sub `
Project ID: 10872847

About the project

6 proposals
Remote project
Active 8 yrs ago

Looking to make some money?

Benefits of bidding on Freelancer

Set your budget and timeframe
Get paid for your work
Outline your proposal
It's free to sign up and bid on jobs
Awarded to:
User Avatar
Hi, I am a software developer with experience building Macro routines for Office environments and I just checked your issue, maybe what you need to complement your code as follows: With [login to view URL] .Text = "n" ' Clear all previously set formatting for Find dialog box. .ClearFormatting ' Set font to Find for replacement. .[login to view URL] = "Times New Roman" ' Clear all previously set formatting for Replace dialog box. .[login to view URL] ' Set font to Replace found font. .[login to view URL] = "Arial" .[login to view URL] = ChrW(11419) & ChrW(769) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With [login to view URL] Replace:=wdReplaceAll Notice that the attribute ".[login to view URL]" is added to indicate that the search must be limited by only that font type. And the attribute ".[login to view URL]" could be added in case you are interested to change the original font type. Let me know your thoughts.
$25 AUD in 1 day
5.0 (3 reviews)
1.6
1.6
6 freelancers are bidding on average $30 AUD for this job
User Avatar
Hi, I am good at Word macros. I would like to understand the requirement more. Looking forward to discuss in detail. Hope, u r looking for only for particular fonts.
$60 AUD in 1 day
5.0 (80 reviews)
5.5
5.5
User Avatar
Hi there - My name is Paris. I've read your brief and can see that you'd like to have a Word template. I have 7 years’ experience designing and developing MS Office products. I am highly qualified for this project and would love to speak with you further about taking this project on. If you'd like to view my previous work, as well as feedback, take a look at my Freelancer Portfolio (https://www.freelancer.com/u/paris2785.html).
$23 AUD in 3 days
4.8 (36 reviews)
5.0
5.0
User Avatar
Hi, I have more than 3 yrs of experience in developing vba/macro application. Worked with Google Maps api for real time location sharing. Facebook, Twitter api integration is my expertise. I have been in software industry for more than 4 years and have good knowledge of JavaSe, JavaEe, MySQL, SQL, Android, PHP. Being new on freelancer I am bidding as low as possible but that does not mean that you have to compromise with work quality. I will offer best quality product with 100% client satisfaction. Please assign this to me and I will complete the work earlier than everyone and with less amount. Thanks
$30 AUD in 2 days
0.0 (0 reviews)
0.0
0.0
User Avatar
Respected Sir/Mam I am new Freelancer please give me opportunity to this work. i will complete work as soon as possible please give me opportunity
$15 AUD in 1 day
0.0 (0 reviews)
0.0
0.0

About the client

Flag of AUSTRALIA
Brisbane, Australia
5.0
41
Payment method verified
Member since Sep 24, 2012

Client Verification

Thanks! We’ve emailed you a link to claim your free credit.
Something went wrong while sending your email. Please try again.
Registered Users Total Jobs Posted
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Loading preview
Permission granted for Geolocation.
Your login session has expired and you have been logged out. Please log in again.