is there any software for printing UPCs for free

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Opening embedded Excel object with VBA Hi All, I need to programmatically manipulate embedded excel objects in PPT. I've put a macro together, but I am not able to get the macro to open the embedded excel object (excel comes up blank). Con someone please tell me what's wrong? Thanks in advance, JS ======================================= Sub a_Open_EmbeddedExcel() Dim Shp As Shape Dim Sld As Slide Dim xlApp As Excel.Application Dim oWorkbook As Excel.Workbook Dim oWorksheet As Excel.Worksheet Set xlApp = New Excel.Application For Each Sld In Application.ActivePresentation.Slides For Each Shp In Sld.Shapes If Shp.Type = msoEmbeddedOLEObject Then If Shp.OLEFormat.ProgID = "Excel.Sheet.8" Then Set oWorkbook = Shp.OLEFormat.Object Set oWorksheet = oWorkbook.ActiveSheet With xlApp .Visible = True oWorksheet.Activate MsgBox "Did it open the embedded excel object?" MsgBox "There are " & xlApp.Windows(1).VisibleRange.Cells.Count & " cells visible" ' if yes, ' MsgBox xlApp.ActiveWindow.VisibleRange.Address ' more excel macro commands here End With oWorkbook.Close (True) Set oWorkbook = Nothing Set oWorksheet = Nothing End If 'Shp.Type End If 'Shp.OLEFormat.ProgID Next Shp Next Sld xlApp.Quit End Sub Tag: is there any software for printing UPCs for free Tag: 83413
  - 2
    - How to execute macro when starting Word? Hi, I want to execute some code when starting Word. In a template this can be done with AutNew() macro. But an AutoNew() macro in Normal.dot doesn't fire. I've created a sub Document_New() in the ThisDocument module of Normal.dot and this fires when I start a new blank document via File | New. But when I start Word via Start button or toolbar it doesn't work. What to do in the last situation? Thanks for help Regards, Henk Tag: is there any software for printing UPCs for free Tag: 83410
  - 3
    - automatically update word count in textbox Hi, I'd appreciate some help with the following VBA problem. I have a multi-line textbox in a Userform. I would like to update the word count in the text box automatically as the user types text in the box. Does anyone know an easy way to do this? regards, E Tag: is there any software for printing UPCs for free Tag: 83407
  - 4
    - macro security error trying to invoke a plug-in Hi, I have written a MS word COM add-in using vb6, which creates a menu item and invokes the add-in when it is clicked. It works on several of our PCs but on one users machine it always gives the following error when he tries to select the menu item: "The macro cannot be found or has been disabled because of your macro security settings" we have tried setting his macro security to low and still to no avail (mine is set to high and the plugin still works fine). he is using NAV but has disabled the office integration (and has also tried disabling the whole of NAV) but again he just gets the same error. All the PCs are using office 2003. I am using an add-in designer and have set the OnAction property of the CommandBarButton to "<!xxx>" where xxx is the progid of the designer. I can't beleive I have done anything wrong with the code because as I say it works on several other PCs. we can invoke the same progid via vbscript so I know everything is registered correctly does anyone have any clues for the next thing to try? Andy Tag: is there any software for printing UPCs for free Tag: 83406
  - 5
    - Word cannot attach a document to a protected template There is a problem in word when you want to attach a protected template to a document. Because I found no real solutions in the groups I will post my workaround: 1. Open the Template as an AddIn: AddIns.Add(Filename, true) 2. Open the Template as a Document: Templates(Filename).OpenAsDocument 3. Unprotect this Templatedocument 4. Attach the Template to your Document: AttachedTemplate = Templates(Filename) 5. Close the Templatedocument (without saving it) 6. Delete the Template from the AddIns: AddIns(Filename).Delete Kurt Zimmermann Tag: is there any software for printing UPCs for free Tag: 83397
  - 6
    - Report Writing to MS Word Using VB6 I need to write a report in MS Word using VB6 in the below format : Format : Page Heading : "COMPANY NAME" (Page Centre,Font = Bold, Size=14, Underline) Sub Heading#1 : "Something#1" (Page Centre,Font = Bold, Size=12, Underline) Sub Heading#2 : "Something#2" (Page Centre,Font = Bold, Size=11, Underline) Sub Heading#3 : "Something#3" (Page Centre,Font = Bold, Size=10, Underline) Inside a "Do while ... Loop" Data Line # 1 Data Line # 2 Data Line # 3 Data Line # 4 Data Line # 5 Data Line # 6 ... ** Report ends here ** Awaiting to hear from any knowledgeable and helpful soul. Thanks & Rgds Menon. Tag: is there any software for printing UPCs for free Tag: 83384
  - 7
    - How to automatically assign standard password to documents Hi, in order to protect certain documents from being read when they accidentally get sent out by email I would like to do the following: - When a document is being saved for the first time being asked whether to assign the standard password (that's right, same password for all docs) - When a document is being opened and is password protected to try the standard password first and if that fails prompt for a password I tried fiddling around with Events and the Application Object (App_DocumentChange) but I'm just not getting anywhere. Suggestions? Cheers, Marc Tag: is there any software for printing UPCs for free Tag: 83382
  - 8
    - How do I automatically run macro FileProperties when opening doc I have created a template and need to force the opening of the File Properties dialog when creating a new doc based on the template, or when re-opening the doc. I have tried naming a macro AutoExec and using the command ActiveDocument.Application.Run MacroName:="FileProperties" but it doesn't work. Tag: is there any software for printing UPCs for free Tag: 83379
  - 9
    - Trying to banish toolbars - not working! In accordance with several posts here, I'm trying to banish the Web and Reviewing toolbars with an AutoExec macro in the Document object of Normal.dot in Word XP. This is NOT working, though. The Web toolbar has especially been annoying today. Can anyone help with this? Ed Sub AutoExec() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With End Sub Tag: is there any software for printing UPCs for free Tag: 83373
  - 10
    - Connect to a mysql database Hello, I have a mySQL DB on my local computer (localhost) and it holds information on many thousands of different products prices etc... I also have a number of word files that I have to manually update with the prices etc... every so often. Therefore, this can lead to discrepancies. Is there a way to connect a mySQL DB to Word 2003 using a macro and put data into certain places within the document. I've never done anything like this with an office document so any help would be great. Thanks David Tag: is there any software for printing UPCs for free Tag: 83367
  - 11
    - Printing problem I am trying to print out a selected range of pages with the below code but the print fails to complete. Please can someone assist with a solution. Sub Print_Guidance() Dim i As String Dim s As String Dim t As String Dim u As String Dim v As String Dim w As String Dim x As String Dim PagesToPrint As String Application.ScreenUpdating = False ActiveDocument.Unprotect Password:="" Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak Application.DisplayAutoCompleteTips = True ActiveDocument.AttachedTemplate.AutoTextEntries("Guidance"). _ Insert Where:=Selection.Range, RichText:=True ActiveDocument.Repaginate i = ActiveDocument.BuiltInDocumentProperties("Number of Pages") s = CStr(i - 6) t = CStr(i - 5) u = CStr(i - 4) v = CStr(i - 3) w = CStr(i - 2) x = CStr(i - 1) ' i = CStr(i) PagesToPrint = s & "," & t & "," & u & "," & v & "," & w & "," & x & "," & i Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=PagesToPrint, PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False Selection.MoveUp Unit:=wdLine, Count:=377, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Sections(4).ProtectedForForms = True ActiveDocument.Sections(5).ProtectedForForms = True ActiveDocument.Sections(6).ProtectedForForms = False ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields Application.ScreenUpdating = True End Sub -- Mark Tag: is there any software for printing UPCs for free Tag: 83366
  - 12
    - Unspecified Error when trying to access my address book in MS Word I am getting the error message: Login failed. You must logon to Microsoft Exchange to access your address book. Error code: "Unspecified error." when trying to access my address book in Microsoft Word at work. We do not have Exchange and it is a brand new computer. IBM NetVista using Microsoft XP Professional. Any ideas? Jeff Tag: is there any software for printing UPCs for free Tag: 83357
  - 13
    - using more than one combo box in the same document Someone at this wonderful community pointed me to an area so I could create a combo box containing more than 25 work locations in my document. I sucessfully did that. Now I want to use another combo box that holds more than 25 job titles in the same document but my coding just keeps getting the new combo box mixed with the first combo box. I tried searching the databases but once again, I am not good with keyword searching. Please help. Thank you. Tag: is there any software for printing UPCs for free Tag: 83354
  - 14
    - Autotext doesn't work right in Word 2003... The autotext doesn't work right in Word 2003. We bought another 2003 package, and also did an update from the website, but it won't work consistantly. Sometimes it kicks in, but after a sentence or two, it stops working again. Did not have this problem with 2000 version. Is this a glitch??? Tag: is there any software for printing UPCs for free Tag: 83353
  - 15
    - Reproducing Excel table in Word Hi, Does anyone has already reproduce an excel table in word. I'm trying to do that (the programmation is below) but it is very complex. I'm looking for information to help me to progress. What the program do is a mailmerge executed from Excel. The excel file contains a sheet for mail merge data and others sheets (table1.1, table1.2, etc.) for tables used in the mailmerge document. When I execute the macro in excel, the Word Macro is executed and all the tables are formatted in word just before the mailmerge execution. The table formating seems to be very complex because: 1) Text with bold and exponents, italic, size caracter, ... tbl.cell(i,j) = rngExcel.Cells(i, j).Format 'give format of the first character and not of all character. Does anyone know how to paste all cell formatting in word? I don't know if doing a copy and paste is the best solution because, some cells are merged in excel and I have to adjust formatting (borders,horizontal alignment) thereafter. 2) In excel table, some cell contains text that go on the following cells. I have to merge the table cells in Word to take this into account. Also, it is possible that the cells are merge in excel. 3) Want to respect column width, borders, alignment etc. 4) I added a section to take NumberFormat from Excel. etc. Does anyone have already done something similar to this ? Is there a simpler way to have great word table formatting without having to program each things? example: copy paste the table using a pre-determined table formating. After that, adjust borders, column width, some alignments, .. Thanks a lot ! Alex Sub Merge_Word() Dim appWord As Word.Application Dim docWord1 As Word.Document Dim docWord2 As Word.Document Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook Dim tbl As Word.Table Dim oRow As Row Dim rngExcel As Excel.Range Dim pathExcel, strFormat, strBookMark As String Dim iCol As Integer Set appWord = Word.Application Set docWord1 = appWord.ActiveDocument On Error Resume Next Set appExcel = GetObject(, "Excel.Application") If appExcel Is Nothing Then Set appExcel = CreateObject("Excel.Application") End If On Error GoTo 0 pathExcel = appExcel.ActiveWorkbook.Path & "\" & appExcel.ActiveWorkbook.Name ' PathExcel = ActiveDocument.MailMerge.DataSource.Name fileExcel = LCase(Right(pathExcel, Len(pathExcel) - InStrRev(pathExcel, "\"))) On Error Resume Next Set wbExcel = appExcel.Workbooks(fileExcel) If wbExcel Is Nothing Then Set wbExcel = appExcel.Workbooks.Open(FileName:=pathExcel, UpdateLinks:=True, ReadOnly:=True) ' Set wbExcel = GetObject(PathExcel, "Excel.Workbook") End If On Error GoTo 0 For nbTab = 1 To 3 If nbTab = 1 Then Set rngExcel = wbExcel.Application.sheets("table1.1").Range("table1_1") Set rng = docWord1.Bookmarks("Table1_1").Range ElseIf nbTab = 2 Then Set rngExcel = wbExcel.Application.sheets("table1.2").Range("table1_2") Set rng = docWord1.Bookmarks("Table1_2").Range ElseIf nbTab = 3 Then Set rngExcel = wbExcel.Application.sheets("table1.3").Range("table1_3") Set rng = docWord1.Bookmarks("Table1_3").Range End If Set tbl = rng.Tables(1) '1- Adjust number of rows DerLineExcel = rngExcel.Rows.Count DerLineWord = tbl.Rows.Count j = DerLineExcel - DerLineWord For k = 1 To j tbl.Rows.Add Next k For k = 1 To -j tbl.Cell(5, 1).Select Selection.SelectRow Selection.Rows.Delete Next k '2- Adjust number of columns '3- Adjust column width With tbl.Rows .LeftIndent = 0 End With UsableWidth = 432 TableWidth = 0 For CellNo = 1 To rngExcel.Rows(1).Cells.Count TableWidth = TableWidth + rngExcel.Columns(CellNo).ColumnWidth Next CellNo For j = 1 To tbl.Columns.Count For i = 1 To tbl.Rows.Count tbl.Cell(i, j).Width = UsableWidth * rngExcel.Columns(j).ColumnWidth / TableWidth Next i Next j '4- MergeCells For i = 1 To rngExcel.Rows.Count j = 1 Do Until j >= rngExcel.Columns.Count With rngExcel If .Cells(i, j).MergeCells = True Then iCol = .Cells(i, j).MergeArea.Columns.Count tbl.Cell(i, j).Select Selection.MoveRight Unit:=wdCharacter, Count:=iCol - 1, Extend:=wdExtend Selection.Cells.Merge j = j + iCol Else j = j + 1 End If End With Loop 'j Next i '5- Remove all borders With tbl .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone End With '6- Add borders With tbl For i = 1 To tbl.Rows.Count For j = 1 To tbl.Columns.Count With rngExcel.Cells(i, j) With .Borders(xlEdgeTop) If .LineStyle = xlContinuous Then C = wdLineStyleSingle tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeBottom) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeLeft) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeRight) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleNone End If End With End With 'With Selection.ParagraphFormat ' .LeftIndent = CentimetersToPoints(0) ' .SpaceBeforeAuto = False ' .SpaceAfterAuto = False 'End With '7- Add data with formating strData = rngExcel.Cells(i, j) If IsNumeric(strData) And strData <> "" Then strFormat = rngExcel.Cells(i, j).NumberFormat If strFormat = "#,##0_);(#,##0)" Or strFormat = "# ##0_-;(# ##0)" Or strFormat = "#,##0_-;(#,##0)" Then ' voir ajout de n'importe quel _) strFormat = "#,##0;(#,##0)" End If strData = Format(strData, strFormat) If Right(strData, 1) = ")" Then .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(-0.13) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With Else .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(0) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With End If ')" End If 'IsNumeric .Cell(i, j).Range.text = strData Next j Next i End With Next nbTab Exit Sub '8- Add text to document strBookMark = wbExcel.Path & "\bookmark1.doc" Set docWord2 = appWord.Documents.Open(strBookMark, ReadOnly:=False) docWord2.Bookmarks(1).Range.Select Selection.Copy docWord1.Bookmarks("Bookmark1").Range.Select Selection.Paste docWord2.Close '9- Mailmerge execution With docWord1.MailMerge ActiveDocument.MailMerge.OpenDataSource Name:= _ pathExcel, ConfirmConversions:=False, ReadOnly:= _ True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _ "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _ "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\rap_modele_ameliorations.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine " _ , SQLStatement:="SELECT * FROM `merge$`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess .Destination = wdSendToNewDocument With .DataSource .FirstRecord = 1 .LastRecord = 1 End With .Execute Pause:=False End With docWord1.Close (False) ' AppWord.Application.Quit '10- Reset variables Set appWord = Nothing Set docWord1 = Nothing Set appExcel = Nothing Set wbExcel = Nothing Set rngExcel = Nothing Set rng = Nothing Set tbl = Nothing Set docWord2 = Nothing End Sub Sub Mailmerge_execution_from_excel() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Chemin, Fichier, Chemin_Fichier, Source As String ChDrive ActiveWorkbook.Path ChDir ActiveWorkbook.Path Chemin_Fichier = Application.GetOpenFilename() Source = ActiveWorkbook.Name PathExcel = ActiveWorkbook.Path & "\" & Source On Error Resume Next Set WordApp = GetObject(, "Word.application") If WordApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If On Error GoTo 0 Fichier = LCase(Right(Chemin_Fichier, Len(Chemin_Fichier) - InStrRev(Chemin_Fichier, "\"))) Set WordDoc = WordApp.Documents.Open(Filename:=Chemin_Fichier) WordApp.Visible = True WordApp.Documents(Fichier).Activate WordApp.Run "merge_word" With WdDoc Name:=Source, _ LinkToSource:=True, _ Format:=wdOpenFormatAuto, _ SQLStatement:="SELECT * FROM `DonnÃ©es_Mailing$`" End With Set WordDoc = Nothing Set WordApp = Nothing End Sub -- Alex St-Pierre Tag: is there any software for printing UPCs for free Tag: 83350
  - 16
    - Can I use a switch to truncate/substring a field? I am programming a document where I am inserting a character field (length=25) and I only want the last 4 characters inserted. I am trying to insert this field into a table and am limited on space. Word 2003 Tag: is there any software for printing UPCs for free Tag: 83347
  - 17
    - Turn off formatting balloons only I would like to turn off formatting balloons, but keep the ability to read comments balloons. I know that you can turn off formatting balloons from the "Show..." drop down on the Reviewing toolbar, but anytime you turn off Track Changes and then turn it back on, it defaults back to showing the formatting balloons. Is there a macro or vb script to do this? Thanks. Tag: is there any software for printing UPCs for free Tag: 83346
  - 18
    - No page numbers in table of contents for non-sequential levels Is there a way to remove the page numbers in the TOC for non sequential levels? \n 2-3 will take care of the first grouping but I also need TOC 5 without numbers. ABSTRACT................................................ iii TOC1 CHAPTER TOC2 I. INTRODUCTION TOC3 "{Sub-Topic}"....................... 2 TOC4 "{Sub-Topic}"....................... 2 TOC4 II. REVIEW OF LITERATURE TOC3 "{Sub-Topic}"....................... 3 TOC4 "{Sub-Topic}"....................... 3 TOC4 III. DESIGN AND METHODOLOGY and so on "{Sub Topic}" ...................... 4 "{Sub Topic}" ...................... 4 IV. ANALYSIS OF RESULTS "{Sub-Topic}"....................... 5 "{Sub-Topic}"....................... 5 V. CONCLUSIONS AND RECOMMENDATIONS "{Sub-Topic}"....................... 6 "{Sub-Topic}"....................... 6 APPENDICES 7 TOC 5 (shouldn't have number) "{Appendix Title}"................. 7 "{Appendix Title}"................. 8 REFERENCES 9 VITA AUCTORIS 10 Tag: is there any software for printing UPCs for free Tag: 83345
  - 19
    - macro to import excel data into word text Ok, I would greatly appreciate any help with my situation. I have an excel spreadsheet containing data for many electrical devices. The first column in the spreadsheet contains the name of the device with the following columns containing data for that respective device. So, each row in the spreadsheet pertains to one electrical device. Now, in Word I have to create a report using this excel spreadsheet data. Because the devices are similar, I have created a paragraph in Word with bookmarks at the locations where I want to import the excel data for each device. Each paragraph in the report will pertain to only one electrical device in the spreadsheet (therefore, each paragraph will access one row of data in excel). I would like to create a macro that I can run in Word, that will prompt me for the name of the device and based on the input, it will generate the paragraph template with that device's respective data. Some bookmarks I have created have names like, devicename, amps, voltage, growthrate, transformer. Has anyone done something similar before or know how to do this? Again, any help would be great. Thanks, Kenneth Tag: is there any software for printing UPCs for free Tag: 83344
  - 20
    - WindowSelectionChange event failing to fire We are seeing a problem at our customer sites, where the WindowSelectionChange event fails to fire, which is interfering with the proper functioning of one of our applications. In order to trace this, we have written a macro which simply declares an object as WithEvents Word.Application, and pops up a message box, when the event fires (see below). Testing at various sites, we have found that the macro fails at a small percentatge of client sites. We know that at least one site is running Word 2003, but we're not sure about the others. The problem always goes away (i.e. the event is always raised) if we keep any custom .DOT's from loading. In one case, we isolated a single .DOT from another vendor, and that vendor was able to figure out that the problem was due to code in the following form: On Error Resume Next Application.Run "macroname" On Error GoTo 0 where "macroname" was invalid, and where the code was excuted through an AutoOpen. That vendor removed the line of code, and the site is now up & running. However, we have found two other sites where the event fails to occur, and where we could isolate a single .DOT which controlled it. In these cases there were two different .DOTs triggering the problem, both of which include AutoOpen processing. However, as far as we can tell (one of those being from another product of ours) neither .DOT contains code in the above format. If you have any idea why this might happen, I would very much appreciate it if you could cc: any reply directly to me, as well as to the group. The test macro is as follows: ---- .bas module ------ Attribute VB_Name = "Test" Option Explicit Private moTest As CTest Sub TestWSC() If moTest Is Nothing Then MsgBox "Starting Test WSC" Set moTest = New CTest Else MsgBox "Stopping Test WSC" Set moTest = Nothing End If End Sub ---- .cls module -------- VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "CTest" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private WithEvents moWordApp As Word.Application Attribute moWordApp.VB_VarHelpID = -1 Private Sub Class_Initialize() Set moWordApp = Application End Sub Private Sub moWordApp_WindowSelectionChange(ByVal Sel As Selection) MsgBox "In WindowSelectionChange: Select text: " & vbCr & Sel.Text End Sub Public Property Get WordApp() As Word.Application Set WordApp = moWordApp End Property -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: is there any software for printing UPCs for free Tag: 83343
  - 21
    - How would I search for a word using regular expressions? I need to search for all whole words and whole words words that also contain hyphens. For example: B1-B2 This is what I have so far.. <([A-Za-z0-9][A-Za-z0-9]*)> Tag: is there any software for printing UPCs for free Tag: 83342
  - 22
    - Find/Replace Error I have code to find and replace strings of text within a document. However, I get a run-time error "5560" stating the Find What text contains a Pattern Match expression which is not valid. This is the code: FindAndReplace: Dim pFind As String Dim pReplace As String Dim pIndex As Long For pIndex = 1 To 14 pFind = Choose(pIndex, "{Name1}", "{Name2}", "{ClinicAddress}", "{Date}", "{DOI}", _ "M*.", "*male/female", "*his/her", "*he/she", "*He/She", "*man/woman", "*gentleman/woman", "*him/her", "*lady/gentleman") pReplace = Choose(pIndex, PatientFirstName, PatientLastName, ClinicAddress, ReportDate, DOI, _ Sex1, Sex2, Sex3, Sex4, Sex5, Sex6, Sex7, Sex8, Sex9) With Selection.Find .Text = pFind .Replacement.Text = pReplace .Forward = True .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll On Error Resume Next Next Can anyone tell me what is wrong with this code or possibly another way to do it? Thanks. -- singeredel (Julie) Tag: is there any software for printing UPCs for free Tag: 83332
  - 23
    - Is there a way to remove macros from normal.dot? I am using Word 2000 in a networked environment. I am creating a template for others to use; however, when I put in the macros for the template, I started getting error messages when opening other word documents not associated with the template. The macros are an AutoOpen, AutoClose, EnterKeyMacro. I am creating an online schedule form for our IT department and need the template to be available to everyone else in the department. But, I don't need the error messages when other documents are opened up. The template will have to be stored on a network drive everyone can access so that any changes can be done on the one template. Any help in this matter would be greatly appreciated. Thank you for your time. -- Mark Tyler Tag: is there any software for printing UPCs for free Tag: 83321
  - 24
    - Word mutti-session handling within VBA I have my VBA code fires up a word doc at run time, which does some search and text gathering and populates into an Access table, then it QUIT (by oWord.QUIT method). At this stage if the user opens another word doc, play around and exit, the "automated" word doc is prompted for "save/cancel" (I'm sure at this satge the "text gathering and populates into an Access table" hasn't completed yet). It ends up the populated info into the Access table is totally unexpected! In VBA, how to manage multi-sessions of MS Words (let's say some fire up by VBA, some fire up by user interactively)? Thanks Tag: is there any software for printing UPCs for free Tag: 83319
  - 25
    - Identify Tables Hi, I am dealing with a document which contains 4 different types of tables. Since each type of table triggers a different set of actions, is there a way to test tables with a unique identifier, which would categorize them ? Thanks in advance for your comments Cheers Carim Tag: is there any software for printing UPCs for free Tag: 83318
- Next
  - 1
    - Problem with DIR ChangeFileOpenDirectory _ "C:\Documents and Settings\Smith\My Documents\TXT\" Dir (activedirectory & "*.doc") fname = Dir If in that directory (TXT) exists only one file, fname is empty. If there are two or more files, then fname is the first filename it founds. What's the problem with this? Tag: is there any software for printing UPCs for free Tag: 83316
  - 2
    - fields, cross-references How can I cross-reference to field text so that the cross reference is updated when the field is updated? John Tag: is there any software for printing UPCs for free Tag: 83310
  - 3
    - Accessing Excel worksheets in a Word document (VB Word macro). Hello, would you please assist me in solving this problem: I have an Excel object (Excel.Sheet.1) in MS Word document. I'm trying to write a Visual Basic macro for MS Word to change the data in cell A1 of this table. How can I access the cell? I'll try to describe the table I have to work with: It's not a Word table. It's rather an Excel object present in my Word document. When it's activated a real Excel table with 3 sheets appears.. and if it's not activated, I just see a simple table which doesn't differ from a regular Word table. I would say it's an Excel OLE placed in the Word document I have to deal with. I was adviced to open Excel by using a filename but I don't have a separate Excel document which I open by using its name... I've applied the next to find out the name of my object: MsgBox ActiveDocument.Fields(1).OLEFormat.ProgID The result is: Excel.Sheet.1 What I've surely succeeded to do is activating the object. And it seems there are various ways of obtaining that, for example: ActiveDocument.Fields(1).DoClick ActiveDocument.Fields(1).OLEFormat.Edit ActiveDocument.Fields(1).OLEFormat.Activate ... and no way known to me to edit the object's contents... I suppose I have to apply DDE to the object in order to open Excel, edit it and then close Excel... I don't know how to do it yet... I hope that it's an easy task some one has already an idea of.. Thank you! Tag: is there any software for printing UPCs for free Tag: 83309
  - 4
    - AutoRecovery Save Hi, Is it possible to directly do an AutoRecovery save in VBA? It seems that the temporary file Word uses for changes becomes full before the autorecovery save time interval as occued. I use Word 2000. Thanks in advance! BAnders Tag: is there any software for printing UPCs for free Tag: 83307
  - 5
    - A simple question How would I modify this code to check first to see that there is indeed Phrases(0), Phrases(1), and Phrases(2) so I won't get an error if strSentence does not have 2 tabs in the sentence? thanks, ck Phrases = Split(strSentence, vbTab) str1 = Phrases(0) ' so you can see what they are str2 = Phrases(1) str3 = Phrases(2) Tag: is there any software for printing UPCs for free Tag: 83301
  - 6
    - can I use the Office 2003 dictionary in C#? Hi. I'm using C# (and the .net framework 2). can I use the Office 2003 dictionary? I want to search for translation of a word in the office dictionary and print the result. Is there a code sample anywhere? I couldn't find it. thank you. Tag: is there any software for printing UPCs for free Tag: 83298
  - 7
    - Keep Lines Together Could someone please tell the code to use Keep Lines Together on a selected paragraph? -- Thank you for your help! ilene Tag: is there any software for printing UPCs for free Tag: 83283
  - 8
    - Word printing I would like to see Word keep all print settings for each individual document, as Publisher keeps individual print settings for each document. I am using HP Officejet 7310 All-in-one printer. Changing paper trays, paper type, etc., requires changing half a dozen settings each time I print. This is very time consuming and frustrating. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=7879c181-6e22-4ad9-af0f-100da7d6ec33&dg=microsoft.public.word.vba.general Tag: is there any software for printing UPCs for free Tag: 83281
  - 9
    - Format Picture Word 2002 Windows 2000 I am using vba to insert a jpg. However, I would like the layout to be behinde text and cannot figure out how to add that to my vba coding. Just by inserting then the user can not move the jpg in the word document by dragging it. Thanks... Tag: is there any software for printing UPCs for free Tag: 83277
  - 10
    - Opening specific folder clicking user defined button Hello. In Word: I have created a new button (copy of Open folder) with company logo in the Standard menu. How can I attach a macro which opens a spesific folder, containing the templates I want the users to select? (and if you please, What should the code be?) (Windows XP under Win2000) Thank you Tom Tag: is there any software for printing UPCs for free Tag: 83274
  - 11
    - VBA paste clipboard picture Word 2002; windows 2000 Having a new document open and pressing a command button to run my VBA command: it opens a master document and copies a picture of a signature off the master document to the clipboard. It closes the master document and returns the new document letter that I am writing. It pastes the signature to the new letter. The problem is that it does not paste it where my cursor is. It pastes it at the top of the document. Is there something in my coding that would tell it to paste it at the insertion point. Thank you in advance... Tag: is there any software for printing UPCs for free Tag: 83273
  - 12
    - How do I stop being prompted to save a template I have a template for a document that includes a command button which when pressed will do a save by assigning a file name based on a text string and looking up a number from a flat file. As part of the save process, the number gets incremented. This all works fine. What doesn't work quite the way I'd like is that when closing a document created off the template, the user is asked if they want to save changes to the template as well as the new document. How can I prevent the prompt on saving changes to the template from appearing? Thanks for any suggestions. John Tag: is there any software for printing UPCs for free Tag: 83272
  - 13
    - Creating a macro that changes the layout of a form I need to create a macro that changes the layout of a form when the user selects a checkbox, but when I attach the macro to the desired checkbox, the only options are to activate the macro when the use enters or exits the field and not when they 'check' the box. Also, the macro places all of the desired formating additions where the checkbox used to be rather than where I intended for them to go. What can I do? Or, where is a resource that gives detailed descriptions about what I want to do? Tag: is there any software for printing UPCs for free Tag: 83271
  - 14
    - How do I get labels so they aren't manually fed? I need to have my labels print from a tray, not manually fed. However, the labels that print when you hit the envelope at the top of the page will not let me change the print option to Automatically select tray from manual feed. How can I change this default setting? I am using Word 2000. Tag: is there any software for printing UPCs for free Tag: 83270
  - 15
    - Add an Add-In across the network? Is it possible to add an Add-In that is located on a network drive? Or does it need to be located on the user's computer? Ed Tag: is there any software for printing UPCs for free Tag: 83269
  - 16
    - Error 4120 Bad Parameter What cause Error 4120? Combining some code discussed in my previous Two Questions post, I have put together a macro to validate and tally columns of checkboxes in a table. To duplicate, create a 4 column, 5 row table. Leave the first and last rows blank and the first column blank. Put checkboxes in the remaining cells: The following macro is set to run from a macrobutton in the document: Sub ValidateAndTally() Dim pTable As Word.Table Dim pFormField As FormField Dim pColumnCount&, pColumn&, i&, oLastRow Dim pCount() As Long Dim pColumnFlags() As Boolean Dim x As Long, y As Long, z As Long Dim bValidator As Boolean Set pTable = ActiveDocument.Tables(1) pColumnCount = pTable.Columns.Count oLastRow = pTable.Rows.Count ReDim pCount(1 To pColumnCount) ReDim pColumnFlags(1 To pColumnCount) On Error GoTo Handler ActiveDocument.Unprotect For Each pFormField In pTable.Range.FormFields pColumn = pFormField.Range.Cells(1).ColumnIndex If pFormField.Type = wdFieldFormCheckBox Then pColumnFlags(pColumn) = True If pFormField.CheckBox.Value Then pCount(pColumn) = pCount(pColumn) + 1 End If End If Next bValidator = True For x = 2 To pTable.Rows.Count - 1 With pTable.Rows(x) z = 0 For y = 2 To pTable.Columns.Count If .Cells(y).Range.FormFields(1).CheckBox.Value = True Then z = z + 1 End If Next y Select Case z Case Is = 0 MsgBox "You did not answer question " & x - 1 & "." bValidator = False Exit For Case Is > 1 MsgBox "You checked more than one answer to question " & x - 1 & "." bValidator = False Exit For End Select End With Next x For i = 1 To pColumnCount If pColumnFlags(i) Then If bValidator Then pTable.Cell(oLastRow, i).Range.Text = pCount(i) Else pTable.Cell(oLastRow, i).Range.Text = "Not Validated" End If End If Next ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True Exit Sub Handler: If Err.Number = 4605 Then ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True Resume Else MsgBox Err.Number & " " & Err.Description End If End Sub When I get it working, it seems to work as expected. However, when I unprotect and edit the form then reprotect, I almost always get errror 4120 bad parameter when I try to fire the macro with the macrobutton. If I then go into the editor and run the macro it runs fine and thereafter runs from the macrobutton without further problem. What is this bad parameter and how do I prevent it from happening. Thanks. Tag: is there any software for printing UPCs for free Tag: 83268
  - 17
    - Change spelling language How can I change language of spelling on the fly? I use CheckSpelling() method of Word.ApplicationClass Tag: is there any software for printing UPCs for free Tag: 83256
  - 18
    - Find replace text in a text box I need to use VBA to open a doc file find a placeholder in a text box and then replace it with a date. Eg the text is XXXXXX. and this needs to be replaced with date field. I can do this fine if the XXXXXX is in a normal documnet, but when I try and do it for a text box it cant find it. Can anyone please help? Tag: is there any software for printing UPCs for free Tag: 83255
  - 19
    - Table formatting I have a document that has about 60 tables in it. I'm working on a macro that will insert a row the second row, copy the formatting in row 2 column 1 and apply that to the rest of the cells in that column, copy the formatting in row 2 cell 2 and apply that to the rest of the cells in that column, etc., and then delete the extra row that was inserted to copy the formatting from. The formatting in the extra row contains a specific font size, style and a decimal tab. I have, however, been unsuccessful in finding how to copy the formatting of one cell and apply it to another. Is this possible? Thanks! Tag: is there any software for printing UPCs for free Tag: 83249
  - 20
    - Temporary Toolbars no longer being created Where should I be looking when I can no longer create a Temporary toolbar in VBA? They were working this a.m. They are not working this p.m. What do I need to restore, fix etc.? (When I step through the routine, no error messages occur until I get to the line CommandBars("NewBar").Visible = True Then I get the error message Runtime Error 5 Invalid procedure or argument. (And I am sure it is the argument, since "NewBar" is not being created.) It's the strangest thing. Thanks for whatever you can offer. Restore Word? Ed (in Virginia) Tag: is there any software for printing UPCs for free Tag: 83247
  - 21
    - .Styles.Add problem I've run into a problem with case sensitivity and .Styles.Add. Style names are case sensitive (a document can contain styles named "atest" and "ATEST" at the same time). You can add case sensitive style names manually but not using .Styles.Add. For example if I: 1. Add a style named "ATEST" to a document. 2. Run one line macro: ActiveDocument.Styles.Add "atest" I get error 5173 "This style name already exists or is reserved for a built-in style." But if use Format>Style...>New to add a style named "ATEST" to a document and then use Format>Style...>New to add another style named "atest" to the same document there's no problem and both styles co-exist happily. Is there any way around the case-sensitivity of .Styles.Add or am I going to have to rethink the style names? There's several million documents involved in this situation so obviously changing the style names is not trivial. Many thanks for any thoughts... Tag: is there any software for printing UPCs for free Tag: 83246
  - 22
    - How to find the bottom of a table in VBA From template code I need to place images along the right side of my reports, with text on the left. I currently use a table positioned to the right margin for placing these images. I then fill other tables positioned on the left margin with text. All the tables are of varied length, filled from text read from files. I would like to widen the rows in the text tables once they safetly pass the bottom of the image table, but am finding it very difficult to get the needed information from the 'Range.information' object. If anyone has any solutions for this it would be greatly appreciated. Thank you in advance. Additional info- Version: word 2003 Have tried placing a 'right justified' bookmark under each table in the hopes of finding out it's wdVerticalPositionrelativePage, but this consistantly gives the right margin (even when I see the bookmark is actually 3 inches to the left!) It seems word is measuring from an assumption that my bookmark is right justified so it must be on the margin.) Tag: is there any software for printing UPCs for free Tag: 83245
  - 23
    - Macro to convert multiple RGB colors to Red I need to convert word documents which have a large part of the text in multiple custom RGB values to standard red RGB (255, 0, 0). I have already made some other format changes editing macros but I am an absolute beginner in VB. Can anyone help me with the VB code? -- XGP Tag: is there any software for printing UPCs for free Tag: 83244
  - 24
    - Problem with DIR Looping thru directory, doing something to the files in there. The problem is that there will allways be one file which is not processed. Ie. when there are only one file left on directory, DIR is empty. Why so? Sub test() ChangeFileOpenDirectory "C:\test\txt\" Dir (activedirectory & "*.txt") fName = Dir While tiedosto <> "" Documents.Open FileName:=fName '''' do something to the file ActiveDocument.Close Kill fName Dir (activedirectory & "*.txt") fName = Dir Wend End Sub Tag: is there any software for printing UPCs for free Tag: 83242
  - 25
    - digital signature handling after mail merge I have a Word document (Word XP) with a button hooked to some VBA that performs a mail merge. The VBA hides the button, performs the merge, closes itself and leaves the user with the newly merged document. Works great. The problem occurs when the user goes to save the merged document. Up comes an error: "You have modified a signed project. You do not have the correct key. The digital signature will be discarded." I've seen this message before when someone modifies the VBA on a document where they don't have the digital signature. When I look in the VBA editor for the merged document, there is no code. I assumed that the document created by the mail merge was not copying my VBA code (which is just what I want). But it seems as if the digital signature is still there. And why would this message occur when the document was modified and the code wasn't? Is there a way to remove the digital signature before the mail merge? I tried accessing the Me.Signatures property of the document, but it was empty. Thanks for any assistance, Tag: is there any software for printing UPCs for free Tag: 83239

Re: is there any software for printing UPCs for free by Doug

Doug
Wed Mar 29 13:22:28 CST 2006

Try Google

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"joeholmes" <joeholmes@discussions.microsoft.com> wrote in message
news:F7E69C07-5FF2-4DF8-93BF-E77BDA38762A@microsoft.com...
>

Top