Make Styles and Formatting Task Pane Visible

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Creating a Preview Window in a User Form (Word 2002) Ideally, what I'd like to do is create a UserForm that displays a list of Word docs in a particular directory in a ComboBox. As the user selects different documents in the ComboBox, another Control on the form displays the text of the document, preferably in it's Rich Text Format - but even regular text would be okay. Exactly like how the preview window woks in the AutoText menu. Here's the catch though, I'd like to be able to read from the documents without actually opening them. Sort of like the .InsertFile method, but instead of putting the text into a document, I would want to put that text onto a Control. The text that needs to be previewed from each document WILL be encapsulated in a uniquely named BookMark though. I know how to put the File names into the ComboBox, the part I'm stuck on is being able to read the BookMakrked text from another file WITHOUT opening it (if that's even possible). I would also prefer not having to open a new document or insert anything into the document the UserForm is attached too. Word Version Info: Word 2002 (10.6818.6817) SP 3 Tag: Make Styles and Formatting Task Pane Visible Tag: 96398
  - 2
    - Remove Text I'm using the following code to remove some text form fields plus a logo i have at the top of my template. ub RemoveHeader() ActiveDocument.FormFields("Text12").Delete ActiveDocument.FormFields("Text13").Delete ActiveDocument.FormFields("Text14").Delete ActiveDocument.FormFields("Text15").Delete ActiveDocument.FormFields("Text16").Delete ActiveDocument.FormFields("Text17").Delete ActiveDocument.FormFields("Text18").Delete ActiveDocument.Shapes(1).Delete I would like to modify the code so that I can delete two words located at the top of the document. The word "Telephone" and the word "Facsimile." I have tried using the following, however, it does not work: Selection.Find.Text = ("Telephone") Selection.Delete Can someone tell me what I'm doing wrong? thanks, Tag: Make Styles and Formatting Task Pane Visible Tag: 96386
  - 3
    - Macro won't run on "read only" document. I have assigned a simple sorting macro to my word 2007 table. The document is save in a file that has the access locked down making it "read only" to anyone who does not have access to change the document. I have set the macro security to low, but still can't get them to run for anyone who does not have access to change. Is there a way to get around this problem? -- Thank you. Tag: Make Styles and Formatting Task Pane Visible Tag: 96383
  - 4
    - Can't save Word Macro I have written the same two or three marcos about a dozen times and Word keeps dumping them. It is as if is not updating the Normal template or something. Any ideas? Thanks- Tag: Make Styles and Formatting Task Pane Visible Tag: 96381
  - 5
    - combobox that can be seen every pages Hi, Lets say I have a word doc. which is 30 pages. Every pages has its subject. 1-I would like to create a combobox, which includes the headings of these pages. So when I clicked any item in the combo, macro will automatically send me the corresponding page (my intend is make a kind of table of content). 2-the important part is, like toolbars, this combo should stay at the same position while scrolling, or changin the pages. Have a good day. Tag: Make Styles and Formatting Task Pane Visible Tag: 96378
  - 6
    - How to change fonts in a word macro In this macro I want the first char to be in Bookman Old Style16pt Bold, then the rest of each entry in Arial 10pt regular. Public Sub MAIN() Dim Td Dim Yr Dim Mn Dim Mon$ Dim WD Dim Count_ Dim L Dim Dlg As Object Dim Fname$ Dim Info$ Dim eoln Dim L_$ Dim NC ReDim ArrM__$(11) ArrM__$(0) = "January": ArrM__$(1) = "February": ArrM__$(2) = "March" ArrM__$(3) = "April": ArrM__$(4) = "May": ArrM__$(5) = "June" ArrM__$(6) = "July": ArrM__$(7) = "August": ArrM__$(8) = "September" ArrM__$(9) = "October": ArrM__$(10) = "November": ArrM__$(11) = "December" WordBasic.BeginDialog 320, 200, "Calendar Month to Do" WordBasic.Text 10, 24, 100, 18, "Month :" WordBasic.Text 10, 6, 100, 18, "Year :" WordBasic.ListBox 70, 24, 120, 150, ArrM__$(), "Month" WordBasic.TextBox 110, 6, 56, 18, "Year" WordBasic.OKButton 210, 20, 84, 21 WordBasic.CancelButton 210, 49, 84, 21 WordBasic.EndDialog Dim MonYear As Object: Set MonYear = WordBasic.CurValues.UserDialog Td = WordBasic.Today() Yr = WordBasic.Year(Td) Mn = WordBasic.Month(Td) + 1 'default month is next month If Mn >= 13 Then Mn = 1 Yr = Yr + 1 End If MonYear.Year = Str(Yr) MonYear.Month = Mn - 1 If WordBasic.Dialog.UserDialog(MonYear) Then Yr = WordBasic.Val(MonYear.Year) Mn = MonYear.Month + 1 Mon$ = UCase(ArrM__$(MonYear.Month)) WD = WordBasic.Weekday(WordBasic.DateSerial(Yr, Mn, 1)) WordBasic.WW7_EditGoTo Destination:="Header" WordBasic.Insert Mon$ WordBasic.WW7_EditGoTo Destination:="Table" If WD > 1 Then 'goto the start date of the month For Count_ = 1 To WD - 1 L = WordBasic.NextCell() Next Count_ End If Rem Defname$ = "D:\doc\hakol\diary" + Left$(mon$, 3) + ".doc" Rem Defname$ = "D:\doc\diary.doc" Rem Fname$ = InputBox$("Diary Information File", "Enter File Name", Defname$) Set Dlg = WordBasic.DialogRecord.FileOpen(False) Dlg.Name = "d:\doc\diary.doc" WordBasic.CurValues.FileOpen Dlg WordBasic.Dialog.FileOpen Dlg Fname$ = Dlg.Name WordBasic.FileOpen Name:=Fname$, ConfirmConversions:=0, ReadOnly:=1 WordBasic.EditSelectAll Info$ = WordBasic.[Selection$]() 'Info Has all the text WordBasic.FileClose 2 'don't save For Count_ = 1 To 31 'no more than 31 days will be processed eoln = InStr(Info$, Chr(13)) If eoln > 0 Then L_$ = WordBasic.[Left$](Info$, eoln) If eoln < Len(Info$) Then Info$ = Mid(Info$, eoln + 1) Else Info$ = " " End If Else L_$ = Info$ Info$ = " " End If WordBasic.Insert L_$ WordBasic.ParaUp WordBasic.WordRight 1, 1 WordBasic.FormatFont Font:="Bookman Old Style", Bold:=1, Points:=16 WordBasic.CharRight 0 WordBasic.InsertPara NC = WordBasic.NextCell() If NC = 0 Then ' reached the End of the table, Goto start WordBasic.StartOfColumn 0 WordBasic.StartOfRow 0 End If If Len(Info$) < 2 Then GoTo Closedown 'no more days Next Count_ Closedown: Close 1 End If End Sub Tag: Make Styles and Formatting Task Pane Visible Tag: 96373
  - 7
    - repeating data not updating all fields, only first I've created a 13 page form which reuses several pieces of data throughout. I've created a userform interface to the form template to gather the data and disperse the data throughout the document after opening the template. I've created bookmarks to correspond to the data, using the [] method of creating bookmarks. In every subsequent reference to the bookmark (where I want the bookmark to expand the data to what's entered on the userform) I've used cross-references. However, consistently only the first field referenced gets updated. All of the other fields remain as the cross reference { REF BName \h }, rather than expanding to the name entered in the BName field on the userform. I've used Greg Maxey's code in the userform With ActiveDocument .Bookmarks("Text1").Range.InsertBefore TextBox1 .Bookmarks("Text2").Range.InsertBefore TextBox2 ... etc. End With UserForm1.Hide and used the autonew macro for the create button with UserForm1.Show to execute upon the click of the create button. I feel like I'm missing something huge here ... like asking it to update ALL fields throughout the document. This is my first template, my first userform, my first bookmark, and my first crossreference use. Any ideas? --Mary Tag: Make Styles and Formatting Task Pane Visible Tag: 96370
  - 8
    - File open? Hi, I'm writing a macro that tests to see if an Excel file is currently open. I've tried the following with no luck: if Excel.application.workbooks(File).open = true then ... end if Any ideas? Thanks, Jille Tag: Make Styles and Formatting Task Pane Visible Tag: 96365
  - 9
    - Select the whole of a word document to copy Hi, How do I select the whole of a word document so that I can copy it. What do I use to copy it as I have tried "wordapp.copy" -- Regards Bill Tag: Make Styles and Formatting Task Pane Visible Tag: 96361
  - 10
    - Is there an html code for no right click I'm looking for an html code that will not allow visitors to your site, right click on a picture to copy it. I have found a couple on different websites, one of them completely wipes out the site, (luckily I had a backup) and the other says that the code written for no right click doesn't really work. That if you disable javascript or go back into the site with a different browser, say firefox, then you would still be able to copy the pictures. Does anyone know where I can get a code that can't be worked around to copy? Any info would be appreciated. Thank you. Tag: Make Styles and Formatting Task Pane Visible Tag: 96352
  - 11
    - data form auto open in Word. How do I get a data form to automatically open when opening word document? Tag: Make Styles and Formatting Task Pane Visible Tag: 96351
  - 12
    - Merging fields using Access Database. I use this function in an Access Report to Format Peoples names properly. I wish to merge a word letter with my Access query but I don't know where in Word I would place this code or something like it. Can I use a variable to hold my result, in place of the merge fields drop down list which just lists each field individually? Any help would be appreciated. Thanks, Carol Private Function Name_Concatenate() Dim strFullName As String If ComLaw = True Then strFullName = FName1 & " " & LName1 & " " & "and" & " " & FName2 & " " & LName2 Else If IsNull(FName2) Then strFullName = FName1 & " " & LName1 Else strFullName = FName1 & " and " & FName2 & " " & LName1 End If End If Name_Concatenate = strFullName End Function Tag: Make Styles and Formatting Task Pane Visible Tag: 96350
  - 13
    - Save as opens explorer window. Hi, How do I save a document but allow the user to designate where it will be saved. Like when you save word it opens the explorer window. -- Regards Bill Tag: Make Styles and Formatting Task Pane Visible Tag: 96349
  - 14
    - Open a refernce doc , open another doc and copy contebts to refern Hi, so far I have the following. 'check whether to create a new word instance or use an existing session WordRunning = IsWordRunning If WordRunning Then Set WordApp = GetObject(, "Word.Application") Else Set WordApp = New Word.Application End If 'open up the reference document Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") ' With WordApp .Visible = True .WindowState = wdWindowStateNormal End With 'check on the access form which controls are active 'open that section document 'copy it 'and then paste it after the book mark in the reference document If (Me![Section11]) = True Then 'do something Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Section11.doc") 'copy contents for pasting into original document '??????????????????? 'close the "Section11" document as not required anymore '????????????????????????????? 'paste this section to the template 'bring original document to focus 'locate the bookmark and paste section11 Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") Set WordDoc = WordApp.ActiveDocument Set WordRng = WordDoc.GoTo(what:=wdGoToBookmark, NAME:="frmBookmark") 'paste Else 'do something End If The if statements continue for another 10 conditions. I am automating from access. I open an existing document and if the access controls on the form are true, add sections to the existing document. How do I copy the second documents contents and add it to the original document after the bookmark in the original document? Then I want to close the second documnets session and move on tto add another section if the next access control is true. -- Regards Bill Tag: Make Styles and Formatting Task Pane Visible Tag: 96348
  - 15
    - How to find any of a set of characters in a string Hello, How do I determine if one or more of a set of characters occurs in a given string? For example, I need to determine if d, D, or r occurs in the current .range object. I was hoping for something like: InStr(1, .range, "[aDr]") but that doesn't work. Any help would be appreciated! Tag: Make Styles and Formatting Task Pane Visible Tag: 96341
  - 16
    - no spacing between cells in table Working in Word 2003. If you format a table using the Word menus/dialogs, you have the option of not allowing spacing between cells. (Table | Table Properties. On the Table tab, Options then remove checkmark in front of "Allow spacing between cells.") When I try to accomplish the same thing via VBA, it doesn't really remove the spacing, it sets the spacing to 0. Spacing at 0 doesn't look quite the same as "Allow spacing = False." Both of the following give the same results. 0 spacing, but "Allow spacing between cells" is still true (checked) in the Options dialogbox -- and the table looks a wee bit funny. Selection.Tables(1).Spacing = 0 And Selection.Tables(1).Spacing = False I can't find anything re. how to set between-cell spacing other than the Spacing property. Is there a way I can use VBA to essentially say "Allow spacing between cells = False"? Tag: Make Styles and Formatting Task Pane Visible Tag: 96338
  - 17
    - Automatic Text Hi there, basically I am an estate agent and when a property has been sold I have to type a memorandum of sale with the sellers name, address, solicitors and the same for a buyer. Then I have to type 4 letters to go with that. Could anyone tell me how I could type the Sellers address on the memorandum of sale and it would automatically update the address on the corresponding letter. To save my self so much time. Tag: Make Styles and Formatting Task Pane Visible Tag: 96332
  - 18
    - problem with colour I am a bit of a novice so the answer may be simple! When I print a document, whenever I use the colour red it comes out yellow. I have checked the ink status which is okay. Hope you can help!!! Tag: Make Styles and Formatting Task Pane Visible Tag: 96330
  - 19
    - database error This is my macro code...: Sub ToDB() Dim csConn, rsRecSet As Recordset, strSQL As String, strUser As String strSQL = "INSERT INTO jbDBTable (CO, CREATED) VALUES ('xyz', date())" Set csConn = CreateObject("adodb.connection") csConn.ConnectionString = "data source=C:\Data\0\jbDB.mdb; Provider=Microsoft.Jet.OLEDB.4.0;" Set rsRecSet = CreateObject("adodb.recordset") rsRecSet.Open strSQL, csConn csConn.Close End Sub ...and this is my error with bugs: Run-time error: '3709': The connection cannot be used to perform this operation. It is either closed or invalid in this context. Any answers? -- Bryan Tag: Make Styles and Formatting Task Pane Visible Tag: 96329
  - 20
    - How do I restore my Word program's blank document template? Somehow when I pull up Word it now shows a document I didn't think I had saved. Every time I hit the create new, this document comes up so I must have somehow saved the document as the blank template. How do I restore it to the default blank document? Tag: Make Styles and Formatting Task Pane Visible Tag: 96318
  - 21
    - Forcing execution of an event.... Hy there, I wrote a very simple macro to automate printing of a document and as the "Manual Duplex" printing option isn't working properly, I'd like to handle with VBA everything. So what I did is to issue 2 Application.PrintOut calls, separated by a msgbox call. Unfortunatelly, the print doesn't begin until the sub is exited.... Any clue on how to execute immediately the first Application.PrintOut call? Thanks Here's the code: Sub PrintDuplex() Call SetPrinterProperty(DM_PAPERSIZE, DMPAPER_A3) Call SetPrinterProperty(DM_PRINTQUALITY, 1200) ActivePrinter = "\\ACRUX\Kyocera Mita KM-1650 (KPDL)" Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="4,1", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 MsgBox "Turn paper sheet and press Ok when ready", vbOKOnly Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="2,3", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 End Sub Tag: Make Styles and Formatting Task Pane Visible Tag: 96307
  - 22
    - Getting propertys of the Normal style I'm trying to navigate through the Word object model to find the properties of the Normal style used for that document - particularly the font name and font size. I'm trying to do this for a large number of documents, so instead of doing it manually, I want to navigate the object model from a VB application. But I haven't found a way to get to the Normal style and it's properties yet. Does anyone know how to do this? Thanks, Dave P. Tag: Make Styles and Formatting Task Pane Visible Tag: 96305
  - 23
    - Variable Footers I need a way to create different footers for every page. Let's say the document is 5 pages long. The user is prompted as to how to start the numbering series. They will answer with a number only, say 3. The sequence follows such that page 1's footer displays 3 right-aligned. Page 2's footer would display 3A to left-aligned. Page 3's footer would display 3B right-aligned, and so goes the series for every page with incrementing letters and alternating alignments. Since I can't seem to control footers on an individual basis programmatically without sections interfering, what should I do? A couple things I've thought of are 1) making each page its own section, 2) inserting a docvariable field into each footer, then updating the field value with the correct page number. I am an experienced .NET/VBA developer but working with Word's sections is not intuitive for me. I will process documents that are generated out of my control, and I expect these documents to have one section for the entire document. I would greatly appreciate a recommended programmatic approach. Feel free to be very technical. Thanks ! Tag: Make Styles and Formatting Task Pane Visible Tag: 96299
  - 24
    - Macro to change font Does any know if there is a macro that will change the font in all the tables in a document? Thanks, Mickey Tag: Make Styles and Formatting Task Pane Visible Tag: 96296
  - 25
    - distributing a Word form with macros I've developed a protected form in Word that will be distributed as a Doc file to multiple users in an organization. It uses macros to validate user entries and perform calculations. The subroutines and userforms are in the Doc file itself, because I was told that asking folks to use a Dot to create instances of the form would be too complicated. Now I'm told that asking users to set Macro Security Level on Medium and click "Enable macros" when opening the doc is too confusing (despite clear directions complete with screen caps -- sigh). The people who will be maintaining the form insist that there is a way to ensure the macros will work regardless of the user's security settings -- and without saying "Enable macros." They say they have seen it, they just don't know how to do it. I've tried to figure out how this is possible, and have tried to find info on the web, but to no avail. Is there a way to distribute the form to multiple users, ensuring the macros will run regardless of their security settings and without requiring them to click "Enable macros"? Most users will be running Word 2002 under Windows XP or XP SP2. Tag: Make Styles and Formatting Task Pane Visible Tag: 96289
- Next
  - 1
    - Placing a control on a document Hi all, I am new to Word VBA but have extensive experience with it in Excel and Access. I am sure this is simple: I need to put a control on the document, as opposed to the user's tool bar, and then give it a click or double click event, in order to start things rolling. Ideally I would want a command button but that does not seem to be an option, at least, I don't see it. What is the best way to proceed? Thanx, -plh -- Where are we going and why am I in this HAND BASKET?? Tag: Make Styles and Formatting Task Pane Visible Tag: 96285
  - 2
    - string comparator Hi, I have two arrays of name and I would like to check if some of the names are present in both of the arrays. But the names can be mispelled, or differently entered in the two arrays, for example: -Alberto Parreira , albeerto parteira -alberto parreira , alberto juan fernandez parreira -alberto-juan parreira , alberto juuan parreira Do you have an idea of a function that could tell me: those two strings represents (at for example 80% sure) the same person ? Cheers Tag: Make Styles and Formatting Task Pane Visible Tag: 96283
  - 3
    - *bold, _italic, <>heading in Word/VB I tend to write a lot of documents in text-only format, with the following conventions: This_is_italic This*is*bold [This is a footnote] <This is a chapter heading> In the case of bold/italic, I'd want any token that has _ or * in it. Normally, I don't do documents that are so long as to make manual conversion feasible. A year ago, when I had a non-profitable emergency, Klaus Linke was so kind as to write me a macro to do the most cumbersom conversion, for footnotes. The convention I use for bold and italic, I understand is much more problematic. The chapter headings I would need so I can have a table of contents. Right now I have no immediate need for this, but I am considering returning to that non-profitable undertaking. Incidentally, I used to use SCRIBE where the conventions were @i(This is italic) @b(This is bold) @foot(This is a footnote) @chap(This is chapter heading) @u(This is underline) @sec(This is a chapter heading) Furthermore, I've programmed in a number of languages (FORTRAN, ALGOL, PASCAL, C) so I don;t mind doing a little bit of coding so long as I understood (how to find) all the MS Word variable names. I'm attaching whatever VB macros I do have, and comments others have offered. If I seem a bit confused it is from the short attention span I have been able to afford to direct towards this project. .Text = "*\_*" .Text = "*\**" \*[!^13]@\* Sub Foot() Dim myRange As Range Dim boolFound As Boolean Dim myFootnote As Footnote Set myRange = ActiveDocument.Content Do myRange.Find.ClearFormatting With myRange.Find .Text = "\[*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True End With myRange.Find.Execute boolFound = myRange.Find.Found If boolFound Then myRange.Characters.Last.Delete myRange.Characters.First.Delete myRange.Cut Set myFootnote = ActiveDocument.Content.Footnotes.Add( _ Range:=myRange) myFootnote.Range.PasteAndFormat (wdPasteDefault) Set myRange = ActiveDocument.Content myRange.Collapse (wdCollapseStart) Else Exit Sub End If Loop End Sub Sub jb() ' ' Macro written by Maniac on May 16, 2006 ' Reformats text between two strings ' ' Specify search phrases (start / end) A$ = "abc" B$ = "def" ' Start at the beginning and reset all ' search formatting options ActiveDocument.Range(0).Select Selection.Find.ClearFormatting ' Loop repeats until first phrase not found While Selection.Find.Execute(A$) StartReformat = Selection.End Selection.MoveRight Selection.Find.Execute (B$) StopReformat = Selection.Start Selection.MoveRight ' Add formatting to the following section ' Options include: ' .Bold, .Italic, .Underline, .StrikeThrough (true / false) ' .Size = font size ' .Font.Color = wdColorGreen (Red, Blue, etc... see help) With ActiveDocument.Range(StartReformat, StopReformat) .Bold = True .Font.Color = wdColorBlue End With Wend End Sub - = - Vasos Panagiotopoulos, Columbia'81+, Reagan, Mozart, Pindus, BioStrategist http://ourworld.compuserve.com/homepages/vjp2/vasos.htm ---{Nothing herein constitutes advice. Everything fully disclaimed.}--- [Homeland Security means private firearms not lazy obstructive guards] [Urb sprawl confounds terror] [Remorse begets zeal] [Windows is for Bimbos] Tag: Make Styles and Formatting Task Pane Visible Tag: 96282
  - 4
    - capture keydown/press events in a user form I'm trying set up a user form where I can assign shortcut keys to various subroutines. I know how to do the keybinding (assign the shortcut keys) once I get the keys in the text box -- but am totally stumped on how to "capture" the keystrokes the user might enter in the form's text boxes. Unfortunately I'm pretty much a newbie with programming in general and VBA in particular... Am working on trying to get something like the following to work, but even if I can get this running right, it seems I'd need to specify every possible key combo. I'm sure that can't be the most reasonable approach... I'd really appreciate any advice or help you can offer! Private Sub Texbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ' If the 'Alt' and 'E' keys are pressed, If e.Alt And e.KeyCode = Keys.e Then Texbox1.Value = "Alt + E" Else Texbox1.Value = "nope" End If End Sub Tag: Make Styles and Formatting Task Pane Visible Tag: 96279
  - 5
    - startup templates at runtime Hello, I need to be able to copy a template in startup folder to allow another menu for a group of users. Whereas when i copied there, its showing new menu to ALL users. I am trying to find a way of loading a menu for a group of users - without having to setup different templates startup locations ... is there a way to load startup template at run-time ? or update "Templates And Addins" setting from a code ? Can anyone help ? kanwal Tag: Make Styles and Formatting Task Pane Visible Tag: 96275
  - 6
    - Table of Contents Some years ago, I saw a macro that would remove excess TOC bookmarks from a Word document. Does anyone still have a copy of this? I would like to run it over some old and venerable documents that seem to have grown excessively Cheers Bob Tag: Make Styles and Formatting Task Pane Visible Tag: 96273
  - 7
    - Can't record changing picture border Has something changed in Word 2007 macro recording. I highlight a picture in my document, start recording a macro, select Format and change the border, and stop recording. When I examine the macro in vba, it's totally empty. Tag: Make Styles and Formatting Task Pane Visible Tag: 96271
  - 8
    - Documents convert to Hebrew after some manipulations Hi! I am experiencing a strange problem: I have an application that inserts some information in front of the main body of each document. It works great. However, documents from one particular user convert to Hebrew after my inserts. The text my application inserts changes from right to left. In the original document the language is set to English US. In the resulting document the language is Hebrew. I have no clue where to start my troubleshooting efforts. Is it on my side? Does the user have to change something on his? What can I do programmatically to eliminate this problem? Any ideas/suggestions/samples are greatly appreciated. Many thanks in advance, --Michael Tag: Make Styles and Formatting Task Pane Visible Tag: 96270
  - 9
    - Import AutoCAD DWGS I have table of two columns and unknown rows. I would like to insert all the AutoCAD files located in FOLDER XYZ into the word document. However, ecah of the drawing files should be in a "cell" of the talbe. Then it needs to be scaled and that is it, off to the next folder. Any idea's: Tag: Make Styles and Formatting Task Pane Visible Tag: 96268
  - 10
    - Word 2007 VBA can not set options.print... properties Has anyone else run into this (and found a reason/fix)? On one of our five test dev machines, Word 2007 has a weird bug. Start a blank new doc, go into the VBA macro editing area, add the line: options.printbackground=false (on our machine, you can use ANY of the print options for this test - printcomments, printbackgrounds, printdraft, etc.). they ALL fail... but the non-print options are fine.) If I try to run the macro, it breaks on that line with a runtime 4120 error bad parameter. I've changed it to options.printbackground=true - still no go. I've tried changing the default printer and restarting word. Still no go. Curiously, I can do a: msgbox options.printbackground and it will accurately read the value of the printbackground hckecbox from the word options, advanced, printing section. so... on this ONE machine, I can READ but not SET the options for printing programmatically. Any ideas??? Corrupt install??? Read only xml ini file or some other obscure weirdness???? Regards. Tag: Make Styles and Formatting Task Pane Visible Tag: 96267
  - 11
    - MACRO to convert to hex I need to convert ascii characters (including unicode) to 4 digit hexadecimal representation. The alt+x (Selection.ToggleCharacterCode) functionality works for a single character, but I am trying to write a macro to convert every character in the file. I can't figure out how to parse through the document... any suggestions? Stephanie Tag: Make Styles and Formatting Task Pane Visible Tag: 96266
  - 12
    - Forms and Table of Contents I'm a wannabe expert at forms. I have a pre-made document for engineers describing equipment which has a table of contents, places to insert images, Excel tables, and an Appendix added at the end (which will auto-fill into the toc). I want to have part of this document automated so the people filling in the forms can't make a lot of changes. How can I create a text fill-in within the table of contents? I've tried and because it is already a type of field I think that I probably can't do this. Also, I have several places in the document that once you type in the first text fill-in I want it to populate that information in about 10 different other places in the document automatically, including the TOC and header or footer. Tag: Make Styles and Formatting Task Pane Visible Tag: 96256
  - 13
    - Deleting Blank Rows in a Word Table I have a word Template with several Tables on it. I need code which will examine all tables in the Template and do the following: 1. Delete any empty rows in each table 2. Delete any Table having Only a Header Row How would I go about writing this code? Thanks in advance for any help with this request. Tag: Make Styles and Formatting Task Pane Visible Tag: 96251
  - 14
    - Date changes on memo when opened I'm having a problem. When I save a memo, then re-open at a later date, Word automatically changes the date in the memo to the current date. Anyone know how to fix this? Tag: Make Styles and Formatting Task Pane Visible Tag: 96248
  - 15
    - Macro Question for Word 2003 I have been trying to record a macro that will delete a Frame and the Text Form field inside of it. I only want just that data which is at the top of the Page to be deleted for people who already have pre-printed letterheads. However, the Macro I record only works if my cursor is next to that information. Can someone please point me to a macro that can delete just that information at the top of the document regardless of the position of my cursor? Thanks, Tag: Make Styles and Formatting Task Pane Visible Tag: 96245
  - 16
    - What happens to "Keep Text Only" I am a news hound and "collect" news stories and culinary-related news items. Usually, when I copy an article and paste it into Word 2000 (I am using Windows XP Home), I get a tiny "clipboard" icon (at the bottom of the document) which gives me the option to "Keep Text Only." But sometimes, the "icon" doesn't show up, and I am then at a loss on how to "Keep Text Only." Why does the icon sometimes NOT show up, and is there a way to either "force" the icon to show, or to "Save Text Only" without the icon? Thanks in advance. Tag: Make Styles and Formatting Task Pane Visible Tag: 96241
  - 17
    - importing .rtf files into excel I have a rtf file which i need to automatically import using a macro in excel. But i am lost in finding a solution to this. I would like to open Excel and run the macro this would open the rtf in word and cut the information and paste it into excel. is this possible ? Thanks Dan Tag: Make Styles and Formatting Task Pane Visible Tag: 96240
  - 18
    - Programming Compatibility Hello Word: XP (Rollout of 2003 soon) OS: Windows XP I want to set a documents Tools|Options|Compatibility to what ever version of Word a user is running. Example: if Application.version = "10.0" then activedocument.compatibility = 2002 elseif Application.version = "11.0" activedocument.compatibility = 2003 elseif Application.version = "12.0" activedocument.compatibility = 2007 end if Word's Recorder produces many lines for each version. I just want to simplify the process. Any assistance would be greatly appreciated. Regards Mike Tag: Make Styles and Formatting Task Pane Visible Tag: 96234
  - 19
    - Copy table column from multiple word files into excel I have hundreds of word files in a folder. Each file contains a table with two columns. I want to copy the right most column from each word file into 1 excel worksheet, but opening each word file individually and copy/pasting will take me forever. Does anyone have code the will open each file in the folder, copy the column and past it into the next availble column in an excel worksheet? Thanks, ml Tag: Make Styles and Formatting Task Pane Visible Tag: 96230
  - 20
    - Summing fields in a selection Hi All, I have this document where some data is imported automatically in to some fields. The document could look like this: Chairs 100 Sofa 200 Travel 100 Sum 400 Since it is in fields the Calculation Tool does not seem to work. (unexpected end of formula!) Can anyone help me with a macro that would sum the fields in a selection made with Alt So if I select (Via Alt) the numbers 100, 200, 100 then i could get a sum in a msgbox? Thanks in advance, Best regards, Bondi Tag: Make Styles and Formatting Task Pane Visible Tag: 96229
  - 21
    - Using Internet Explorer to post data for a form inside word Hello, I'd like in a button in a Word 2000 document to submit data by posting an http request and catch the error which could happen (404 / 501 etc...) As I'm using NTLM authentification I need to use InternetExplorer object. So the idea is to do that kind of code : << Private Sub CreateDocButton_Click() Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "about:blank" IE.Visible = False Dim PostData() As Byte PostData = StrConv("<pouet>", vbUnicode) IE.Navigate "http://www.pouet.com/" & "document", Null, Null, PostData, Null End Sub Private Sub IE_NavigateError( _ pDisp, _ URL, _ TargetFrameName, _ StatusCode, _ Cancel) MsgBox ("pDisp : " & pDisp) MsgBox ("URL : " & URL) MsgBox ("TargetFrameName : " & TargetFrameName) MsgBox ("StatusCode : " & StatusCode) MsgBox ("Cancel : " & Cancel) End Sub Private Sub IE_NavigateComplete( _ ByVal pDisp As Object, _ ByVal URL As Variant) MsgBox ("navig complete") End Sub >> The fact is that neither IE_NavigateComplete nor IE_NavigateError are called even if the url is correct or not. I've tried to use Public WithEvents IE As SHDocVw.WebBrowser & Public WithEvents IE As SHDocVw.InternetExplorer however Word says me that : "the procedure declaration doesn't match the event description or the procedure of the same name". Do you know a way to correct this problem ? Regards, 75Blured. Tag: Make Styles and Formatting Task Pane Visible Tag: 96227
  - 22
    - Hyperlink to an Excel-template I am making a hyperlink to an Excel-sheet that my colleges can use (located on a shared disc). To avoid the others to save their work on that sheet, I have saved it as a template (.xlt). Problem: When I hyperlink to that file it opens it as a file, not as a template (it does File-Open instead of File-New) Q: How can i resolve this? -- Regards Per Tag: Make Styles and Formatting Task Pane Visible Tag: 96223
  - 23
    - Unique numbering of a Word template each time it opened I need a unique numbering each time I use a template.....so I can use the numbering for indexing -- May the force be with you!! Tag: Make Styles and Formatting Task Pane Visible Tag: 96209
  - 24
    - Help - Word probelm (macros) I'm not sure if this is the best place to ask this, but here goes: Every single time I open Microsoft Word (Office 2003), I get the following text box: "Microsoft Office Word [in border of the message box]" "This file contains macros with an expired or revoked signature. Since you are running under high security level, these macros will be disabled." Is there any way I can find the source/cause of this? This happens even if I just start Word without opening any document files at all. It also happens every time I start Outlook (because that opens word as the Outlook E-Mail editor). I am concerned that something may have infected my system; I had some kind of critical problem a couple weeks ago, the system would shut down immediately after starting, and I did have to restore from an image backup. The restore (from a Drive Image backup) was drive C:, which includes the program files folder, but on my system the My Documents folder (which has all the Word files) resides on drive E:, which was not restored. Extensive scanning (both AV and spyware) show the system to be clean, and it is perfectly well behaved in all regards except for this. Thanks Tag: Make Styles and Formatting Task Pane Visible Tag: 96206
  - 25
    - Lowering Inline Shapes - How does Mathtype/Equation Editor do it? If you insert any picture into the InlineShapes collection, the picture sits with its base on the line of text. The only way I have found of lowering such a picture is to select it and use the Font.Position property - or Format / Font / Character Spacing from the menus. Mathtype and Equation Editor achieve the same result in some other way. Their output is lowered compare to the line of text but the Font.Position property is Normal (or 0). How do they do it? What property are they accessing? Ay clues much appreciated. Paul Hooper Tag: Make Styles and Formatting Task Pane Visible Tag: 96204

I want to put a line in the auto open macro that will turn on the styles &
formatting task pane. This gets me the task pane:
CommandBars("Task pane").Visible = True
but I can't figure out how to specifically get the styles and formatting pane.
Thank you.

Top

Re: Make Styles and Formatting Task Pane Visible by Jay

Jay
Mon Feb 05 14:11:49 CST 2007

The line you need is

Application.TaskPanes(wdTaskPaneFormatting).Visible = True

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

On Mon, 5 Feb 2007 10:53:01 -0800, Karin
<Karin@discussions.microsoft.com> wrote:

>I want to put a line in the auto open macro that will turn on the styles &
>formatting task pane. This gets me the task pane:
>CommandBars("Task pane").Visible = True
>but I can't figure out how to specifically get the styles and formatting pane.
>Thank you.

Top