Save as txt : How to detect if Unicode encoding is required?

macropod · #3 11-20-2018, 01:56 PM

VBorNotVB: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had. See your edited post.

Looping through every character in a document is slow and unnecessary - excruciatingly so when every character is unnecessarily selected. In any event, testing whether characters fall in ASCII range 0-127 says nothing about whether they're Unicode; they might also be characters that fall in ASCII range 128-255!

Instead, try something based on:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  With .Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[^1-^255]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
  i = Len(.Range.Text) - .InlineShapes.Count
  .Undo
End With
If i > 1 Then
  MsgBox "Document contains Unicode characters."
Else
  MsgBox "Document contains only ASCII characters."
End If
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro help - converting proprietary encoding to unicode, keep formatting	kmawhood	Word VBA	3	04-29-2016 04:06 PM
Does 'Save as Unicode text' equal UTF-8	Chayes	Excel	1	07-20-2012 03:07 AM
Custom Dictionary & Unicode encoding?	markus staubmann	Word	3	03-28-2012 05:23 AM
Save Word doc in unicode html (utf-8)	rybrns	Word	5	09-26-2011 02:18 PM
Unicode Encoding Type	Rose44	Excel	2	08-09-2009 09:05 PM