wdFormatDocument97格式的Word文档SaveAs2
wdFormatDocument97格式是指Microsoft Word中的一种文档格式，它是Word 97版本的文档格式。SaveAs2是Word VBA中的一个方法，用于将当前文档另存为指定格式的文档。
该方法的语法如下：
expression.SaveAs2(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)参数说明：
- FileName：要保存的文件名，可以包含完整的路径。
- FileFormat：要保存的文件格式，对于wdFormatDocument97格式的Word文档，可以使用常量值为0的参数。
- LockComments：是否锁定批注，默认为False。
- Password：文档的密码，默认为空。
- AddToRecentFiles：是否将文件添加到最近使用的文件列表中，默认为True。
- WritePassword：写入文档所需的密码，默认为空。
- ReadOnlyRecommended：是否建议以只读模式打开文档，默认为False。
- EmbedTrueTypeFonts：是否嵌入TrueType字体，默认为False。
- SaveNativePictureFormat：是否以原生图片格式保存，默认为False。
- SaveFormsData：是否保存表单数据，默认为False。
- SaveAsAOCELetter：是否将文档保存为AOCE信函格式，默认为False。
- Encoding：文档的编码方式，默认为0。
- InsertLineBreaks：是否插入换行符，默认为True。
- AllowSubstitutions：是否允许替换字体，默认为True。
- LineEnding：文档的行尾标记，默认为0。
- AddBiDiMarks：是否添加双向文本标记，默认为False。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云移动开发（Mobile）：https://cloud.tencent.com/product/mobile
- 腾讯云数据库（TencentDB）：https://cloud.tencent.com/product/cdb
- 腾讯云区块链（Blockchain）：https://cloud.tencent.com/product/baas
- 腾讯云游戏多媒体引擎（GME）：https://cloud.tencent.com/product/gme
请注意，以上链接仅供参考，具体的产品选择应根据实际需求进行评估和选择。
相关·内容
2回答
我正在尝试将文件另存为PDF。我的原始代码可以保存为word文档。
Imports Word = Microsoft.Office.Interop.Word
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim objDoc As Word.Document = objWordApp.Documents.Open(appPath & "\PackListTemplate.dotm", [
浏览 28提问于2017-02-08得票数 0
我正在尝试使用Delphi6和Word 2010保存Word 97-2003文档(.doc)。
在Word 2010之前，一切工作正常
WordDoc.SaveAs(FileName := FileName, FileFormat := wdFormatDocument);
where FileName := 'c:\doc.doc'
现在，Word 2010显示了一个保存对话框，我不知道为什么。我尝试过新的SaveAs2方法
WordDoc.SaveAs2(FileName := FileName, FileFormat := wdFormatDocument, Compat
浏览 4提问于2013-01-24得票数 3
回答已采纳
1回答
我正在开发Microsoft Word文档中的自定义色带。我打算通过禁用保存功能并以编程方式保存文档，从而覆盖保存功能。
我添加了DocumentBeforeSave事件处理程序来保存文档。下面是保存文档的代码的一部分
private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
Globals.ThisAddIn.Application.DocumentBeforeSave += new Word.ApplicationEvents4_DocumentBeforeSaveEventHandler(this.A
浏览 8提问于2022-09-07得票数 0
我使用Microsoft Interop Word版本15.0.0.0来创建一个新的Word文档，在其中插入一些文本，然后保存它。
当我使用以下命令保存它时：
document.SaveAs2(wordFilePath);
文档以DOCX格式保存。
但是当我使用以下命令保存它时：
document.SaveAs2(wordFilePath, Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatDocument97);
文档看似保存为Word-97 DOC (Windows资源管理器显示为Word-97 DOC图标和类型)，但它实际上在内部保存为
浏览 13提问于2016-07-21得票数 1
回答已采纳
我有一个处理Word、PowerPoint和Excel文档的应用程序。在处理每个文档之后，我调用SaveAs方法(或SaveAs2)。换句话说，我将DisplayAlerts设置为wdAlertsAll。我从未看到对话框询问是否要覆盖文档。在调用SaveAs2之前，我添加了一些代码来获取alsert级别，这就是wdAlertsAll。但是，我没有看到任何留言框。如果我运行Word并打开相同的文件并将其保存到与我的应用程序相同的位置，对话框就会出现。
对于PowerPoint，我也有同样的问题，我将级别设置为ppAlertsAll。
我对Excel也做了同样的事情.效果很好。我是在做救济金之前被
浏览 18提问于2022-09-13得票数 0
使用Microsoft.Office.Interop.Word命名空间。
Document.SaveAs2方法不接受作为第一个参数的路径。
if (saveFileDialog_Docx.ShowDialog() != DialogResult.Cancel)
{
string originalPath = Directory.GetCurrentDirectory();
string dirpath = Path.Combine(originalPath, saveFileDialog_Docx.FileName);
//lbl_test.Text = dirpath
浏览 3提问于2021-11-15得票数 0
回答已采纳
1回答
Public Sub WordFindAndReplace()
Dim wrdApp, wrdDoc
Dim ws As Worksheet, msWord As Object, itm As Range
Dim sFolder As String
Dim filename As String
Dim Path As String
Path = "C:\Rohan\Automations\CM Plan Automation\Upload\"
filename = Range("C4"
浏览 3提问于2022-02-18得票数 -1
回答已采纳
def convert_to_word():
target = pwd + "/open.doc"
source = pwd + "/template.html"
pythoncom.CoInitialize()
app = win32com.client.Dispatch("Word.Application")
pythoncom.CoInitialize()
# try:
app.Documents.Open(source)
app.Documents.SaveAs2(ta
浏览 100提问于2020-06-28得票数 0
我写了下面的代码使用VBA创建一个空白的MS Word文档与给定的编号。页数。VB函数运行得很好，但问题是，当它运行时，尽管使用了wordApplication.Visible = False，它还是会在前台弹出MS Word。因为这个函数需要在一个for N no循环中调用。在文档中，Word屏幕的重复闪烁对用户来说变得非常烦人。
有没有解决这个问题的办法？是否可以将应用程序发送到后台，这样它既不会出现在前面，也不会出现在任务栏中，用户可以在没有分心的情况下顺利地进行工作。
Function CreateEmptyDoc(lngPages, strNewFile)
Dim wordAppl
浏览 6提问于2020-02-18得票数 0
我有一个Perl脚本，可以将Word文档保存为HTML文档。下面的代码可以工作： use strict;
use Win32::OLE::Const 'Microsoft Word';
[...]
$go_word_doc->SaveAs2({
FileName => $gs_html_name,
FileFormat => wdFormatFilteredHTML
}); 为了将输出文件编码为UTF-8格式，我将我的命令转换为： $go_word_doc->SaveAs2({
FileName => $gs_ht
浏览 10提问于2019-05-07得票数 0
我有一个旧的Word宏，它应该通过调用
DocTitle = ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
或
Set oBuiltInProps = ActiveDocument.BuiltInDocumentProperties
strValue = oBuiltInProps.Item("Title").Value
对于新文档，这是在调用SaveAs (我也尝试了SaveAs2)之后完成的，它用于确保文档的第一句话填充了Documenttitle属性。然而，这似乎不再起作用，我只得到一个
浏览 2提问于2012-10-08得票数 0
我试图使用两个库(DescsTool和R2wd)来获得保存在文件夹中的数据集的描述性分析，以便稍后进行探索。这些是我正在尝试的步骤。
library(DescTools)
library(R2wd)
data(iris)
i <- ls()
wrd <- GetNewWrd(header=TRUE)
wdGet()
Desc(get(i), plotit=TRUE, wrd=wrd)
wdSave(Name="temp.doc", wdapp=.R2wd)
wdQuit()
虽然word正在按预期的方式捕获输出，但我无法保存给出名称的word文件(例如:
浏览 1提问于2014-12-16得票数 0
回答已采纳
我想要实现的是使用Save函数在两个地方保存一个Word文档。不过，它有两个缺点。首先，当我保存一个文件时，Word会闪烁(因为它关闭保存一个副本，然后它变成活动文档，该文档被关闭，然后Word返回到原始文档)。其次，宏将我的备份添加到最近的文件中，尽管有AddToRecentFiles:=False，但是如何避免两个错误呢？
Sub FileSave()
Dim currFile As String
Dim backup As String
backup = "C:\Users\" & Environ("UserName") & "\D
浏览 2提问于2016-01-03得票数 0
从excel导出数据后，我尝试更新word文档中的标题字段。 这是我正在尝试的： Dim wd As Word.Application
Dim wdDoc As Word.Document
Set wd = New Word.Application
Set wdDoc = wd.Documents.Open(ThisWorkbook.Path & "\Template_rapportfusion.docx ")
[... my code for export data ...]
'Update fields
wdDoc.Fields.Update
&
浏览 13提问于2021-04-22得票数 0
许多用户，包括我自己，开始编辑Word文档，创建新的Word文档，并希望将第二个文档保存在与第一个文档相同的目录中。这是诸如emacs之类的编辑器中的默认行为。遗憾的是，Word 2013让我选择了我希望保存新文件的目录(“文件夹”)，这迫使我在各种网络文件夹中进行选择，然后选择多个子目录，然后才能到达包含我的第一个文档的目录。我曾经有一个简单的VBA脚本，它可以找到第一个文件的目录，然后将新文件保存在该目录中，或者至少它会将第一个文件的目录设置为保存文件的默认目录。有没有人有代码来做我要找的东西？谢谢!
浏览 0提问于2017-08-16得票数 0
2回答
我正在使用vba宏，它工作得很好，但我需要将文档保存为.pdf。
我在找小费，但我不知道如何找到它们。上一次我找到了这个解决方案：，但我不知道将它应用到宏中。
这是我的代码：
Sub RunMerge()
Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("
浏览 8提问于2015-10-30得票数 1
回答已采纳
正如标题所述，我在编译时收到了这个错误：
我的代码：
Sub PasteToWord()
Range("A1").Select
Do Until IsEmpty(ActiveCell)
Dim AppWord As Word.Application
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
Sheets("Sheet1").Range(ActiveCell).Copy
AppWord.Docu
浏览 0提问于2015-09-22得票数 1
回答已采纳
2回答
我已经构建了一个access数据库，该数据库填充一个表，然后打开几个Word邮件合并模板，生成合并的文档并保存它们。代码的相关部分获取或创建Word应用程序对象，以文档对象的形式打开合并模板，运行邮件合并，并关闭模板。然后，它查找合并输出，使活动文档保存为(遵循文件化模式)，并关闭它。然后，如果没有打开其他文档，则退出Word，并释放文档和应用程序对象。
在上周安装的MS更新之后，所有这些都能工作一次，但是在第二次运行中，生成的合并文档在成为活动文档后停止响应。我很难在谷歌上找到解释或解决办法，却没有运气。有人有什么想法吗？
相关守则：
On Error Resume Next
Set obj
浏览 7提问于2021-09-20得票数 2
回答已采纳
在我输入了Word文档(在我的例子中是诊所记录)之后，我运行下面的VBA来自动保存PDF和文档的Word副本。
文件名包含：
日期+文档中的前两个单词。(例如，"2022-07-11蒂莫西·道尔顿“)
我希望文件名包含：
日期+文档中“病人姓名：”后面的前两个单词。
所以,
目前，我需要文件的前两个词作为病人的名字。在(希望)修改VBA代码之后，我将能够编写一个更恰当的开头：
亲爱的博士，
很高兴见到蒂莫西·道尔顿先生来我的诊所。详情如下：
病人名称:蒂莫西·道尔顿
年龄: 125岁
性别:男性
.
..。
..。
.
.
由衷地，
是的医生。
当前代码：
Sub PDF_Sv_An
浏览 4提问于2022-07-10得票数 0
我想用值填充一个单词，并多次导出到pdf。
如果是第一次使用SaveAs2，它就会生成pdf，但第二次或第三次就不起作用了。
'ActiveDocument.SaveAs2 FileName:="C:\alap\" & fajlneve & ".pdf", FileFormat:=wdFormatPDF
如果我使用CutePDf打印机，结果是一样的，第一次i=1它工作，第二次它不工作。
Public compname As String
Public filename As String
Function FillwordForm()
浏览 5提问于2017-02-08得票数 1
2回答
我想安排我在微软word中动态创建的文档，就像整个文本对齐(右侧和左侧)。但是当Word Open方法还是Word SaveAs2方法时，我应该这样做吗？我在mirosoft网站上查找了整个文本对齐(左对齐和右对齐)的方法，但除了段落对齐之外什么都看不到。我不想要段落对齐当我在ms word中打开文档时所有的单词范围将被对齐打开方法：和对于SaveAs2方法所有这些方法都不包含用于对齐的'ref对象‘
例如我编写的以下代码；不包含用于对齐整个文本的ref对象
object Unknown=Type.Missing;
object Source=(File Source Destiny)
浏览 11提问于2014-09-06得票数 0
情景:我在Visual Foxpro9中通过OLE (COM)在Word中制作了一个文档。在过去的几年里一直在运行。已移至新PC (W7Pro)和Word 2013。在运行时版本中，oWord.SaveAs2(...)被跳过，没有任何错误。在开发版本中，它运行正常。
通过在Word中移动SaveAs2，我得到了一个错误，它被证明是路径中的一个错误，因为存储路径的内存文件在运行时版本中没有正确传输。
大概花了8个小时。我知道这不是一个问题，但无论如何我都想报告它。
在此过程中，我找不到一种方法来使用.run方法将参数从VFP9传递给normal.dotm中的函数或sub。只能在没有参数的情况下调
浏览 3提问于2015-04-03得票数 0
我有一个access-vba应用程序，它也使用了word。在我的本地机器上运行应用程序时，它运行得很好。一旦移动到其他(相同版本的access和word)，当涉及到word的vba部分时，它就会崩溃。例如，document.open或.saveas2等命令失败:例如，Method 'SaveAs2' of object failed。
我还注意到，我在应用程序中引用的库是任何其他最终用户所必需的。我习惯于使用库进行编译，从那时起，它们总是包含在..jar/..exe/etc中，但是，当您将应用程序移到其他计算机时，它总是试图重新编译吗？
我对VBA不太熟悉，所以我推测我失败的w
浏览 3提问于2013-11-18得票数 0
回答已采纳
2回答
我发现了大量关于创建word文档的实例，插入各种文本和格式的有用文档，但在任何地方都找不到任何东西来保存尚未以编程方式创建和打开的文档。
本质上，我想创建一个docx文件，并用富文本框中的文本填充它。使用我在找到的代码，如果我首先创建一个文档，我就能够做到这一点。但是，尽管有人建议使用_document.SaveAs() (它并不存在--我猜是版本不同)或.Save()，如果文件不存在，应该会用一个SaveAs对话框进行提示，但我总是得到一个类型不匹配的错误。因此，如果我预先创建了要使用的文件，则以下是工作代码：
OpenFileDialog SDO = new OpenFileDialog(
浏览 13提问于2017-07-03得票数 7
回答已采纳
我有一个保存了多个word文档的excel工作表，我想以编程方式将它们从excel嵌入文档保存到驱动器中。我使用了一些我在这里找到的代码，并试图添加一个循环，让它遍历每个文档并保存，但在循环完成之前就出错了。代码如下：
Sub aaSaveEmbedded1()
Application.ScreenUpdating = False
i = 1
Do Until i = 10
Dim num As String
num = Cells(i + 9, 4).Value
Dim nam As String
nam = Cells(i + 9, 8).Value & ".doc
浏览 0提问于2012-01-26得票数 0
1回答
我知道，可以使用Word对象模型将文档保存为文本。()
它在文档中说，Unicode文本的数字是"7"，这就是为什么我在AutoHotkey中使用以下代码：oWord.Documents(1).SaveAs2(SpeicherortB,7) (将oWord应用程序的文档1保存到"SpeicherortB“作为Unicode (7)的位置)
与文档显示的不同，结果不是Unicode，也不支持亚洲或俄罗斯字符。你知道怎么解决这个问题吗？
供参考:在通过AutoHotkey运行代码时，我需要使用对象模型。
浏览 8提问于2017-01-20得票数 0
回答已采纳
我在C#中保存word文档时遇到了问题。文本被粘贴在word文档中，但是保存文件是个问题。
wordDoc.Application oWord;
wordDoc.Document oDoc;
oWord = new wordDoc.Application();
oWord.Visible = true;
oDoc = oWord.Documents.Add();
Clipboard.SetText(_Text);
oDoc.ActiveWindow.Selection.Paste();
string fileName = @"C:\Users\Sam\Documents\NewDocu
浏览 2提问于2016-06-15得票数 0
回答已采纳
当我尝试保存一个新的以编程方式创建的.docx时，我在saveas、saveas2或save调用中不断得到“命令失败”。我知道该文件正在创建中。脱机工作正常。Visual Studio 2013 Microsoft.Office.Interop.Word 15服务器和开发机器上的Microsoft Office 10测试代码：
myInfo_lbl.Text = ""
Dim word As New Microsoft.Office.Interop.Word.Application
word.Visible = True
Dim doc As Microsoft.Office.
浏览 1提问于2017-08-17得票数 0
3回答
我正在使用Word 2013自动创建一个docx格式的报告，然后将其保存为pdf格式。
但是当我调用函数SaveAs2()时，脚本弹出“另存为”窗口并抛出此异常：
(-2147352567, 'Exception occurred.', (0, u'Microsoft Word', u'Command failed', u'wdmain11.chm', 36966, -2146824090), None)
下面是我要打开并另存为新文件的代码：
self.path = os.path.abspath(path)
self.word
浏览 21提问于2015-05-27得票数 9
我有一个带有宏的MS Word文档(.docm) 基于许多StackOverflow帖子，我已经编写了一个宏导出为pdf并保存为.docx 我打开/编辑.docm文档，其中有一个onSave宏，它将文档保存为.pdf格式和.docx格式，我将其分发给其他人使用。我将始终对.docm文档进行更改。 我的问题是，这样做会将活动(打开的)文档从.docm转换为.docx，这样我就不再对.docm进行更改。 Sub SaveActiveDocumentAsDocx()
On Error GoTo Errhandler
If InStrRev(ActiveDocument.Full
浏览 15提问于2020-10-02得票数 1
回答已采纳
在我的笔记本电脑驶出窗外之前，谁来帮帮我。我已经创建了一个Excel用户表单，在输入所有内容后，从工作表上的一个单元格中复制文本并将其粘贴到一个新的Word文档中。它工作得很好，Word文档就像它应该打开的那样打开，并将单元格的内容粘贴到其中。此时我可以手动保存打开的Word文档，但是我希望文档使用特定的文件名保存到特定的文件夹中，然后完全关闭Word。救济金不是为我工作的，我不知道我做错了什么。
这是我的第一篇帖子--希望我能通过搜索找到我的答案，但经过几个小时的搜索和尝试，我放弃并发布了。如果我违反了问问题的礼仪规则，我会提前道歉！
下面的代码是在我将要粘贴到Word的单元格复制后，单击我
浏览 3提问于2015-02-17得票数 1
回答已采纳
我试图编写一个宏，它使用Word对象创建基于Word模板文档的Word文档。
当我使用选项显式时，我遇到了一些困难。如果没有它，我就能略过迪姆.排队但我想在那里。
以下是目前为止的代码：
Option Explicit
Sub PopulateWordDoc()
Dim wApp As Object
Set wApp = CreateObject("Word.Application")
Dim wdDoc As Word.Document ' User-defined type not defined error on this line
浏览 0提问于2016-04-22得票数 1
回答已采纳
3回答
我试着写一个简单的MFC - Word自动化，每1分钟保存一次。我关注这篇文章：
这就是我正在尝试实现的，我是COM的新手，所以我认为这里有个问题:我的VBA是由Word 2010生成的：
ActiveDocument.SaveAs2 FileName:="1.docx", FileFormat:=wdFormatXMLDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecomm
浏览 0提问于2010-06-04得票数 3
回答已采纳
我正在寻找一种方法：
基于Excel表中单元格XX打开Word文档(现在，我在单元格XX中列出文档的完整路径)。是否可以使用查找和替换( Excel和Word文档之间的链接)根据Word文档中Word文档的filename?)Edit文本中的标识符打开文档，我正在更新这些链接的路径。旧路径是静态的，新路径会根据用户的不同而改变，并将在单元格XXX中找到触发器更新word中的所有链接，在查找替换后，断开这些链接重命名，并将word文档保存在客户端文件夹中。
Sub openfile()
'opening word file based on cell value in excel
浏览 1提问于2021-01-13得票数 0
我一直在尝试保存基于以下代码的word文档：
Private Sub CreateWordDoc()
Dim wa As Word.Application
Dim wd As Word.Document
Dim wp As Word.Paragraph
wa = CreateObject("Word.Application")
wa.Visible = False
wd = wa.Documents.Add
wp = wd.Content.Paragraphs.
浏览 0提问于2018-05-28得票数 1
我正在使用QT4.5.3和Windows。我需要我的应用程序生成包含正在使用和生成的信息的文档。正在使用的信息将仅仅是字符串(更具体地说是QString)，生成的信息也是字符串和图像。
我希望文档是MS word文档(.doc)，也可以是开放文档格式(.odt)，我还想用字体、图像、数据表、一些背景色和所有对文档进行格式化。
我已经使用、QTextCursor和QPrinter创建了QTextDocument PDF文件。但是，当我试图将相同的QTextDocument应用于odt时，最终只出现了格式错误。
是否有一种方法可以使用使用C++的任何其他库生成这样的文档？你们是如何在C++中生成这
浏览 0提问于2010-07-05得票数 10
回答已采纳
wordTemplate = "c:\someTemplate.docx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=wordTemplate, NewTemplate:=False, DocumentType:=0
'''here I iterate and do stuffs, and then:'''
With objWord.ActiveDo
浏览 0提问于2018-06-15得票数 0
回答已采纳
我正在尝试从excel到word生成一些数据文档。我只是在学习VBA的基本知识，所以我花了几个小时才发现这是一个查找和替换逻辑。但是，当我尝试了大量的文字，超过255个字符
也许你能找到一些简单的解决方案。这是下面的代码：
Sub gera_plano()
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set arqPlanos = objWord.Documents.Open(ThisWorkbook.Path & "\Modelo de Plano de Au
浏览 5提问于2022-05-13得票数 -1
目前，我的代码成功地将word文档(.docx)中的所有文本转换为.txt文件中的纯文本，但是只要word文档中有图像，它就会被输出文件中的'/‘替换。我怎么能忽略这些图像？
我的代码存根：
Word.Application app = new Word.Application();
Word.Document doc;
object missing = Type.Missing;
object readOnly = true;
doc = app.Documents.Open(ref path, ref missing, ref readOnly, ref missing, ref
浏览 0提问于2018-05-15得票数 1
回答已采纳
我正在尝试写一个宏，创建一个Word文档的pdf。
我用来做这件事的代码使用ActiveDocument.ExportAsFixedFormat。这在一定程度上是可行的，但是在创建一个大型文档的pdf文档(以及我将使用这个宏处理的一些文档长达数千页)时，它往往会失败。
我的理解是ExportAsFixedFormat方法使用Word内置的PDF创建方法。我真正想做的是使用Adobe Acrobat来做PDF转换。如果我在Word (我的机器上安装了Adobe Acrobat )中点击“导出为pdf”按钮来手动操作，那么一切都很好。它使用实际的Adobe Acrobat PDF转换，即使在足够大
浏览 0提问于2018-06-28得票数 0
我想把我的Word文档转换成pdf，并将其作为附件发送，作为我构建的Outlook电子邮件的一部分。
我尝试在我的.pdf行的末尾添加“SaveAs2”，该行更改了文件格式并将其附加为pdf格式，但是，当试图打开该文件时，它不会显示，并给我一条消息，即该文件在作为附件发送时没有所有的代码。
Private Sub emailbutton_Click()
'No-option email sending
Dim OL As Object
Dim EmailItem As Object
D
浏览 5提问于2016-08-11得票数 1
回答已采纳
1回答
Sub CommandButton1_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRng As Word.Range
Dim wdPath As String
Dim i As Integer
wdPath = "C:\Users\840\Desktop\TP CLients\"
ThisWorkbook.ActiveSheet.Range("A1:D1").Copy 'Excel sheet of condensed
T
浏览 5提问于2018-01-15得票数 0
回答已采纳
我试图添加一个文件到电子邮件作为PDF。我试图将文件名更改为包含存储在Word文档中的表中的日期。
我可以创建电子邮件，但脚本给我一个错误，当它试图导出。
如何将文件附加为PDF格式，文件名为Word中从表中提取的日期？
Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Dim DateField As String
Dim desktoploc As String
Dim mypat
浏览 0提问于2021-02-22得票数 0
回答已采纳
2回答
我有一个混合样式的Word文档，如果该行与h1、h2或h3匹配，则需要添加HTML标记。我试图将新字符串保存到数组中，并将其保存为.html文件，但不知道如何用.vba编写if条件，因此请提供帮助。
Public Sub Word2HTML()
Dim NewArray() As String
Dim TextFile As Integer
Dim FilePath As String
FilePath = "C:\Temp\final.html"
TextFile = FreeFile
'Open the text fi
浏览 4提问于2021-02-16得票数 1
回答已采纳
2回答
我有一个多年来一直工作得很好的Word宏。我最近升级到了Word 2013，行为发生了变化。
它出现在以下行中：
Doc.SaveAs Path + "Manual\" + TitleString + ".htm", wdFormatFilteredHTML
它将生成有效的文件路径和名称，并将当前文档另存为HTML页。
在Word 2013下，宏将打开一个没有文件名且使用默认文件扩展名(.docx)而不是(.htm)的文件保存对话框，就像过滤的HTML模式不再可用一样。
我尝试过使用命名参数，也尝试了新的SaveAs2方法，但没有看到任何变化。
浏览 2提问于2014-02-23得票数 0
我试图将excel文件的每一行安装到一个基于docx模板的新pdf文件中，其中包含此宏将从excel工作表中的相关字段中搜索和替换的文本。
问题是，代码只有在第一个循环中才能正确工作。在第一个循环之后，输出一个1.pdf文件，其中包含excel的正确字段，但是现在模板docx文件也与excel的数据一起保存，导致以后的循环不能正常工作了。由于某种原因，下一行的所有excel字段都会附加到模板的开头。
请帮助我更正这段代码，以便每次循环正确运行。愿望的结果是，每一行excel将只被导出到一个新的pdf文件和模板docx是完整的。
谢谢。
Sub ReplaceText()
Dim w
浏览 4提问于2016-04-25得票数 1
回答已采纳
我目前正在修改Microsoft文档，以提示用户在保存时进行操作。
在他们选择答案之后，我希望将文档保存为不同的文件类型，具体地将其从.docm转换为.docx文件。
Sub FileSave()
Dim myQ As Integer
With ActiveDocument
myQ = MsgBox("Is this the Final version of this document? Clicking 'Yes' will permanently disable macros for moving issues and remove the bl
浏览 4提问于2015-05-20得票数 1
回答已采纳
我正尝试从Perl打开一个Word docx文件，然后将其另存为HTML。我得到了Win7 63位和Office15(Office365订阅)。我阅读了一些示例，并尝试使用和，但总是收到错误
perl -MWin32::OLE -e "$wd = Win32::OLE->GetObject('1994.62_01_fnd_en.docx'); print Win32::OLE->LastError"
Win32::OLE(0.1712) error 0x80004005: "Unspecified error"
perl -e &#
浏览 0提问于2015-11-09得票数 1
看起来，在Office2010中，为了支持，已经消失了。这里发生什么事情？这两者之间有什么重要的区别吗？我的解决方案是先检查SaveAs2，然后回退到SaveAs。这是否合理呢？
浏览 6提问于2010-11-05得票数 17
1回答
在项目结束时，我有以下代码：
'Save the Document
Dim Directory As String, FileName As String
Directory = "C:\Users\" & (Environ$("Username")) & _
"\Desktop\STL\"
If Len(Dir(Directory, vbDirectory)) = 0 Then
MkDir Directory
End If
FileName = sDNUM & " " &
浏览 2提问于2017-05-16得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
