[SOLVED] Control Word MailMerge from Excel - Page 2


"Excel VBA Help"

 


Play Friv Now - Play Friv Games
Go Back   The Code Cage Forums > Microsoft Topics > Microsoft Excel Forum
Our Info Pages:-
The Code Cage - Microsoft Office help

Notices

Microsoft Excel Forum Members Post questions in this forum if they are related to using Microsoft Excel, this includes Worksheet Functions, Excel VBA Programming, Simple Macro Code & Charting, Excel formula etc.

 
 
Thread Tools Rate Thread Display Modes
  #11  
Old 17th January 2014, 10:14
snb's Avatar
snb snb is offline
Forum VIP
MS Office Version: > Office 97
MS Office Skill Level: Interested
 
Join Date: Feb 2011
Location: Europe
Posts: 1,393
Posts Per Day: 0.57
My Top Tip Count: 0
Thanks to others: 0
Thanked 314 Times in 307 Posts
Reputation: 5076 (70) snb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond repute
Default Re: Control Word MailMerge from Excel


------ Register to get rid of these "In Post" ads! ------


I offered you a much simpler approach.



The Following User Says Thank You to snb For This Useful Post:
Rjqman (25th January 2014)
The Code Cage Advertisment
Advertisement
  #12  
Old 25th January 2014, 17:47
Rjqman's Avatar
Rjqman Rjqman is offline
Junior Member
MS Office Version: MS Office 2003, 2007
MS Office Skill Level: Proficient with Excel
 
Join Date: Dec 2013
Location: Florida, USA
Age: 72
Posts: 12
Posts Per Day: 0.01
My Top Tip Count: 0
Thanks to others: 5
Thanked 1 Time in 1 Post
Reputation: 20 (4) Rjqman is on a distinguished road
USA
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


Hello again. I have continued to experiment, and I have found a way to have Excel access the Microsoft Word document with NO pop-ups. I went back to the original concept with some modification based on what I have learned with your help.

As an aside - during testing on other computers, I also found I had to add some code that runs before this macro in order to insure that 1) access to the Visual Basic Library is authorized and 2) That the Reference Library for Microsoft Word was loaded, but that is another subject. I am enclosing the code below - so far it seems to be working on every computer, and the user does not have to take any action whatsoever other than to launch the macro.

This code is burdened with my msgboxes for the end user of the program, entitled 'SureScore,' and are probably meaningless to you - but my end users are not experienced in any computer applications, and so I tried to word the messages to maximize their understanding. I usually clear the screen before posting messages to make them easier to read.

The notes at the end of each line of code explain why I put the code there - the notes are for my benefit as much as anyone else so I don't forget what I am doing! Getting old is such a joy (but I guess, as they say, it beats the alternative).

I am posting the code for two reasons - 1) So that you can let me know if you see any problems that I have not seen, and 2) Because I have seen the question of the pop-up asking the user to confirm the source of the data on many other Excel support websites, and never found an answer - the answer has always been that there is no way around it - but there is a way around it. Perhaps this solution I stumbled on could help someone else.

I am very thankful for your help. It is very much appreciated.

VBA CODE:
Sub Create_Labels() 
     '
    Dim i As Integer 
    Dim sPath As String 
    Dim WrdApp As Word.Application 
    Dim WrdDoc As Object 
    Dim wbName As String 
     '
On Error Goto ErrHandler: 
     '
     '   ============================== Clear Screen =========================================
    If ActiveWindow.WindowState = xlNormal Then ActiveWindow.WindowState = xlMinimized 
    If ActiveWindow.WindowState = xlMaximized Then ActiveWindow.WindowState = xlMinimized 
     '   =====================================================================================
     '
    sPath = ActiveWorkbook.Path ' This statement establishes the location of SureScore
    wbName = sPath & "\" & ActiveWorkbook.Name ' This statement establishes the current name of SureScore
     '
     '   =========== CHECK TO MAKE CERTAIN LABEL_TEMPLATE.DOC IS IN THIS DIRECTORY ===========
     '
    If Dir(sPath & "\" & "Label_Template.doc") <> "" Then 
    Else 
        MsgBox "OOPS!  SureScore cannot locate the Microsoft Word Document titled 'Label_Template.doc'.  This document provides the format information required in order to generate your sheet labels." & vbLf & vbLf & _ 
        "The pre-formatted 'Label_Template' document is provided by " & Range("Org") & ".  If you did not receive the 'Label_Template.doc' document along with SureScore, a copy is available on the Show Host Information page of the website.  The document MUST be in the same location ( or in the same folder ) as SureScore in order for SureScore to access it." & vbLf & vbLf & "SureScore will cancel this operation.", 0, "SURESCORE ERROR NOTIFICATION" 
         '
         '   ============================= Restore Screen ========================================
        If ActiveWindow.WindowState = xlNormal Then ActiveWindow.WindowState = xlMaximized 
        If ActiveWindow.WindowState = xlMinimized Then ActiveWindow.WindowState = xlMaximized 
         '   =====================================================================================
         '
        Exit Sub 
    End If 
     '
    MsgBox "The next operation may take a few moments. Some brief images and screen 'flicker' as a Microsoft Word document is created during this process is normal. Please be patient.", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
     '
    Set WrdApp = CreateObject("Word.Application") ' This statement uses the Object Library to open Word
    WrdApp.Visible = True ' This statment insures Word screen is visible to the user
    WrdApp.Application.WindowState = 2 ' This statement minimizes the Word display screen
    Set WrdDoc = WrdApp.Documents.Open(sPath & "\Label_Template.doc") ' This statment opens the Template
    With WrdApp 
        .DisplayAlerts = 0 
        .Application.WindowState = 2 ' This minimizes the Word display screen in the event user had redisplayed it
        .ScreenUpdating = False ' This freezes the screen to speed up the macro
        .ActiveDocument.MailMerge.MainDocumentType = 3 ' This defines the MailMerge document as a 'Directory' document
        .ActiveDocument.MailMerge.OpenDataSource Name:= _ 
        wbName, _ 
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ 
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ 
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ 
        Format:=0, Connection:= _ 
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=wbName;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35" _ 
        , SQLStatement:="SELECT * FROM `__A_Label_Table`", SQLStatement1:="", _ 
        SubType:=1 ' This defines the source for the MailMerge Directory
         '
        With WrdApp.ActiveDocument.MailMerge 
            .Destination = wdSendToNewDocument ' This tells MailMerge to create a new document
            .SuppressBlankLines = True ' This supresses blank lines
            With .DataSource 
                .FirstRecord = wdDefaultFirstRecord 
                .LastRecord = wdDefaultLastRecord 
            End With 
            .Execute Pause:=False ' This executes the MailMerge without pausing between entries
            .Application.WindowState = 2 
        End With 
        .ActiveDocument.SaveAs Filename:=sPath & "\My_Show_Labels.doc", FileFormat _ 
        :=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ 
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ 
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
        SaveAsAOCELetter:=False ' This defines the name of the new My_Show_Labels Document
        .ActiveDocument.Close (-1) '(wdSaveChanges)                        ' This saves the new My_Show_Labels document
        .ActiveDocument.Close (0) '(wdDoNotSaveChanges)                     ' This closes the Template, restoring it to its original condition
        .ScreenUpdating = True ' This resets the screen updating
    End With 
     '
    If MsgBox("SureScore has generated a Ready-to-Print sheet of standard 1 inch by 2-5/8 inch mailing labels for your show. Do you want to view the labels at this time?", vbYesNo, "SURESCORE USER INFORMATION") = vbYes Then 
        Set WrdDoc = WrdApp.Documents.Open(sPath & "\My_Show_Labels.doc") 
        MsgBox "To print your labels now, use the Microsoft Word Print commands." & vbLf & vbLf & "Be certain to close Microsoft Word after viewing and/or printing the labels to free more computer memory for SureScore", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
        Application.ScreenUpdating = False 
        ActiveWindow.WindowState = xlMaximized ' This statement makes certain that Excel is fully visible when Word is closed later
        WrdApp.Application.WindowState = 1 ' This maximizes Word application for viewing in front of Excel in window
    Else 
        MsgBox "Your ready-to-print sheet of labels will be saved in the same folder as SureScore in Microsoft Word format under the name My_Show_Labels." & vbLf & vbLf & _ 
        "(NOTE - You can access this Microsoft Word document later directly without opening SureScore if you wish to print your labels at another time).", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
        WrdApp.Quit ' This closes the Word application
        ActiveWindow.WindowState = xlMaximized ' This restores the window for viewing Excel
    End If 
     '
    Application.ScreenUpdating = True 
    Set WrdDoc = Nothing 
    Set WrdApp = Nothing 
    Exit Sub 
     '
ErrHandler: 
    MsgBox "SureScore has encountered an unspecified error and cannot generate your sheet labels.  You can close Excel and then use the Microsoft Word Mailmerge Feature and access the hidden SureScore File '_A_LABEL_TABLE' to generate your labels.", 0, "SURESCORE ERROR NOTIFICATION - PRINTING LABELS" 
    Set WrdDoc = Nothing 
    Set WrdApp = Nothing 
    Application.WindowState = xlMaximized 
    ActiveWindow.WindowState = xlMaximized 
     
End Sub 



The Following User Says Thank You to Rjqman For This Useful Post:
Simon Lloyd (25th January 2014)
The Code Cage Advertisment
Advertisement
  #13  
Old 26th January 2014, 11:34
snb's Avatar
snb snb is offline
Forum VIP
MS Office Version: > Office 97
MS Office Skill Level: Interested
 
Join Date: Feb 2011
Location: Europe
Posts: 1,393
Posts Per Day: 0.57
My Top Tip Count: 0
Thanks to others: 0
Thanked 314 Times in 307 Posts
Reputation: 5076 (70) snb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond repute
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


There is a simpler way to suppress the SQL popup:
Check your Office version (in this example 11.0) first.

VBA CODE:
Sub M_suppress() 
    CreateObject("Wscript.shell").regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options\SQLSecurityCheck", 1, "REG_DWORD" 
End Sub 



  #14  
Old 29th January 2014, 23:11
Rjqman's Avatar
Rjqman Rjqman is offline
Junior Member
MS Office Version: MS Office 2003, 2007
MS Office Skill Level: Proficient with Excel
 
Join Date: Dec 2013
Location: Florida, USA
Age: 72
Posts: 12
Posts Per Day: 0.01
My Top Tip Count: 0
Thanks to others: 5
Thanked 1 Time in 1 Post
Reputation: 20 (4) Rjqman is on a distinguished road
USA
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


With your suggested approach, the problem would be that I do not know what version of Excel or of Office that the end user has, so I cannot specify the version in the program.

I am satisfied with the solution I now have. It appears to work on every computer where I have tested it.

I did not reproduce it here but I check for the Word Object Library and uses the GUID to activate it if it is not already active. I believe the entire thing runs now without the user having to intervene at any point (unless access to the Basic Project has not been granted - if that is the case he or she gets and error message and instructions on how to activate the access).

I also had to add code at the beginning to close Word in case the user had left a previous copy of the document My_Show_Labels open - I found the program crashed if the user tried to run the macro and recreate the document when a copy was already open (no problem if it existed - just if it was open). I added this near the beginning to change the error handler to skip the statement if the word document was not open, and then to go to the original error handler after the check had been made.

Thank you again for the help. Just for the record, I listed the additional lines of code that I added just before the location where the old error hander was originally located below;

On Error Resume Next
GetObject(, "Word.Application").Quit False
On Error GoTo ErrHandler:



  #15  
Old 30th January 2014, 10:00
snb's Avatar
snb snb is offline
Forum VIP
MS Office Version: > Office 97
MS Office Skill Level: Interested
 
Join Date: Feb 2011
Location: Europe
Posts: 1,393
Posts Per Day: 0.57
My Top Tip Count: 0
Thanks to others: 0
Thanked 314 Times in 307 Posts
Reputation: 5076 (70) snb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond repute
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


Quote:
With your suggested approach, the problem would be that I do not know what version of Excel or of Office that the end user has, so I cannot specify the version in the program.

You can check that, using VBA.



The Following User Says Thank You to snb For This Useful Post:
Rjqman (1st February 2014)
The Code Cage Advertisment
Advertisement
  #16  
Old 1st February 2014, 02:38
Rjqman's Avatar
Rjqman Rjqman is offline
Junior Member
MS Office Version: MS Office 2003, 2007
MS Office Skill Level: Proficient with Excel
 
Join Date: Dec 2013
Location: Florida, USA
Age: 72
Posts: 12
Posts Per Day: 0.01
My Top Tip Count: 0
Thanks to others: 5
Thanked 1 Time in 1 Post
Reputation: 20 (4) Rjqman is on a distinguished road
USA
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


In response, I am sure you are correct that there is a way to discern what version of word or office is being used - other parts of my program determine what version of Excel is being used and adjust the reference notes based on the version. However, I now think I have something that is working, and as long as it works, I am satisfied with the solution. No pop-ups. No user interface required - just start the macros and it runs itself. I did use a macro to close all Word documents (which prevents an error when the program tries to save a document under the name of an existing document t of the same name that is open) and also a macro to determine if access to the VBA code is permitted and instructions on how to permit access, which varies depending on the version of excel - the correct msgbox explains how to authorize access depending on the version of excel, but I am not including all that here. Just the label printing stuff.

With my prior solution, which involved early binding (I didn't even know what that was a week ago). I ran into a problem on one computer where Microsoft Word Object Library Missing was checked - even though I tried to use VBA to delete the checked missing item, I was not able to delete it. I noticed some others had experienced that as well - it is hard to delete a 'missing' reference in the reference library - I never did find a way that worked reliably.

So I switched everything to late binding so that I did not have to mess around with insuring that the Microsoft Word object library was activated at all, and that seems to work fine with no glitches on every computer I have tested the program with. I will send it out for some more testing the next couple of weeks.

Again, in case someone is facing the same problems I faced - fundamentally just trying to get rid of the pop-ups when controlling Word mail merge from Excel, I am going to post what I hope is the final revision of my code. I realize the msgbox notes are extensive, but hopefully they will help my 'soccer mom' users to understand what the program does, and the comment (') notes are to help me remember what the heck I did as well as hopefully help someone else in the future who may want to adapt this solution to their own problems.

Thanks again to you both.

VBA CODE:
 
Sub FMBC_10_C07_Create_Labels() 
     '
    Dim i As Integer 
    Dim sPath As String 
    Dim WrdApp As Object ' This is done for 'late binding' - used in this sub (Object rather than dimensioning as an Application)
    Dim WrdDoc As Object 
    Dim wbName As String 
     '
    On Error Resume Next 
     '
     '   ============================== Clear Screen =========================================
    If ActiveWindow.WindowState = xlNormal Then ActiveWindow.WindowState = xlMinimized 
    If ActiveWindow.WindowState = xlMaximized Then ActiveWindow.WindowState = xlMinimized 
     '   =====================================================================================
     '
    sPath = ActiveWorkbook.Path ' This statement establishes the location of SureScore
    wbName = sPath & "\" & ActiveWorkbook.Name ' This statement establishes the current name of SureScore
     '
     '   =========== CHECK TO MAKE CERTAIN LABEL_TEMPLATE.DOC IS IN THIS DIRECTORY ===========
     '
On Error Goto ErrHandler: 
    If Dir(sPath & "\" & "Label_Template.doc") <> "" Then 
    Else 
        MsgBox "OOPS!  SureScore cannot locate the Microsoft Word Document titled 'Label_Template.doc'.  This document provides the format information required in order to generate your sheet labels." & vbLf & vbLf & _ 
        "The pre-formatted 'Label_Template' document is provided by " & Range("Org") & ".  If you did not receive the 'Label_Template.doc' document along with SureScore, a copy is available on the Show Host Information page of the website.  The document MUST be in the same location ( or in the same folder ) as SureScore in order for SureScore to access it." & vbLf & vbLf & "SureScore will cancel this operation.", 0, "SURESCORE ERROR NOTIFICATION" 
         '
         '   ============================= Restore Screen ========================================
        If ActiveWindow.WindowState = xlNormal Then ActiveWindow.WindowState = xlMaximized 
        If ActiveWindow.WindowState = xlMinimized Then ActiveWindow.WindowState = xlMaximized 
         '   =====================================================================================
         '
        Exit Sub 
    End If 
     '
    MsgBox "The next operation may take a few moments. Some brief images and screen 'flicker' as a Microsoft Word document is created during this process is normal. Please be patient.", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
     '
     
    Set WrdApp = CreateObject("Word.Application") ' This is 'late binding' for Word (it required all wd items to be converted to numbers)
    WrdApp.Visible = True ' This statment insures Word screen is visible to the user
    WrdApp.Application.WindowState = 2 ' This statement minimizes the Word display screen
    Set WrdDoc = WrdApp.Documents.Open(sPath & "\Label_Template.doc") ' This statment opens the Template
    With WrdApp 
        .DisplayAlerts = 0 
        .Application.WindowState = 2 ' This minimizes the Word display screen in the event user had redisplayed it
        .ScreenUpdating = False ' This freezes the screen to speed up the macro
        .ActiveDocument.MailMerge.MainDocumentType = 3 ' This defines the MailMerge document as a 'Directory' document
        .ActiveDocument.MailMerge.OpenDataSource Name:= _ 
        wbName, _ 
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ 
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ 
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ 
        Format:=0, Connection:= _ 
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=wbName;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35" _ 
        , SQLStatement:="SELECT * FROM `__A_Label_Table`", SQLStatement1:="", _ 
        SubType:=1 ' This defines the source for the MailMerge Directory
         '
        With WrdApp.ActiveDocument.MailMerge 
            .Destination = 0 ' This tells MailMerge to create a new document
            .SuppressBlankLines = True ' This supresses blank lines
            With .DataSource 
                .FirstRecord = 1 
                .LastRecord = -16 
            End With 
            .Execute Pause:=False ' This executes the MailMerge without pausing between entries
            .Application.WindowState = 2 
        End With 
        .ActiveDocument.SaveAs Filename:=sPath & "\My_Show_Labels.doc", FileFormat _ 
        :=0, LockComments:=False, Password:="", AddToRecentFiles:= _ 
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ 
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
        SaveAsAOCELetter:=False ' This defines the name of the new My_Show_Labels Document
        .ActiveDocument.Close (-1) '(wdSaveChanges)                        ' This saves the new My_Show_Labels document
        .ActiveDocument.Close (0) '(wdDoNotSaveChanges)                     ' This closes the Template, restoring it to its original condition
        .ScreenUpdating = True ' This resets the screen updating
    End With 
     '
    If MsgBox("SureScore has generated a Ready-to-Print sheet of standard 1 inch by 2-5/8 inch mailing labels for your show. Do you want to view the labels at this time?", vbYesNo, "SURESCORE USER INFORMATION") = vbYes Then 
        Set WrdDoc = WrdApp.Documents.Open(sPath & "\My_Show_Labels.doc") 
        MsgBox "You can make any minor changes to the labels you wish for clarity.  However, if you regenerate the labels, those changes will be lost." & vbLf & vbLf & "To print your labels now, use the Microsoft Word Print commands." & vbLf & vbLf & "Be certain to close Microsoft Word after viewing and/or printing the labels to free more computer memory for SureScore", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
        Application.ScreenUpdating = False 
        ActiveWindow.WindowState = xlMaximized ' This statement makes certain that Excel is fully visible when Word is closed later
        WrdApp.Application.WindowState = 1 ' This maximizes Word application for viewing in front of Excel in window
    Else 
        MsgBox "Your ready-to-print sheet of labels will be saved in the same folder as SureScore in Microsoft Word format under the name My_Show_Labels." & vbLf & vbLf & _ 
        "(NOTE - You can access this Microsoft Word document later directly without opening SureScore if you wish to print your labels at another time).", 0, "SURESCORE USER INFORMATION - PRINTING LABELS" 
        WrdApp.Quit ' This closes the Word application
        ActiveWindow.WindowState = xlMaximized ' This restores the window for viewing Excel
    End If 
     '
    Application.ScreenUpdating = True 
    Set WrdDoc = Nothing 
    Set WrdApp = Nothing 
    Exit Sub 
     '
ErrHandler: 
    MsgBox "SureScore has encountered an unspecified error and cannot generate your sheet labels.  You can close Excel and then use the Microsoft Word Mailmerge Feature and access the hidden SureScore File '_A_LABEL_TABLE' to generate your labels.", 0, "SURESCORE ERROR NOTIFICATION - PRINTING LABELS" 
    Set WrdDoc = Nothing 
    Set WrdApp = Nothing 
    Application.WindowState = xlMaximized 
    ActiveWindow.WindowState = xlMaximized 
     '
End Sub 



  #17  
Old 3rd March 2014, 19:59
Rjqman's Avatar
Rjqman Rjqman is offline
Junior Member
MS Office Version: MS Office 2003, 2007
MS Office Skill Level: Proficient with Excel
 
Join Date: Dec 2013
Location: Florida, USA
Age: 72
Posts: 12
Posts Per Day: 0.01
My Top Tip Count: 0
Thanks to others: 5
Thanked 1 Time in 1 Post
Reputation: 20 (4) Rjqman is on a distinguished road
USA
Default Re: Control Word MailMerge from Excel

------ Register to get rid of these "In Post" ads! ------


Since I received no further replies, and I believe this code is working, I am going to mark the thread as closed. Thanks again for the assistance.



The Code Cage Advertisment
Advertisement
 
The Code Cage at Facebookhe Code Cage at Twitter


Tags
control, excel, mailmerge, word

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

The Code Cage Affilliates



http://www.thecodecage.com/forumz tested by McAfee Security http://www.thecodecage.com/forumz tested by McAfee Security

All times are GMT +1. The time now is 02:09.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Template-Modifications by TMS
No part of this board, functionality or creatives may be copied or reproduced either in part or full without the express permission of The Code Cage Team.
Copyright ©2008 - , Simon lloyd.
We are not associated with nor employed by Microsoft in any way, we simply provide resources!
All MS office icons are registered trademarks of the application they represent and are used with permission from Microsoft
UA-8135493-1
Cultural Forum | Study at Malaysian University
X vBulletin 3.8.7 Debug Information
  • Page Generation 0.31884 seconds
  • Memory Usage 6,665KB
  • Queries Executed 15 (?)
More Information
Template Usage:
  • (1)SHOWTHREAD
  • (1)ad_footerEnd
  • (1)ad_footerStart
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_headerEnd
  • (1)ad_header_end
  • (1)ad_header_logo
  • (1)ad_leftcolumn_code
  • (1)ad_navbar_below
  • (4)ad_postbit_below
  • (1)ad_showthread_beforeqr
  • (1)ad_showthread_firstpost
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (3)bbcode_code
  • (1)bbcode_quote
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (7)helpful_answers
  • (1)helpfulanswers_javascript
  • (1)navbar
  • (3)navbar_link
  • (3)navbar_noticebit
  • (52)option
  • (1)pagenav
  • (1)pagenav_curpage
  • (1)pagenav_pagelink
  • (7)post_thanks_box
  • (3)post_thanks_box_bit
  • (1)post_thanks_javascript
  • (1)post_thanks_navbar_search
  • (3)post_thanks_postbit
  • (7)post_thanks_postbit_info
  • (7)postbit
  • (7)postbit_ctoptip
  • (7)postbit_onlinestatus
  • (37)postbit_reputation
  • (7)postbit_wrapper
  • (1)showthread_changepostsowner_link
  • (1)showthread_quickreply_mrgdp
  • (1)showthread_reason_popup
  • (1)spacer_close
  • (1)spacer_open
  • (1)su_form
  • (4)tagbit
  • (1)tagbit_wrapper 

Phrase Groups Available:
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files:
  • ./showthread.php
  • ./global.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/class_datastore.php
  • ./includes/class_hook.php
  • ./awcoding/plugins/awc.php
  • ./awcoding/plugins/ds.php
  • ./awcoding/plugins/ss.php
  • ./includes/functions_notice.php
  • ./mobiquo/smartbanner.php
  • ./mobiquo/include/classTTConnection.php
  • ./mobiquo/smartbanner/head.inc.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/vbatags.php
  • ./includes/functions_reputation.php
  • ./includes/functions_post_thanks.php
  • ./includes/functions_misc.php 

Hooks Called:
  • init_startup
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • style_fetch
  • cache_templates
  • global_start
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_check_criteria
  • notices_noticebit
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • forumjump
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • helpfulanswers_showthreadorpost
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • post_thanks_function_post_thanks_off_start
  • post_thanks_function_post_thanks_off_end
  • post_thanks_function_fetch_thanks_start
  • post_thanks_function_fetch_thanks_end
  • post_thanks_function_thanked_already_start
  • post_thanks_function_thanked_already_end
  • post_thanks_function_fetch_thanks_bit_start
  • post_thanks_function_show_thanks_date_start
  • post_thanks_function_fetch_thanks_bit_end
  • post_thanks_function_fetch_post_thanks_template_start
  • post_thanks_function_fetch_post_thanks_template_end
  • helpfulanswers_show_normal
  • reputation_power
  • reputation_image
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • error_fetch
  • pagenav_page
  • pagenav_complete
  • tag_fetchbit
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • showthread_complete