如何用代码将word另存为网页到当前文件夹内

zzpsx

如何用代码将word另存为网页到当前文件夹内
如何用代码将word另存为网页到当前文件夹内.rar (48.1 KB, 下载次数: 6)

2022-12-7 09:20 上传

点击文件名下载附件

3190496160

录制一段宏看看不就知道 了吗

zzpsx

3190496160 发表于 2022-12-7 10:14
录制一段宏看看不就知道 了吗

Sub 存为网页()
'
' 存为网页 宏
'
'
    ChangeFileOpenDirectory _
        "C:\Users\Administrator\Desktop\如何用代码将word另存为网页到当前文件夹内\"
    ActiveDocument.SaveAs2 FileName:="如何用代码将word另存为网页到当前文件夹内.htm", FileFormat _
        :=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True _
        , WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0
    ActiveWindow.View.Type = wdWebView
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If
End Sub

zzpsx

谢谢，如何存到当前文件夹内，这个我不会。

413191246se

* 楼主，要想将文件另存为到本文件夹，只须在 Word 中打开该文件夹内的文档即可。
* 请打开文档后，按 Alt + F8 找到宏列表，运行第一个宏即可（须先将下面的代码复制到 VBE 中）：

1. Sub a1207_SaveAsHtml()
   
2.     Dim FileName$
   
3.     With ActiveDocument
   
4.         FileName = .Name
   
5.         If FileName Like "*.docx" Then
   
6.             FileName = Left(FileName, Len(FileName) - 5)
   
7.         ElseIf FileName Like "*.doc" Then
   
8.             FileName = Left(FileName, Len(FileName) - 4)
   
9.         End If
   
10.         .SaveAs2 FileName:=FileName & ".htm", FileFormat:=wdFormatHTML, CompatibilityMode:=0
    
11.         .Close
    
12.     End With
    
13. End Sub

复制代码

zzpsx

413191246se 发表于 2022-12-7 12:20
* 楼主，要想将文件另存为到本文件夹，只须在 Word 中打开该文件夹内的文档即可。
* 请打开文档后，按 Alt ...

谢谢，可否保存成这样的网页

413191246se

你是说“筛选过的网页”？可以自己录个宏，替换第 10 行代码即可。

zzpsx

413191246se 发表于 2022-12-8 02:01
你是说“筛选过的网页”？可以自己录个宏，替换第 10 行代码即可。

不是，是网页。

413191246se

楼主，我的代码就是将文档另存为网页的。包括一个网页文件和一个同名文件夹，里面有图片的，请打开“资源管理器”观察之。

zzpsx

413191246se 发表于 2022-12-8 10:42
楼主，我的代码就是将文档另存为网页的。包括一个网页文件和一个同名文件夹，里面有图片的，请打开“资源管 ...

谢谢，可能是我的电脑上不行。我的运行结果是，word变成了web版式视图，并没有产生网页文件夹和同名文件夹。请问直接在当前文件夹内不可以看吗？要到资源管理器查看？怎么看？