"Method or data member not found"(VBA字)

Question

我在下面有这一部分代码，该代码一直在接收"方法或数据" 成员找不到"错误消息：

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

谢谢！

Answer 1

myStyle不是段落对象的属性

尝试：

If p.Style = "Headings_Sub" Then