when i comment this line it doesn'tgive me any error
output = output + Prop.Name + " = " + Str(Prop.Value) + vbCrLf
so there is proba something worng i am doing here
ok i got this far now
Sub DocumentProperties()
Dim output As String
Dim Prop As DocumentProperty
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Add...
Here is the code that I have so far to show word document property in a message box
Sub DocumentProperties()
Dim Output As String
Dim Prop As DocumentProperty
For Each Prop In ActiveDocument.BuiltInDocumentProperties
Output = Output + Prop.Name + " = " + Str(Prop.Value) + vbCrLf
Next
MsgBox...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.