Hi all,
I'm trying to run this macro from Accesspoint, but it won't run. It runs fine when not in Accesspoint.
Any ideas?
val=ActiveDocument.Fields("RecID").GetPossibleValues
i=0 to val.Count-1
VarHolder1 > 1 then
("More than one record is showing. Refine your selection to select only one index.")
sub
if
oXL=CreateObject ("Excel.Application")
doc = ActiveDocument
mySelection = doc.fields("RecID").GetSelectedValues
i = 0 to mySelection.Count -1
vCommentsToExcel = ActiveDocument.Variables("vName")
vCommentsToExcel = ActiveDocument.Variables("vGrade")
temp = ActiveDocument.GetApplication.GetProperties
(temp.UserName,4)
"\\TEST\QV_Development\Excel Loads\Comments.xls"
oWB = oXL.Workbooks.Open(f_name)
oSH = oWB.Worksheets.Item(1)
)
c = .Find(strIndex, , , 2, 1, 2, 0)
Not c Is Nothing Then
c = .FindNext(c)
While Not c Is Nothing And c.Address <> firstAddress
If
With
VarHolder = 1 then
("There already is a record for this item. If you want to change the note, delete it first.")
oSH = Nothing
oWB = nothing
oXL = nothing
v = ActiveDocument.Variables("vName")
,true
sub
).End (-4162).Offset(1,0).FormulaR1C1 = strIndex
).End (-4162).Offset(0,1).FormulaR1C1 = VarHolder1
).End (-4162).Offset(0,2).FormulaR1C1 = VarHolder2
f_name="False" then
oXL=nothing
sub
If
oSH=nothing
oWB=nothing
oXL=nothing
v = ActiveDocument.Variables("vName")
,true
set