Macro to open files in folder and Save As if any bold, italics or underline in document

Hi, I'm trying to create a macro to browse through and open each of the documents in a folder and search for any bold, italics or underlined text in the document, in which case the file is to be saved with a different filename.

I have the code for browsing through the documents and for saving as, but don't know how to create the code (similar to an If statement with an OR I guess, but maybe With is more correct in this instance) to check if there is any bold, italics or underlined text in the document.

Thanks for any help!

Hi Paul, thanks for your prompt response. The rest of my code is actually from another post of yours so thanks!!

If there is at least one instance of either bold or italics or underline then the Save As is to apply.

Sorry I should have been more accurate and written "any" in place of "either" i.e. if there is at least one instance of any bold text or italicised text or underlined text then the Save As is to apply.

Adding a fixed string to the end of the current filename.

Current code is:

Sub FindBoldItalicsUnderlineandSaveAs ()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String, strDocNm As String, wdDoc As Document
strDocNm = ActiveDocument.FullName
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc")
While strFile <> ""
If strFolder & "\" & strFile <> strDocNm Then
Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)

'IF BOLD ITALICS OR UNDERLINE EXECUTE BELOW AND IF NOT JUST CLOSE DOCUMENT

With wdDoc
.SaveAs FileName:=strFolder & "\" & strFile & " - B,I,U”
.Close SaveChanges:=True
End With
End If
strFile = Dir()
Wend
Set wdDoc = Nothing
Application.ScreenUpdating = True
End Sub


Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function