Word goes Blury and transluent

mrgetz · #1 08-30-2022, 12:02 PM

Has anyone seen this or can explain why this happens in Office365 version of Word

The screen image is attached as PDF.

The document become unusable, I save it, close it and reopen it. Then about 5 minutes later or longer it is blurred out.

Windows 11, Office 365. Did not have this happen when there was a local copy of Word/Office

It appears the Office and Windows 11 can't seem to play nice and resolution is all out of wack.

macropod · #2 08-30-2022, 11:50 PM

It's possible the document has acquired some of corruption. Corrupt documents can often be 'repaired' by inserting a new, empty, paragraph at the very end, copying everything except that new paragraph to a new document based on the same template (headers & footers may need to be copied separately), closing the old document and saving the new one over it. With a mailmerge main document, you'd also need to re-connect to the data source and re-apply any filtering.

Similarly, corrupt tables (which the above process won't repair) can often be 'repaired' by:
• converting the tables to text and back again;
• saving the document in RTF format, closing the document then re-opening it and re-saving in the doc(x) format; or
• cutting & pasting them to another document that you save the document in RTF format, which you then close then re-open before copying them back to the source document – which the macro below automates; or

Do note that some forms of table corruption can only be repaired by the first method.

See also: How to troubleshoot damaged documents in Word - Office | Microsoft Docs

A basic 'table repair' macro is:

Code:

Sub TableRepair()
'Macro to repair damaged tables by saving each table in an RTF-format file, then
' reinserting the table from the RTF-format file into the source document.
Application.ScreenUpdating = False
Dim Rng As Range, i As Long, RTFDoc As Document, strPath As String
With ActiveDocument
  strPath = .Path & "\"
  For i = .Tables.Count To 1 Step -1
    Set Rng = .Tables(i).Range
    Set RTFDoc = Documents.Add(Visible:=False)
    With RTFDoc
      .Range.FormattedText = Rng.FormattedText
      .SaveAs2 FileName:="strPath & RTFDoc.RTF", Fileformat:=wdFormatRTF, AddToRecentFiles:=False
      .Close
    End With
    Set RTFDoc = Documents.Open(FileName:="strPath & RTFDoc.RTF", AddToRecentFiles:=False, Visible:=False)
    Rng.Tables(1).Delete
    With RTFDoc
      Rng.FormattedText = .Tables(1).Range.FormattedText
      .Close
    End With
    Kill "strPath & RTFDoc.RTF"
  Next
End With
Set Rng = Nothing: Set RTFDoc = Nothing
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Blury Excel Tables in Word	zachg18	Word	1	07-15-2013 11:10 PM