Macro is not working on Access point

[#1]

Hi Everyone,

Please help me,

I am trying to fire macro from the access point but macro is not working , in the server(production) macro is running but when I am trying to fire from the access point macro is not firing. I have downloaded IE pulgins also but still it is not working.

In QVMC----->server ----> security---> I have tick the Allow unsafe macro for execution on server and Allow macro for execution on server but still macro is firing from the server.

Thanks in Advance.

Sher Bahadur.

[#2]

yes, here i am trying to export all the Bitmap and charts in ms word.but marco is woking I just put a msgbox() to know it is working or not but it is not working.. please give me some idea..

Please the screen sh

[#3]

Thanks for giving me example but my code is working properly and the problem is my macro is not triggering in access point and on the server it is working well.

my code is:

SUB Export_to_Microsoft_Word

. . . . .

. . . .. .

. . . .. .

set objWord = CreateObject("Word.Application")

    objWord.Visible = false

    Set objDoc = objWord.Documents.Open(tmpFile & "\standard template.docx")

Set objSelection = objWord.Selection

set Ad = ActiveDocument.GetSheetObject("TX18")

Ad.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

set Ad1 = ActiveDocument.GetSheetObject("TX16")

Ad1.CopyTextToClipboard

objWord.Selection.ParagraphFormat.Alignment=0

objWord.Selection.Paste

set Ad2 = ActiveDocument.GetSheetObject("TX10")

Ad2.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

set Ad3 = ActiveDocument.GetSheetObject("CH12")

Ad3.CopyBitmapToClipboard

objWord.Selection.Paste

set Ad4 = ActiveDocument.GetSheetObject("TX12")

Ad4.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

set Ad5 = ActiveDocument.GetSheetObject("CH26")

Ad5.CopyBitmapToClipboard

objWord.Selection.Paste

set Ad6 = ActiveDocument.GetSheetObject("CH27")

Ad6.CopyBitmapToClipboard

objWord.Selection.Paste

set Ad7 = ActiveDocument.GetSheetObject("CH29")

Ad7.CopyBitmapToClipboard

objWord.Selection.Paste

objWord.Selection.ParagraphFormat.Alignment=1

set Ad8 = ActiveDocument.GetSheetObject("TX14")

Ad8.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

set Ad9 = ActiveDocument.GetSheetObject("CH24")

Ad9.CopyBitmapToClipboard

objWord.Selection.Paste

set Ad10 = ActiveDocument.GetSheetObject("TX13")

Ad10.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=2

objWord.Selection.Paste

set Ad11 = ActiveDocument.GetSheetObject("TX15")

Ad11.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

set Ad12 = ActiveDocument.GetSheetObject("CH23")

Ad12.CopyBitmapToClipboard

objWord.Selection.Paste

set Ad13 = ActiveDocument.GetSheetObject("TX17")

Ad13.CopyBitmapToClipboard

objWord.Selection.ParagraphFormat.Alignment=1

objWord.Selection.Paste

objDoc.SaveAs (LogPath  & ".docx")    '// log path is globally declared

objDoc.Close

objWord.Quit

If Err.Number <>0 Then

              'Error handling

               msgbox("Error desc => " + Err.Description + " <> source => "+ Err.Source)

    Err.Clear

End If

end sub

[tauceef9]

Hi Sherbahadur,

Would you please confirm if this is resolved? I am facing the same issue at my end.

Regards,

Tauceef