Strip out Asian formatting (2002 SP-3)

Topic

New Reply

Is there a way to strip (Asian) Japanese language formatting out of adocument without losing all character and paragraph formatting? Find/Replace will not get rid of it.
Clark

Reply | Quote

Replies

Hi,

I’m assuming here that the problem is with asian double-byte characters, rather than a particular formatting of the document. In that case, the following macro might help. It deletes all double-byte characters from a document.

Sub Clear_Double-Byte()
Dim pRange As Word.Range, oChr
For Each pRange In ActiveDocument.StoryRanges
Do
For Each oChr In pRange.Characters
If Asc(oChr) AscW(oChr) Then oChr.Text = “”
Next
Set pRange = pRange.NextStoryRange
Loop Until pRange Is Nothing
Next
End Sub

To replace the double-byte characters with another character or a string, simply type the replacement text between the quote marks.

Cheers

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply | Quote

No, I’m afraid that didn’t fix it. I can clear out the Asian language formatting by stripping out everything (ctrl+spacebar), but I’d like to keep the italic formatting. I guess I can go back in and reapply the italics manually. Thanks for helping.
Clark

Reply | Quote

I once wrote a macro that would allow you to remove all manual formatting (or any selected manual formatting, such as italic) from a document. It doesn’t know anything about Asian Character formatting, but it wouldn’t be too hard to modify the macro in post 309,846 to do the job you want.

Unfortunately this PC doesn’t support Asian characters so I have no idea how to recognise them or deal with them.

StuartR

Reply | Quote