使用Excel VBA删除Word文档中的水印
使用Excel VBA删除Word文档中的水印
提问于 2017-03-11 01:07:24
我正在尝试使用excel删除word文档中所有区域的水印。我可以在Word中用VB完成这项工作，我已经将代码翻译到excel中，以便在word中完成。没有错误，但代码无法删除或移除水印。我相信一定有一些额外的链接到它的形状或位置，我需要参考，但我不知道它会丢失什么。
Word VBA中的工作代码使用了spShape.Visible = False，这在excel中没有做任何事情，我也尝试过spShape.Delete，但也没有用。
感谢任何帮助，以下是我的代码：
Sub AddRemoveWatermark()
'Word Variables
Dim wrdApplication As Word.Application
Dim wrdDocument As Word.Document
Dim wrdSection As Word.section
Dim wrdHeader As Word.HeaderFooter
Dim rngHeader As Word.Range
Dim spShape As Word.Shape
Dim strDocumentName As String
Dim strPath As String
Dim strBBPath As String
Dim lngCount As Long
Dim pHeaderType As Long
Dim strShapeName As String
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
Set wrdApplication = New Word.Application
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
strPath = .SelectedItems(lngCount)
Set wrdDocument = wrdApplication.Documents.Open(strPath)
strDocumentName = wrdDocument.FullName 'Record the document name
wrdApplication.Templates.LoadBuildingBlocks
wrdApplication.Visible = True
'Address each section
For Each wrdSection In wrdDocument.Sections
With wrdSection
Set rngHeader = .Headers(wdHeaderFooterFirstPage).Range
For Each spShape In rngHeader.ShapeRange
strShapeName = spShape.Name
If InStr(strShapeName, "PowerPlusWaterMarkObject") > 0 Then
'spShape.Delete
spShape.Visible = msoFalse
End If
Next
Set rngHeader = .Headers(wdHeaderFooterPrimary).Range
For Each spShape In rngHeader.ShapeRange
strShapeName = spShape.Name
If InStr(strShapeName, "PowerPlusWaterMarkObject") > 0 Then
'spShape.Delete
spShape.Visible = msoFalse
End If
Next
End With
Next wrdSection
wrdDocument.SaveAs (wrdDocument.FullName)
wrdDocument.Close
Next lngCount
End With
wrdApplication.Quit
End SubStack Overflow用户
发布于 2020-08-23 20:30:52
嘿是我用来去除水印的代码，虽然不是很优雅。
Sub RemoveWordArtWaterMark()
'on error resume next
On Error Resume Next
'from google group
Dim x As Long
For x = 1 To 20
ActiveDocument.sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Delete
Next x结束子对象
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42723964
复制相关文章
相似问题
腾讯云开发者
