Under Community Review

Set all table columns (except Target segment column) to ‘Do not check spelling or grammar’ in exported Bilingual review .docx files

Regarding the file exported via "Export for bilingual review", it would be super useful if everything except the target column was already set to "Do not check spelling or grammar".

That is, all these columns should be set to "Do not check spelling or grammar":

(1) Segment ID
(2) Segment status
(3) Source segment

This would make it much easier to run spelling & grammar check in MS Word immediately after exporting these files.

Michael 

Michael Beijer

  • Yes, please, that would be a great improvement

  • ... and/or to format them hidden (to be on the safe side). I have a word macro for that (see below) but it would be much faster if it could be done on Export.

    Sub PrepareForSpellcheck()
    '
    ' PrepareForSpellcheck Macro
    '
    '
        Application.ScreenUpdating = False

        ActiveDocument.TrackRevisions = False
        ActiveWindow.ActivePane.View.ShowAll = True
        With ActiveDocument.Tables(1).Range.Font
            .Hidden = True
        End With
        
        With ActiveDocument.Range
            'Selection.WholeStory
            .LanguageID = wdEnglishUK
            .NoProofing = True
        End With
        Application.CheckLanguage = False
        
        Dim row&, mycells As Range
        
        With ActiveDocument.Tables(1)
        For row = 2 To .Rows.Count
            With .Rows(row).Cells(4).Range
                .Font.Hidden = False
                .LanguageID = wdGerman
                .NoProofing = False
            End With
        Next
        End With
        ActiveWindow.ActivePane.View.ShowAll = False
        
        With ActiveDocument.Styles("Tag").Font
            .Hidden = True
        End With
        Selection.Find.ClearFormatting
        Selection.Find.Style = ActiveDocument.Styles("Tag")
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Replacement.Font.Hidden = True
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        
        ActiveDocument.TrackRevisions = True
        
        Application.ScreenUpdating = True

    End Sub