|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Macro to save docx to doc that checks compatibility and converts content controls to static content.
This is the macro I have now :
Option Explicit Sub BAAR() Const strDrive As String = "D:\MIHAI\DOSARE\BAAR\" ActiveDocument.SaveAs2 strDrive & "raport" & ".docx" ActiveDocument.ExportAsFixedFormat OutputFileName:=strDrive & "raport" & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, From:=1, TO:=1, _ Item:=wdExportDocumentContent, _ IncludeDocProps:=True, _ KeepIRM:=True, _ CreateBookmarks:=wdExportCreateHeadingBookmarks, _ DocStructureTags:=True, _ BitmapMissingFonts:=True, _ UseISO19005_1:=False lbl_Exit: With Application .ScreenUpdating = False Do Until .Documents.Count = 0 .Documents(1).Close SaveChanges:=wdDoNotSaveChanges Loop .Quit SaveChanges:=wdDoNotSaveChanges End With Exit Sub End Sub I need to add code to convert the current docx file to a doc file with same name and also check compatibility and convert content controls to static content. Any ideas ? Thanks a lot. |
#2
|
||||
|
||||
If you save a docx document with content controls to Word 97-2003 doc format, content controls are converted to static text, as doc format doesn't support content controls.
It is difficult to see what the problem is here (and your macro in any case appears to save as PDF format, which is a different issue entirely). You can record a macro to save as Word 97-2003 format.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Hi man,
Thanks a lot for your reply. If I add this line into the code ActiveDocument.SaveAs2 strDrive & fisword & ".doc" it saves a copy of the docx word file as doc but it doesn't convert quickparts to text. How can I do that (save docx as doc file and convert quickparts to text) using code ? P.S. I also try what you said and record a macro but I got the same result - A converted doc file but with quickparts instead of text. |
#4
|
||||
|
||||
Telling a document to save with a filename ending with .doc doesn't actually MAKE it a Word 2003 doc format. The suffix is a rough indication of what the file type should be but doesn't actually control the file type in itself.
If your filename.doc still contains Content Controls then the actual filetype is probably docx or docm. If you want to change the filetype then you need to specify this Code:
ActiveDocument.SaveAs2 FileName:=strDrive & fisword & ".doc", FileFormat:=wdFormatDocument ' or ActiveDocument.SaveAs2 FileName:=strDrive & fisword & ".docx", FileFormat:=wdFormatXMLDocument
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#5
|
|||
|
|||
It works!
Thanks a lot man! |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Save as .docx without content controls (just the text that was written in them) | vitesse | Word VBA | 6 | 08-12-2022 02:01 AM |
Macro to unlock content controls | Catty | Word VBA | 7 | 03-18-2015 02:08 AM |
When content controls are deleted, my macro does not work as I would like. | harry.ayre | Word VBA | 2 | 02-23-2015 10:35 AM |
Word 2010 Macro Enabled Template with Content Controls | keen1598 | Word VBA | 7 | 01-29-2014 03:17 PM |
Macro to link 2 content controls | bortonj88 | Word VBA | 2 | 08-21-2012 06:24 AM |