“找不到方法或数据成员”（VBA Word）答案

【问题标题】："Method or data member not found" (VBA Word)“找不到方法或数据成员”（VBA Word）
【发布时间】：2017-06-08 03:36:46
【问题描述】：

我在下面有这部分代码，它不断接收“方法或数据未找到成员”错误消息：

If p.myStyle = "Headings_Sub" Then
p.Range.Select

End If

不知道如何解决。以下是完整代码供参考：

Sub testCopyPasteVBA()

testCopyPasteVBA Macro

Dim wordDoc As Object
Dim oXL As Excel.Application
Dim DocTarget As Word.Document
Dim Target As Excel.Workbook
Dim tSheet As Excel.Worksheet
Dim StrTxt As String
Dim oRng As Word.Range
Dim p As Paragraph
Dim myStyle As Style

Set oRng = ActiveDocument.Range
oRng.Start = ActiveDocument.Bookmarks("D_Start").Range.End
oRng.End = ActiveDocument.Bookmarks("D_End").Range.Start

Set wordDoc = GetObject(, "word.application")
oRng.Select

Set myStyle = ActiveDocument.Styles.Add(Name:="Headings_Sub", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = False
.Name = "Times New Roman"
.Size = 12
.AllCaps = True

End With

If p.myStyle = "Headings_Sub" Then
p.Range.Select

End If

Selection.Copy

'If Excel is running
On Error Resume Next
Set oXL = GetObject(, "Excel.Application")

If Err Then
ExcelWasNotRunning = True
Set oXL = New Excel.Application

End If

oXL.Visible = True
Set Target = oXL.Workbooks.Add
Set tSheet = Target.Sheets(1)
tSheet.Paste

End Sub

谢谢！

【问题讨论】：

标签： vba ms-word

【解决方案1】：

myStyle 不是 Paragraph 对象的属性

试试：

If p.Style = "Headings_Sub" Then

【讨论】：

感谢您的回复！如果是这种情况，我是否需要更改以下代码中的任何内容： Set myStyle = ActiveDocument.Styles.Add(Name:="Headings_Sub", _ Type:=wdStyleTypeCharacter) With myStyle.Font .Bold = True .Italic = False .Name = "Times New Roman" .Size = 12 .AllCaps = True End With
这将有助于编辑您的问题以准确解释您要做什么。我无法通过查看您的代码来判断目标是什么。既然可以引用内置的Application对象，为什么还要使用GetObject()？
我根据另一位程序员的建议使用 GetObject()。本质上，我希望代码自动突出显示符合字体标准的任何段落/文本，然后将该文本复制到 Excel 电子表格中。理想情况下，每行文本在粘贴到 Excel 工作表时都是单独的一行。
如果你在 Word 中运行它，那么你不需要GetObject()。如果您在 Excel 中运行它，那么还有其他问题。似乎还缺少一堆代码：例如，您声明 p 但从未将其设置为任何内容。