Zoom userform video mode

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Does a paragraph know it is in a table? I have some code that iterates through the paragraphs in the paragraph collection of the ActiveDocument and sets the LeftIndent for the paragraph based on the paragraph above it (actually the TextPosition property of a List item above it). Everything is fine until I hit a paragraph that is actually embedded in a table cell instead of being free standing. The result is that the LeftIndent for the text does get placed where I want it (inside the cell), but the table that it lives inside is still flush left and I'd like to move it over too. This is complicated when there are two columns in this table... my code finds the paragraph in the second column as well and sets its indent relative to the left edge of the 2nd column, which I don't want to do at all. So tables and paragraphs intermingle, but the paragraph collection doesn't seem to know about the tables and the table collection doesn't know about paragraphs. Here's a snip of code (see embedded comments): intOutlineLevel = 0 intTextPositionAbove = 0 For Each para In ActiveDocument.Paragraphs If Mid(para.Style, 1, 9) = "MM Topic " Then intOutlineLevel = para.OutlineLevel intTextPositionAbove = para.LeftIndent para.Range.ListFormat.ApplyListTemplate _ ListTemplate:=ltTemp, ContinuePreviousList:=True Else If (para.Style = "Normal" Or Mid(para.Style, 1, 3) = "MM ") Then ' If this para is in a table, I'd like to indent the table instead of the paragraph ' If this para is in the second column of a table I don't want to indent at all! If (para.LeftIndent - intTextPositionAbove) <= 0 Then para.LeftIndent = InchesToPoints(0.25 * intOutlineLevel) Else para.LeftIndent = InchesToPoints(0.25 * intOutlineLevel) + _ (para.LeftIndent - intTextPositionAbove) End If End If End If Next para Thanks in advance for your ideas... Dale Tag: Zoom userform video mode Tag: 64956
  - 2
    - Inserting images I am looking for a way to select and add images to a protected word document. I understand the process to unprotect and protect via vba, but I need to select the image, force it to resize to a specifc size and then place it in the document at a booknark and then protect the document. Any suggestions would be appreciated R Lampky Tag: Zoom userform video mode Tag: 64955
  - 3
    - Create Word doc from HTML by code Hi all, I have a task to create a Microsoft Word document from a html document. Itâ??s part of Microsoft Word automation code (it means VB or .NET code). The automation code will read html stream and build word document with some formats similar to html. I donâ??t have clue. Anyone knows how to do it? Or where can I find that information (components can buy, or even where to post this information properly). Thanks. Shaw Tag: Zoom userform video mode Tag: 64953
  - 4
    - Docking custom toolbars with BuiltIns I have created an addin that creates on CommandBar with one button control to run it. In a code module I have written the creation and settins methods which are call by code inside: ThisWorkbook Sub Workbook_Open() When I wrote the setting for the toolbar, I included position setting With TBar .Name = CBarName .Top = 0 .Left = 0 .Visible = True End With which creates a floating toolbar in the top left. So I tried NOT using the . top and .left and instead using .position = msoBarTop But that just centers the toolbar on screen. How can I dock a custom toolbar into Excel's already present area up top. What is that area called? and How do I access it? Tag: Zoom userform video mode Tag: 64951
  - 5
    - Real Estate Closing Statement Looking for a simple closing statement not a hud 1 Tag: Zoom userform video mode Tag: 64947
  - 6
    - Can anyone fix one line of VBA code for Word to text conversion? The following VBA script opens Word documents in the directory C:\src, and saves their contents as text files in the directory C:\dest. Unfortunately, the saved text files include Word formatting, which crimps my plan to index the contents with Perl. I would much rather that the files be saved as plain text. The line that I think needs fixing is indicated with an arrow (<----**). Does anyone have any ideas? Thanks much. Sub SaveAllWord() Dim srcPath As String Dim destPath As String Dim sName As String Dim dt As Document srcPath = "C:\src\" destPath = "C:\dest\" sName = Dir(srcPath & "*.doc") Do Set dt = Documents.Open(srcPath & sName) dt.SaveAs ActiveDocument.SaveAs destPath & dt.Name & ".txt", _ FileFormat = wdFormatText '<----** ActiveDocument.Close SaveChanges:=False sName = Dir() Loop While sName <> "" End Sub -- admin4office_perl_programmer. Tag: Zoom userform video mode Tag: 64942
  - 7
    - VBA Forum http://excelvba.proboards42.com/ Tag: Zoom userform video mode Tag: 64939
  - 8
    - Supprressing Warning message from Macro I have written a macro in Word VBA using Word 2002. This macro opens an excel spreadsheet then copies some graphs into a Word document. However, because the excel file contains macros, the Word macro halt execution due to a warning message that the file contains macros and ask if I want to continue. I would like to suppress this warning message from within the Word macro such that the macro will continue to run. Any and all help would be greatly appreciated Tag: Zoom userform video mode Tag: 64929
  - 9
    - I don't want reviewing available every time I open a document. Ho. This is getting extremely frustrating to have changes that have been accepted or rejected keep popping up. We do a lot of electronic submissions to clients, and we don't want them to see these changes. I really wish Microsoft would stop guessing what we users really want -- it's usually the wrong guess! Tag: Zoom userform video mode Tag: 64928
  - 10
    - split document by pages Hi, I need to split a Word 2003 doc in multiple docs with a predefined number of pages (eg, 10 pages). Therefore, all the docs created will have 10 pages (except the last maybe). One way is move through the pages of the original doc (starting from the beginning, iteratively until de end) creating docs and copying each block of 10 pages read. Any hint (with sample code)? TIA, ram Tag: Zoom userform video mode Tag: 64926
  - 11
    - Embedded Button in Word Document Good afternoon! As the sun sinks slowly into the west, one last question before the weekend. Is it possible to create a button which is embedded directly into a document, which can be attached to VBA code. I know you can do this in Excel, I just can't find the command button tool anywhere in Word. Thanks in advance & have a good weekend! Pete Tag: Zoom userform video mode Tag: 64924
  - 12
    - Making a macro pause for a few seconds Can anyone tell me how to accomplish this, please? Excel has a WAIT function, but Word doesn't seem to recognize it. Thanks Pete Tag: Zoom userform video mode Tag: 64902
  - 13
    - Digitally signing macros Hi! I've created a couple of macros that I'd like to digitally sign. I just want to issue a certificate myself and use that so the security level can remain at "High". I've used selfcert.exe to create a certificate but when I sign the macro and save my template I get an error: "There was a problem with the digital certificate. The VBA project could not be signed. The signature will be discarded." How can I solve this?? Thanks in advance. Morten Tag: Zoom userform video mode Tag: 64898
  - 14
    - serial port communications This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C525BF.24031450 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am looking for a way to do serial port communications directly from = excel. I have been experimenting with mscomm.dll. It seems to have = problems getting data from the serial port sending is no problem. Is = there a better solution than mscomm? --=20 K.Brown /************************************************************************= ***** To the optimist, the glass is half full.=20 To the pessimist, the glass is half empty.=20 To the engineer, the glass is twice as big as it needs to be.=20 *************************************************************************= *****/ ------=_NextPart_000_0008_01C525BF.24031450 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2604" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>I am looking for a way to do serial = port=20 communications directly from excel. I have been experimenting with = mscomm.dll.=20 It seems to have problems getting data from the serial port sending is = no=20 problem. Is there a better solution than mscomm?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BR>--=20 <BR>K.Brown<BR>/*********************************************************= ********************<BR> =20 To the optimist, the glass is half full. <BR>  To the pessimist, = the glass=20 is half empty. <BR>  To the engineer, the glass is twice as big as = it needs=20 to be.=20 <BR>*********************************************************************= *********/</FONT></DIV></BODY></HTML> ------=_NextPart_000_0008_01C525BF.24031450-- Tag: Zoom userform video mode Tag: 64872
  - 15
    - Creating a macro to open a dialog box. Using MS Word 2003 I would like to create a macro that opens a dialog box that prompts the user to accept or deny certain terms. The best example I can use is a EULA. Either you agree to the terms and the document opens, or you disagree and document does not open. Trying to figure this out alone is quite difficult, and any assistance offered will be greatly appreciated. Can anyone help me with this issue? Tag: Zoom userform video mode Tag: 64870
  - 16
    - Possible to Read/Write Word Docs without Word Application? hi! Is it possible to Manipulate (Read/Write) MS Word documents without installing Microsoft Word. i.e if i dont have MS Word installed on my machine and i want to add some lines of text into Word document programatically. How is it possible? Thanks Ahmad Jalil Qarshi Tag: Zoom userform video mode Tag: 64869
  - 17
    - How to create a button with menu in Word Toolbar A button on the Word Toolbar, with a dropdown menu on the right side. Just like the Underline button on word toolbar, shown in the following picture. http://lidelu.w4.900host.com/temp/dropdown.gif How can I create this kind of button in my VBA program? Tag: Zoom userform video mode Tag: 64864
  - 18
    - Find PaleBlue and Replace with Yellow in all Tables I have a Word 2003 document with a number of tables that have certain cells with a pale blue background. I wish to change the background colour of these cells to Yellow. I thought I could do it with find and replace, but have had no success. I'm wondering if someone could help with a macro to achieve this. Mark Tag: Zoom userform video mode Tag: 64860
  - 19
    - Update only certain fields in template I have a template that has several document variables and text fields in it. There are 2 userforms that allow a user to update the document by dropping the text into the fields and updating them. One of the userforms works great, it updates and all is fine. The other one however clears all text in text fields when it updates. The code is the same for both userforms with the exception of the variable names, so I don't understand why they act differently. Perhaps it would be better if I could be more specific in telling Word what I want to update. Question: is there a way to specify only certain fields be updated? Thanks in advance SRD Tag: Zoom userform video mode Tag: 64853
  - 20
    - Retrieve data from LDAP I'm trying to retrieve a user's name, phone, fax, and e-mail address from an LDAP server and pre-fill textboxes in a Word userform based on the user who logs in. Does anyone know of some code or reference they can point me to? I'm currently using Excel for the database after following the information on the Word MVP site "Retrieving Data from a Named Range in Excel using DAO" but would prefer not to have to maintain a second list of data. Any help would be greatly appreciated. Thanks. PBC Tag: Zoom userform video mode Tag: 64852
  - 21
    - office 2000 error message while trying to install I have a copy of msoffice2000 that I'm trying to install on a new computer. the installation dosen't get very far when it gives error1305 missing file F:\PFiles\MSOffice\Office\Bitmaps\Dbwiz\INVENTRY.GIF. I can't just skip this file and continue installing. I can only retry or cancel the install altogether. How do I go about getting this file so I can install it? -- Message posted via http://www.officekb.com Tag: Zoom userform video mode Tag: 64851
  - 22
    - Any way to open an encoded text database in Word that won't conve. I'm trying to retreive a database (MDB file) in Word and have been unable to convert the file. I have tried all the encoded text file troubleshooting steps, short of running the Office set-up program again. Any other suggestions? I need to get a large mailing out... Note: I am using Office XP Small Business Tag: Zoom userform video mode Tag: 64850
  - 23
    - writing wizards... what products/tools are needed to write an original wizard to generate a word document?... just wondering where to start.... Tag: Zoom userform video mode Tag: 64843
  - 24
    - Emailing single Worksheet Hello from Steved I got the below by going through Google. The objective is to email a single Worksheet. I'm getting a error Invalid procedure call or argument. Please help Thankyou. Sub eMailActiveWorksheet() Dim OL As Object ' Outlook instantiation Dim EmailItem As Object ' A new mail item (e-mail) Dim FileName As String ' The name of the file we are attaching Dim lngLoop As Long ' counter for the FileName length Dim TempChar As String ' used for the loop to test for unusable characters Dim SaveName As String ' Attachment's new name, after cleaning Application.ScreenUpdating = False ' speed up Excel processing time Set OL = CreateObject("Outlook.Application") ' New Outlook application Set EmailItem = OL.CreateItem(olMailItem) ' new MailItem FileName = ActiveSheet.Name & "1-City" & ActiveWorkbook.Name ' create a filename on the fly For lngLoop = 1 To Len(1 - City) ' error check for unusable chars in the filename TempChar = Mid(1 - City, y, 1) Select Case TempChar Case Is = "/", "\", "*", "?", """", "<", ">", "/" Case Else SaveName = SaveName & TempChar End Select Next lngLoop ActiveSheet.Cells.Copy ' copy the contents of the ActiveSheet Workbooks.Add ' create a new workbook Selection.PasteSpecial Paste:=xlValues ' paste the worksheet values into the new book Selection.PasteSpecial Paste:=xlFormats ' and their formats ActiveWorkbook.SaveAs "C:\Temp" & SaveName ' temp file attachment location ActiveWorkbook.ChangeFileAccess xlReadOnly ' make access read only With EmailItem ' with the newly created e-mail .Subject = ActiveWorkbook.Name .Body = "This is an example of a single worksheet sent by VBa mail" .To = "1-Depot" .Importance = olImportanceNormal 'Or olImportanceHigh Or olImportanceLow .Attachments.Add "C:\Temp" & SaveName .Send ' send the worksheet End With Kill "C:\Temp" & SaveName ' delete the temporary attachment ActiveWorkbook.Close False ' close down the workbook without saving (single sheet) Application.ScreenUpdating = True ' always remember to switch it back on!! Set OL = Nothing ' clean down memory Set EmailItem = Nothing End Sub Tag: Zoom userform video mode Tag: 64841
  - 25
    - col in status bar Is there a way to access the Col value in the status bar with VBA? I want to be able to replace the indents and tabs with spaces so I can create a txt file maintaining the layout of the document. I am using a monospaced font throughout the document and have to append several word, wordperfect and amicus format documents to create 1 large document. Tag: Zoom userform video mode Tag: 64840
- Next
  - 1
    - Run-time error '4608' Hi, I am frustrated. I keep getting the error Run-time error '4608' Valule out of Range. Here are the details. This error only occurs in a specific Word 2003 document. It happens when I click either one of two buttons on my toolbar that are linked to a macro that sends the document to either the upper or lower printer tray. Here is the VBA code for the macro: Option Explicit ------------------------------------------ Sub UpperTray() Dim OriginalFirstPageSetting As Long Dim OriginalOtherPagesSetting As Long Dim FirstPageTray As Long Dim OtherPagesTray As Long Dim wdPrinterMiddleBin As Long With ActiveDocument.PageSetup OriginalFirstPageSetting = .FirstPageTray OriginalOtherPagesSetting = .OtherPagesTray .FirstPageTray = wdPrinterMiddleBin .OtherPagesTray = wdPrinterMiddleBin ActiveDocument.PrintOut .FirstPageTray = OriginalFirstPageSetting .OtherPagesTray = OriginalOtherPagesSetting End With End Sub --------------------------------------------------- Sub LowerTray() Dim OriginalFirstPageSetting As Long Dim OriginalOtherPagesSetting As Long Dim FirstPageTray As Long Dim OtherPagesTray As Long With ActiveDocument.PageSetup OriginalFirstPageSetting = .FirstPageTray OriginalOtherPagesSetting = .OtherPagesTray .FirstPageTray = wdPrinterLowerBin .OtherPagesTray = wdPrinterLowerBin ActiveDocument.PrintOut .FirstPageTray = OriginalFirstPageSetting .OtherPagesTray = OriginalOtherPagesSetting End With End Sub Can anyone help? Thanks. Tag: Zoom userform video mode Tag: 64839
  - 2
    - "protect document" is disabled... i am creating a MS Word 2000 form .dot. I want to "protect document > forms" so that people can tab through and answer question. The document was actually two documents that I put together and are kind of in different formats. My "protect document" selection is Greyed-out... What does this mean? Tag: Zoom userform video mode Tag: 64838
  - 3
    - disabling spell checker I'm developing a spell checker for our local language using VC++. it is to be implemented as an Add-in for Word. So how do i disable the english spell checker progmatically using my code? Also will it be possible for the add-in to work with all versions of word??????? Tag: Zoom userform video mode Tag: 64834
  - 4
    - Adding font name Hi All I have the following code which types "ABCD..." in each font type that you have on your PC. I want to also add each font name to the generated document next to each the corresponding line of text in that font, e.g. ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 123456789 - Arial Sub listfonts() Documents.Add For Each thisfont In FontNames With Selection .InsertAfter "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 123456789" & vbCr .MoveUp unit:=wdParagraph, Count:=1 .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend .Font.Name = thisfont .Font.Size = 10 .MoveDown unit:=wdParagraph, Count:=2 End With Next End Sub Any help would be appreciated. Thanks Tag: Zoom userform video mode Tag: 64833
  - 5
    - Unique identifier (uid) Is MS Word able to generate unique identifiers (uid) like the AutoNumber in Access? Tag: Zoom userform video mode Tag: 64832
  - 6
    - Running template code after a 3rd party app runs We have a 3rd party app that uses Word as its report writer. I would like to run additional code from within the template after the app is done and has filled-in all bookmarks. If I put my code in an AutoNew procedure in the template, it executes before the other app is done. I can force it to run later by putting a delay in the AutoNew and calling the code from another sub (Application.OnTime Now + TimeValue("00:00:05"), "NewProcedure", but I can't always be sure how long the 3rd party app will require. Is there a way other than a time value to control starting the code when the other app is complete? Thanks very much! Tag: Zoom userform video mode Tag: 64831
  - 7
    - Specail Numbering using Field Codes I need to autonumber several cells in a table. I'm sure I can use field codes to help customize this: the number should look like this "EAP.01.001" EAP. - first three letters are subjective (I'll type those in) 01. - second set of numbers need to reflect the number of the Numbered Heading 001 - third set is just autonumber with an additional 0 in front. I have surfed the discussion group for an answer and I have gleemed pieces and parts but since I don't totally understand field code jargon, I can't seem to make sense of it. I appreciate your help! -- Thank you, scrowley@littleonline.com Tag: Zoom userform video mode Tag: 64827
  - 8
    - How to determine when Word has completed printing? I am using VB6 to control Word to create and print a document. After printing I am quitting Word, but itr seems Word is still printing. How can I pause or wait until word is completed printing? Thanks in advance, WayneM Tag: Zoom userform video mode Tag: 64825
  - 9
    - Creating a Word Doc from an Access Record Hi all, I need to create a document from an Access record. I don't think I can use a report because there are so many variables. If certain things are checked it will be in the document if it isn't i need the document to shift so there won't be any white space. The problem is I may print [InsuredName] on one line and then at column 130 on the same line I need to print the [CompanyName]. I tried tabbing after [InsuredName] but that won't work bc some letters are wider than others. There is no way to know how many Tabs I'll need after [InsuredName] to get to column 130. I tried using objWord.selection.Information(wdFirstCharacterColumnNumber) but Access didn't recognize the constant wdFirstCharacterColumnNumber. Any help would be very much appreciated! TIA Ted Tag: Zoom userform video mode Tag: 64824
  - 10
    - VBA equivalent of a cell margin's "Same as Whole Table" check All the help documentation says is if, say, the .LeftPadding property is set, it overrides the tables .LeftPadding property. I need to do the opposite: make the cells follow the default table.LeftPadding property. Word seems not to have anything like Selection.Tables(1).Cell(1, 1).LeftPadding ="Back to the Deftaul" Thanks for your help! Tag: Zoom userform video mode Tag: 64820
  - 11
    - how do I read contact names from Outlook address book? I need to populate a listbox in Word with every forename and surname in the Outlook Address Book (global address list). This is so that authors can use the template and select their name form the listbox. I'm using Word 2003 and Outlook 2002, but this may vary. -- Thanks in advance, Stephenc Tag: Zoom userform video mode Tag: 64818
  - 12
    - View Markup in Template Offspring - How to turn it off? I have searched hi and low and read several threads and articles about Word's newest "feature" (the one that will finally cause me to say FrameMaker is better, BTW). I understand how to turn off markup in my document but I cannot seem to turn it off when someone creates a document based on a template I've created. Here's what I do to the template to make sure it's "clean": -View Markup. -Accept all changes. -Change view from Final showing markup to Final. -Turn off Reviewing toolbar. -Save template. I also have the following option cleared in Tools>Option, Security tab: Make hidden markup visible... I did this to over 30 templates yesterday. Today I created a new document based on one of those templates, and that d#$& markup appeared. I don't want View Markup to automatically come on every time someone creates a new document based on one of my templates. What do I need to do in the template to ensure that this doesn't happen? This is the absolute worst feature I've ever had to deal with in word. Bad, bad, bad, bad. finished whining now. :-> Please help. Sheila Tag: Zoom userform video mode Tag: 64816
  - 13
    - Toolbar button for all users Hi! I'm sure this has been asked a million times before: How du you add a button to the Word standard toolbar (pointing to a macro) and make that available to all users on a terminal server? I've tried saving the document containing the toolbar as a .dot file and put that in C:\Program Files\Microsoft Office\OFFICE11\STARTUP but the toolbar isn't modified:-( Thanks in advance Morten Tag: Zoom userform video mode Tag: 64812
  - 14
    - How do I read the content from a given listbox? I have a two-column listbox, populated with paths in column 1 and filenames in column 2. How do I get the text from just column 2? -- Stephenc Tag: Zoom userform video mode Tag: 64805
  - 15
    - Set FileSave dialog to be 'cancel' Hi. me again how can I tell word when I quit the word.application object to not come up with a dialog wrd.quit SaveChanges:= cancel ? somehow wrong Gina Tag: Zoom userform video mode Tag: 64802
  - 16
    - Insert chart into Word I posted this in the Excel programming NG, but to no avail...thought I'd try it here. I would like to have a macro (I'm actually writing it in Excel) that would take the active chart and paste it into an open Word document at the current location of the cursor. Unfortunately, I'm much more familiar w/ the Excel object model than the Word object mode. I have the following code, but can't quite figure out what object(s) need to go where the XXXX is. Oh, and I'm more concerned about getting this to work rather than what's better (imagefile, metafile, etc). Thanks in advance! Sub PortToWord() Dim WrdDoc As Word.Document Set WrdDoc = Word.ActiveDocument ActiveChart.Copy WrdDoc.Range.PasteSpecial DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False End Sub Tag: Zoom userform video mode Tag: 64796
  - 17
    - check box won't uncheck I've got some checkboxes on a user form that check/uncheck and enable/unenable depending on each other's values. Trouble is, in the following code the .chkAndByPost.Value won't change to false even though the conditions are met for it to do so and the following line of code (.chkAndByPost.Enabled = False) runs correctly. Can anyone tell my why my code won't change .chkAndByPost.Value to False in the following code? Many many thanks for any feedback... Sub tickIsToFax() With objForm .txtToFaxNumber.Enabled = .chkIsToFax.Value If .chkIsToFax.Value = True Then .chkAndByPost.Enabled = True .txtToFaxNumber.BackColor = RGB(256, 256, 256) 'white .txtToFaxNumber.SetFocus Else Select Case .chkIsToEmail.Value Case True .chkAndByPost.Enabled = True Case False ' Even though this code runs, ' the value won't change to False .chkAndByPost.Value = False .chkAndByPost.Enabled = False End Select .txtToFaxNumber.BackColor = RGB(192, 192, 192) 'grey End If End With End Sub Tag: Zoom userform video mode Tag: 64795
  - 18
    - multi access form I have been asked to create a form that asks the users to fill out the details and thats that....ONLY ITS NOT....they want it so the next time they open the completed form they are able to add another answer to the same question under the previous answer.. How is this done..so it knows there is already an answer there but it needs to place another reply underneath....bearing in mind there is several questions in a kind of table format. Thanks in advance, Mat Tag: Zoom userform video mode Tag: 64783
  - 19
    - Open properties box on close Hi, I'm in no way a programmer but I have a programming type query. Is it possible to force Word to open the Document Properties box either on saving the said document or closing the document using macros or vba or something? Thanks in advance MC -- Mark Cann ICT Adviser Tag: Zoom userform video mode Tag: 64774
  - 20
    - Stripey Tables Good morning, all! Following on from the success of my checkerboard table yesterday (thanks to all who helped!), I now want to do something that I thought would be simpler, but in fact has turned out to be more problematical. I now want to colour alternate columns in the table in one of two different colours, to produce a striped effect. However, when I get to the indicated line in the code below, I get "Object doesn't support this property or method" I'm sure this should be quite easy to get around - I would have thought that each member of a column would be a cell, but I'm obviously wrong - can anybody help me out with the correct syntax, please? Thanks in advance Pete Sub VStripeGrid() SetRGBColours ' Subroutine to set RGB sequences to colour variable names GridReset ' Subroutine to sets all cells back to white FirstForegroundColour = Black FirstBackgroundColour = Custom1 FirstTexture = wdTextureNone SecondForegroundColour = Black SecondBackgroundColour = Custom2 SecondTexture = wdTextureNone 'Set ThisTable = ActiveDocument.Tables(1) If Not Selection.Information(wdWithInTable) Then MsgBox ("Select a table before running this macro") Exit Sub End If Set ThisTable = Selection.Tables(1) ColumnCount = ThisTable.Columns.Count RowCount = ThisTable.Rows.Count 'MsgBox (RowCount & " rows by " & ColumnCount & " columns") SetRGBColours For ColumnCounter = 1 To ColumnCount If ColumnCounter Mod 2 = 1 Then 'odd numbered column MsgBox ("Column " & ColumnCounter & " of " & ColumnCount) ----> For Each CellToColour In ThisTable.Columns(ColumnCounter) With CellToColour.Shading .ForegroundPatternColor = FirstForegroundColour .BackgroundPatternColor = FirstBackgroundColour .Texture = FirstTexture End With Next CellToColour End If If ColumnCounter Mod 2 = 0 Then 'even numbered column For Each CellToColour In ThisTable.Columns(ColumnCounter) With CellToColour.Shading .ForegroundPatternColor = SecondForegroundColour .BackgroundPatternColor = SecondBackgroundColour .Texture = SecondTexture End With Next CellToColour End If Next ColumnCounter End Sub Sub SetRGBColours() Black = RGB(0, 0, 0) Blue = RGB(0, 0, 255) Green = RGB(0, 255, 0) Cyan = RGB(0, 255, 255) Red = RGB(255, 0, 0) Magenta = RGB(255, 0, 255) Yellow = RGB(255, 255, 0) White = RGB(255, 255, 255) Custom1 = RGB(200, 150, 150) Custom2 = RGB(100, 100, 100) End Sub Sub GridReset() Set ThisTable = ActiveDocument.Tables(1) ColumnCount = ThisTable.Columns.Count RowCount = ThisTable.Rows.Count MsgBox (RowCount & " rows by " & ColumnCount & " columns") SetRGBColours For RowCounter = 1 To RowCount For ColumnCounter = 1 To ColumnCount Application.StatusBar = "Processing Row: " & RowCounter & ", Column " & ColumnCounter 'MsgBox ("Row " & RowCounter & ", Column " & ColumnCounter) CellToColour = ThisTable.Cell(Row:=RowCounter, Column:=ColumnCounter) With CellToColour.Shading .ForegroundPatternColor = Blue .BackgroundPatternColor = White .Texture = wdTextureNone End With Next ColumnCounter Next RowCounter End Sub Tag: Zoom userform video mode Tag: 64771
  - 21
    - Appearance of message box Hello, Does a message box always pop up at the top of the screen? Is it possible to position it between 2 open documents so that the message box only becomes visible after the first document is closed. Is there some code for? Alternative question : can I change to coordinates on the screen at which the message box shows up? Thanks Tag: Zoom userform video mode Tag: 64769
  - 22
    - Update Template Files - AddIns? Hi All, I'm after some advice about the best way to setup some templates and have them update. What I would like to do is be able to update a series of template files after the user has chosen a header (company logo we have more than one) and a footer (office addresses we have about 10). The story so far is that I have created a single template using AutoText and user forms and I can get the template to add headers and footers ok. change them etc. But it will prompt the user to choose each time they open a document based on the template. What I would like to happen is that once user has chosen logo and office address, is for the template document to be updated so that they are not prompted again when they open a new document. (Template files to be down loaded to users PC's) The thing is that there will be at least 6 or 7 template files and I would prefer that the choice for headers and footers is only done once and that they will update all templates regardless of which template they choose first. I've read some posts and looked on the net for info on AddIns but not really sure if this is the way to go, or how to set these up. I know that this a long post and thanks for reading this far. Any advice welcome -- TIA Mark Tag: Zoom userform video mode Tag: 64768
  - 23
    - Help me out with bullet styles Hi to all. Am a new member. I am working on a macro for Changing the bullet styles in my document from bullet 3 to bullet style 1 whenever i come across bullet style 3. Do anyone of you know how to do it. Vijay Tag: Zoom userform video mode Tag: 64766
  - 24
    - How to create a button with menu in Word Toolbar A button on the Word Toolbar, with a dropdown menu on the right side. Just like the Underline button on word toolbar, shown in the following picture. http://lidelu.w4.900host.com/temp/dropdown.gif How can I create this kind of button in my VBA program? Tag: Zoom userform video mode Tag: 64762
  - 25
    - Functionality for setting Default Signer in Word, Excel Hi guys, I am using Office 2003 and enjoying the feature of digitally signing word and excel documents. I need to know whether there is some setting to set the default signer ? At the moment when ever I sign, I get this window to select the signer certificate. In Outlook Express and Outlook 2000 there is a feature to set signer certificate but this seems to lacking in other office application like Word, Excel and Power Point. Is there some way to configure this using registry settings of office not to ask for signer certificate and use an already set certificate. If not is there any VBA function to set this ? Thanks for reading, Wahaj -- Visit our new website at: www.ascertia.com Tag: Zoom userform video mode Tag: 64760

I know I can find the current video mode (resolution).(Works great in word
too; http://j-walk.com/ss/excel/tips/tip06.htm) but is it a way to zoom the
userforms in WORD in such a way that they look "almost" the same size
regardless what video mode is set?
arne

Top