3

我正在尝试使用 Delphi 6 和 Word 2010 保存 Word 97-2003 文档 (.doc)。

在 Word 2010 之前一切正常

WordDoc.SaveAs(FileName := FileName, FileFormat := wdFormatDocument);

在哪里FileName := 'c:\doc.doc'

现在，Word 2010 出现了一个保存对话框，我不知道为什么。我已经尝试过新的 SaveAs2 方法

WordDoc.SaveAs2(FileName := FileName, FileFormat := wdFormatDocument, CompatibilityMode:= wdWord2003);

但结果相同。

奇怪，

WordDoc.SaveAs2(FileName := FileName, FileFormat := wdFormatDocumentDefault, CompatibilityMode:= wdWord2003);

工作正常，没有“另存为”对话框，但保存的文件具有 Word 2010 格式和 .doc 扩展名，这会混淆旧的 Word 版本。

那么，有什么想法可以在不弹出“另存为”对话框的情况下使用 Word 2010 以旧文档 Word 格式保存文件吗？

4

2 回答 2

2

@David Heffernan：好吧，编写一个简短的演示程序解决了我的问题。

原始程序打开一个 *.mhtml 文件并尝试将其转换为 doc 格式。我遇到了问题。创建新文档时，您可以将其保存为任何格式而不会出现问题。这使我认为问题可能是我从非本地格式保存到了另一种非本地格式。

因此，我的解决方案是将其保存两次：首先以本机格式保存，然后以旧格式保存：

procedure SaveDocFile(WordDoc: Variant; FileName: string);
const wdFormatDocumentDefault=16;
begin
  WordDoc.ActiveWindow.View.Type := wdPrintView;
  if WordDoc.Application.Version='14.0' then
  begin
    WordDoc.SaveAs2(FileName := FileName, FileFormat := wdFormatDocumentDefault);
    WordDoc.SaveAs2(FileName := FileName, FileFormat := wdFormatDocument);
  end
  else
    WordDoc.SaveAs(FileName := FileName, FileFormat := wdFormatDocument);
end;
于 2013-01-24T09:47:57.417 回答
0

文件格式的常量列表： 

wdFormatDocument                    =  0
wdFormatDocument97                  =  0
wdFormatDocumentDefault             = 16
wdFormatDOSText                     =  4
wdFormatDOSTextLineBreaks           =  5
wdFormatEncodedText                 =  7
wdFormatFilteredHTML                = 10
wdFormatFlatXML                     = 19
wdFormatFlatXMLMacroEnabled         = 20
wdFormatFlatXMLTemplate             = 21
wdFormatFlatXMLTemplateMacroEnabled = 22
wdFormatHTML                        =  8
wdFormatPDF                         = 17
wdFormatRTF                         =  6
wdFormatTemplate                    =  1
wdFormatTemplate97                  =  1
wdFormatText                        =  2
wdFormatTextLineBreaks              =  3
wdFormatUnicodeText                 =  7
wdFormatWebArchive                  =  9
wdFormatXML                         = 11
wdFormatXMLDocument                 = 12
wdFormatXMLDocumentMacroEnabled     = 13
wdFormatXMLTemplate                 = 14
wdFormatXMLTemplateMacroEnabled     = 15
wdFormatXPS                         = 18
wdFormatOfficeDocumentTemplate      = 23
wdFormatMediaWiki                   = 24
于 2013-07-09T12:23:53.227 回答