Removing blank lines in report

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Using forms to collect information Hi, Thanks for your time. I'm using Word 2003. Wondering if there is a way to have users fill out a form in Word and then be able to collect the data somehow. I know conceptually there is, I've heard of it being done but I was wondering if anyone could point me in the right direction. For example if I wanted to create a survey for my users, create a form using the form toolbar in Word and then collect and analyze the data in a table or something like that. I believe you can do this in Adobe also, but I'd rather use Word if I can. Thanks! Tag: Removing blank lines in report Tag: 80842
  - 2
    - how do I remove a line when a mergefield has no value Tag: Removing blank lines in report Tag: 80840
  - 3
    - example code for Would someone have some example code for renaming a button on a custom toolbar called "schedule"? Tag: Removing blank lines in report Tag: 80829
  - 4
    - Linking word Userform to excel using word vba I am trying to populate an excel workseet using a word Userform that I have developed. Everthing that is entered into the userform needs to be exported to excel. The problem that I ma having is trying to figure out to get the two programs to talk. I imagine that this is a basic thing to do if you know what your are doing, I do not. Please help Tag: Removing blank lines in report Tag: 80828
  - 5
    - Normal.dot I'm just coming over from Office 97 to XP with Word 2003. Word's VBA macros used to be stored in Normal.dot. What's the deal with "Normal" now? And, why doesn't it prompt for module save confirmation when closing after a modification? Thanks, -- Trent Argante [DC.J(125)] Tag: Removing blank lines in report Tag: 80823
  - 6
    - Delete a line which has a unique Style with a macro Hello, I am trying to find a way to delete many lines in a document, which all have a unique paragraph style. How can I do that? Thanks Octavee Tag: Removing blank lines in report Tag: 80822
  - 7
    - Paper Tray Bin Selection macro I need to get the number assigned to paper trays on laser printers and copiers to add this to a macro for bin selection. I believe there may be a macro to find this out but not sure what this is. Have tried choosing File, Page Setup whilst running a macro and whilst this gives me the bin number on the copiers we use, when I put this code in my current macro, it doesn't select correct bin - just picks from the default tray. On our HP laser printers, when I select File, Page Setup, I just get Upper or Lower Tray in the code. I actually do have the numbers for the printers from our consultant who wrote the macro, but as we will probably be getting new models, I would like to know where/how to get the actual bin numbers. Thanks in advance. Tag: Removing blank lines in report Tag: 80816
  - 8
    - Capture ALL movements...event? Currently I am trying to create my own StatusBar because the Word StatusBar doesn't display when you are using it with Internet Explorer. My question is what event do you use to capture every movement of the cursor(pointer) so I can display the current line, section, column, etc...? I've tried Me.SelectionChange but it only captures some of the movements. It doesn't capture when I hit the Enter button, etc... Any ideas? Thanks for your time! -- Brenda Tag: Removing blank lines in report Tag: 80814
  - 9
    - Headers, Footers inserting text... Hi, I hope this is the correct forum for this question... Is there some trick to programmatically inserting text in the header and/or footer of a Word document? I'm working with Word 2003, and the documents are XML format. I created a schema and a XML data file and a XSL transform file. I pull the XML file into Word with the schema and XSL attached and everything gets formatted and populated correctly except the header and footer. The header and footer have the XML tags but the data that pops them isn't present. I need to be able to pop those header/footer tags programmatically but, they don't get populated even when I open the files manually. Any ideas? TIA! David Tag: Removing blank lines in report Tag: 80813
  - 10
    - is it possible to create sequentialy numbering templets in word? I am creating work order templets and I am wondering if there is any way to generate a numbered identifier that will increase sequentialy as the work orders are generated? Tag: Removing blank lines in report Tag: 80812
  - 11
    - Launch VBA form from toolbay buttom I have made a VBA program & exported it out to a .frm. Is there a way to create a toolbar button to run the .frm which in turn would run the code in the background? Tag: Removing blank lines in report Tag: 80801
  - 12
    - Renaming a toolbar button Is there a way to programatically rename a toolbar button? Can I then access the name of that button as a string in another sub code? thanks, ck Tag: Removing blank lines in report Tag: 80800
  - 13
    - Template Creation When creating a template for another user to fill in the blanks, how do you format and fix template only allowing for the answers to be put in the underlined blanks? Tag: Removing blank lines in report Tag: 80796
  - 14
    - Identify Capital Paragraphs with VBA for word. Hi, How can I identify a paragraph that has all word in captial letters in Microsoft Word. For example: ROAD SAFETY SHOW We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. In the example above, I want to be able to identify "ROAD SAFETY SHOW" and then have the text formatted as shown below. #TITLE#ROAD SAFETY SHOW#/TITLE# We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. Can someone please help me with this? Thanks, Yash Tag: Removing blank lines in report Tag: 80792
  - 15
    - Speed in opening word documents and executing the word application I work in an office with 25 users which were all "refreshed" with new computers and upgraded to Windows XP Professional. All the applications open immediatly with the exception of "Word". It takes around 20 seconds to execute the application and about 45 seconds to open documents no matter how small the size. This is frustrating as the previous version "Windows 2000" was much faster. Most docs opened immediatly. Excell, Access, PowerPoint, in XP, all execute upon a click of the icon so why is Word different. I have called our helpdesk for assistance and believe they cannot figure this out or my request has been buried. Does anyone have a clue as to why this is happening?? Tag: Removing blank lines in report Tag: 80790
  - 16
    - Delete all shading Alright, now... i only ask questions when i really need help... so here goes. I have documents that have all this highlighting to help notify people of issues that may or may not be problematic, so i have this- Sub RemoveHighlights() Dim rngSearch As Word.Range Application.ScreenUpdating = False Set rngSearch = ActiveDocument.Range rngSearch.Find.ClearFormatting rngSearch.Find.Replacement.ClearFormatting With rngSearch.Find .Format = True .highLight = True .Replacement.highLight = False .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub Well, i get a document, and it turns out a programmer has added shading, not highlighting. I've tried all kinds of things to delete shading using a range, and i can't figure it out. I searched through past threads and didn't find anything also. If anyone could help it'd be much appreciated. Thanks guys. Tag: Removing blank lines in report Tag: 80789
  - 17
    - ActiveDocument.Fields.Add - Setting Font Color and Hidden? Is there a way to set the font when adding a new field? Set newfield = ActiveDocument.Fields.Add(Range:=Selection.Range, _ Type:=FieldType, Text:=FieldText, _ PreserveFormatting:=PreserveFormat) Add_Field = newfield.Index Want to set the font to be hidden for this field? Tag: Removing blank lines in report Tag: 80788
  - 18
    - Disable AutoOpen macro after saving document Hi, I have a macro (below) that puts document information in the header and footers of a document from an external application which works fine until the user saves the document then opens another document from the same program when they subsequently reopen the first documnet it now has the second documents details in it which is what I want to stop! (The information is written to the persons ini file on their C drive) Is there any way to stop the macro from running once the document has been saved? all the documents start with a name ~qw if thats any help. The user can also open the documents from the intranet which doesn't cause the same problem. Sub nofooter() ' With WordBasic .NormalViewHeaderArea Type:=0 End With ' End End Sub ' Sub HeaderLine() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 57.6, 504#, 57.6).Select Selection.ShapeRange.Line.Weight = 2.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(128, 128, 128) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End Sub Sub footerlines() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 760#, 504#, 760#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph 'Second line !! Selection.HeaderFooter.Shapes.AddLine(93.6, 780#, 504#, 780#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph End Sub Sub AutoOpen() ' Dim MyDate MyDate = Date ' MyDate contains the current system date. With WordBasic maxchar = 64 ' modification D B 02/09/04 if document comes from IE then load different INI file generated If Left(Application.ActiveDocument.Name, 10) = "IEDownLoad" Then Dim strIniName As String strIniName = Left(Application.ActiveDocument.Name, 60) & ".ini" Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "\\Appsrv2\QWBINI_Files\" & strIniName) Ref$ = .[getPrivateProfileString$]("Document", "QWref", "\\Appsrv2\QWBINI_Files\" & strIniName) Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "\\Appsrv2\QWBINI_Files\" & strIniName) Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "\\Appsrv2\QWBINI_Files\" & strIniName) IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "\\Appsrv2\QWBINI_Files\" & strIniName) Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "\\Appsrv2\QWBINI_Files\" & strIniName) Else Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "qwcs.ini") Ref$ = .[getPrivateProfileString$]("Document", "QWref", "qwcs.ini") Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "qwcs.ini") Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "qwcs.ini") IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "qwcs.ini") Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "qwcs.ini") End If ' ' Get next issue date from RC ini file NIDate$ = .[getPrivateProfileString$]("Document", "Nissue", "\\appsrv1\qwb_pro\master\RC.ini") ' End With ' check for short or long date format Dim Findspace Findspace = Mid(IDate$, 9, 1) If Findspace = " " Then IDate$ = Left(IDate$, 8) Else IDate$ = Left(IDate$, 10) ' ' Check to see if document status is ISSUED Dim Issuestatus Issuestatus = Mid(Stat$, 1, 6) If Issuestatus <> "ISSUED" Then IDate$ = "" ' With WordBasic With ActiveDocument.PageSetup ' .FooterDistance = 35 End With header: .StartOfDocument .NormalViewHeaderArea Type:=0 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=14, Bold:=1, Italic:=0, Color:=0 .Insert " " + Title$ Call HeaderLine '.StartOfDocument ' footer: '.StartOfDocument .NormalViewHeaderArea Type:=0 .Font "Arial" .NormalViewHeaderArea Type:=1 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=8, Bold:=0, Italic:=1, Color:=0 .InsertPara ' 'Can't use word basic for this End With Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' ' check to see if the document is a form, and if it is then exit ! ' 'If Typ$ = "Form (F)" Then Call nofooter Else With WordBasic .Insert "Document administered by WPro. Uncontrolled copies valid until the next document issue on " + NIDate$ .InsertPara .InsertPara '.CharRight 100 .Font "Arial" .FormatFont Points:=8, Bold:=1, Italic:=0, Color:=0 .Insert "HFL " + Ref$ .Insert Chr(9) + "Revision " + Rev$ .Insert Chr(9) + "Page Number " .InsertField Field:="page \*arabic" .Insert " of " .InsertField Field:="numpages" .CharRight 10 .InsertPara .Insert "Status: " + Stat$ + " (" + IDate$ + ")" .Insert Chr(9) + "Issuing Authority: System Administrator" .Insert Chr(9) + "Date Printed " Selection.InsertDateTime Call footerlines .NormalViewHeaderArea Type:=0 End With End Sub Tag: Removing blank lines in report Tag: 80770
  - 19
    - Macros error when launching an MS word Macros Document " microsoft visual basic sub or function not defined " Tag: Removing blank lines in report Tag: 80769
  - 20
    - About Sequentially numbered documents? Hi I didn't know anything about macros and VBA for nowadays but I want to make my documents numbered sequentially and I looked at some related sites ( such as http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm ). Also I read 70 pages about my subject at this site :) I changed the code as the following for me: Sub AutoNew() Order = System.PrivateProfileString("\\server\Counter.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("\\server\Counter.txt", "MacroSettings", _ "Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#") ActiveDocument.SaveAs FileName:="\\server\DocumentName Ref-06-" & Format(Order, "00#") End Sub As you can see In my document I have a Ref-06-XXX part and everytime I opened the template document it adds one to Ref like â??Ref-06-001â??, â??Ref-06-002â??, â??Ref-06-003â??... and also it creates the document at â??\\server\â?? like â??DocumentName Ref-06-001â??, â??DocumentName Ref-06-002â??, â??DocumentName Ref-06-003â??... But the problem is it saves the document after it opens the new numbered document so if i made a mistake to open a new document i should delete the last document that was created and also change the order number in the â??Counter.txtâ?? to -1. I hope I had explained my problem well :) So I think about the problem and have some answers like; * Macro shouldn't save the document at the beginning (after the creation of the new document). It would save the document after I made changes on the document and I think that the document have that Ref number on it. So it should save the document after I made my changes on document (before closing the document). As I said at the beginning I donâ??t know VBA codes so I need help from you. I know that this is too easy for experts. Thanks for your help this very moment :) Tag: Removing blank lines in report Tag: 80764
  - 21
    - Creating macro Good day Could someone please help me with a macro? I would like to paste text unformatted into Word. Thanks -- Ansie Tag: Removing blank lines in report Tag: 80761
  - 22
    - modification to merge field before mail merge In mail merge I need to split one field form datasource into 3 parts (string will be separated by - sign) and put in different places in document. I can't modify datasource, so I need to do this in word, probably using macros? Tag: Removing blank lines in report Tag: 80758
  - 23
    - Macro - not visible I have a document with a macro attached which if I open on my machine I can see and run however if I open the same document on another machine with same level of macro security can't see the macro. Any ideas why ? Tag: Removing blank lines in report Tag: 80756
  - 24
    - Quick & clean way to select all following chars until colorchange? Hi, I'm trying to select all characters which have the same color as a certain character without any gaps example: bbbbbbbbbbbbbbbbbbbbbb<cursor is here>ggggggggggggggggggggggggggggggggggggggggbbbbbbbggggggggggg From the position of the cursor I would like to select all the green (g) charcters untill a blue (b) appears, so I don't want the second range of g's for now. at the moment I solve this by looping over the content and check the color of each char. On a colorchange I'll select the chars of the old color. This is pretty slow though and it seems primitive. There has to be a better way.... Thanks in advance, rVo Tag: Removing blank lines in report Tag: 80754
  - 25
    - How do I print only one page in a document on MS Office Word 2003 I have a word document of 31 pages. I want to print only one of these pages (not the whole thing). When I select 'print', it just stars printing the whole document. It doesn't offer me the selection of what page to print, like I have in other applications. Is there anyway to do this, (just tell the printer to print only 1 specific page)???? Tag: Removing blank lines in report Tag: 80746
- Next
  - 1
    - Shortcut This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C62D02.8E3C0340 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I posted the following in the DocManagement group to format words like = Smith as S-M-I-T-H. Sub myFormat() Dim oRng As Range Dim oChr As Word.Range Set oRng =3D Selection.Range oRng.Text =3D UCase(oRng.Text) oRng.MoveEndUntil Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ Count:=3DwdBackward Set oChr =3D oRng.Characters.First Do oChr.InsertAfter "-" Set oChr =3D oChr.Next Loop Until oChr =3D oRng.Characters.Last End Sub I thought that I could use Cset:=3D"[A-Z]" but it didn't work. I suppose that there is nothign wrong with = "ABCD..." but was curious to know if there is a better way. Thanks --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0008_01C62D02.8E3C0340 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.2802" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>I posted the following in the DocManagement group to format words = like=20 Smith  as S-M-I-T-H.</DIV> <DIV> </DIV> <DIV>Sub myFormat()<BR>Dim oRng As Range<BR>Dim oChr As = Word.Range<BR>Set oRng =3D=20 Selection.Range<BR>oRng.Text =3D UCase(oRng.Text)<BR>oRng.MoveEndUntil=20 Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _<BR>    =20 Count:=3DwdBackward<BR>Set oChr =3D = oRng.Characters.First<BR>Do<BR>oChr.InsertAfter=20 "-"<BR>Set oChr =3D oChr.Next<BR>Loop Until oChr =3D = oRng.Characters.Last<BR>End=20 Sub</DIV> <DIV> </DIV> <DIV>I thought that I could use Cset:=3D"[A-Z]"</DIV> <DIV>but it didn't work.  I suppose that there is nothign wrong = with=20 "ABCD..." but was  curious to know if there is a better way.</DIV> <DIV> </DIV> <DIV>Thanks<BR>-- <BR>Greg Maxey/Word MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0008_01C62D02.8E3C0340-- Tag: Removing blank lines in report Tag: 80742
  - 2
    - how to compile C++ code with input file using API I'm trying to compile a C++ file with the Microsoft C/C++ compiler in VBA. Thru the use of API (CreateProcess) I was able to compile the C++ file. However, as I tried to include input file, it doesn't work. The result is simply the compilation without an input file. Any help is appreciated. Thanks!! In main: ======== Call compileAndWriteOutput("cl " & "inputfile.txt" & " " & "program.cpp", outputFileName) VBA code ======== Option Explicit ' Contants Private Const STARTF_USESHOWWINDOW As Long = &H1 Private Const STARTF_USESTDHANDLES As Long = &H100 Private Const SW_HIDE As Integer = 0 ' Types Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type ' Declares Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, _ phWritePipe As Long, _ lpPipeAttributes As Any, _ ByVal nSize As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _ lpBuffer As Any, _ ByVal nNumberOfBytesToRead As Long, _ lpNumberOfBytesRead As Long, _ lpOverlapped As Any) As Long Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _ ByVal lpCommandLine As String, _ lpProcessAttributes As Any, _ lpThreadAttributes As Any, _ ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, _ lpEnvironment As Any, _ ByVal lpCurrentDriectory As String, _ lpStartupInfo As STARTUPINFO, _ lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Delete file using deleteFile API Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long ' Declaration '--------------------------------------------------- ' Call this sub to compile and write output thru a console app. Public Sub compileAndWriteOutput(ByVal sCommandLine As String, _ ByVal outputFile As String, _ Optional ByVal sStartInFolder As String = vbNullString) Const BUFSIZE As Long = 1024 * 10 Dim hPipeRead As Long Dim hPipeWrite As Long Dim sa As SECURITY_ATTRIBUTES Dim si As STARTUPINFO Dim pi As PROCESS_INFORMATION Dim baOutput(BUFSIZE) As Byte Dim sOutput As String Dim lBytesRead As Long Dim waitError As Long Dim aFile As Integer With sa .nLength = Len(sa) .bInheritHandle = 1 ' get inheritable pipe handles End With 'SA If CreatePipe(hPipeRead, hPipeWrite, sa, 0) = 0 Then Exit Sub End If With si .cb = Len(si) .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES .wShowWindow = SW_HIDE ' hide the window .hStdOutput = hPipeWrite .hStdError = hPipeWrite End With 'SI If CreateProcess(vbNullString, sCommandLine, ByVal 0&, ByVal 0&, 1, 0&, ByVal 0&, sStartInFolder, si, pi) Then Call CloseHandle(hPipeWrite) Call CloseHandle(pi.hThread) hPipeWrite = 0 aFile = FreeFile Open outputFile For Output As #aFile Do DoEvents If ReadFile(hPipeRead, baOutput(0), BUFSIZE, lBytesRead, ByVal 0&) = 0 Then Exit Do End If sOutput = Strings.Left$(StrConv(baOutput(), vbUnicode), lBytesRead) Print #aFile, sOutput Loop Call CloseHandle(pi.hProcess) Close #aFile End If ' To make sure... Call CloseHandle(hPipeRead) Call CloseHandle(hPipeWrite) End Sub Tag: Removing blank lines in report Tag: 80739
  - 3
    - mass conversion to PDF To convert multiple office files to multiple pdf files one has to 1. Set PDF as a default printer 2. Disable all PDF prompts for confirming file names, etc. This can be done under Acrobat settings or under PDF printer properties 3. Create a new folder named *my Documents* in ...Adobe/Acrobat/Distllr folder 4. Select files to be converted, e.g. in Windows Explorer, right click and click Print. Many thanks to Jezebel for helping with sorting this thing out. You saved me hours of boring work. The newly created PDF files are placed in the above mentioned my Document folder retaining their original name. Strangely, this folder is not created at the Acrobat installation, but without it, conversion to PDF via print command returns an error. -- JanAdam Tag: Removing blank lines in report Tag: 80733
  - 4
    - disable macro on save Is it possible to delete or disable a macro when a document has been saved? Tag: Removing blank lines in report Tag: 80716
  - 5
    - Stuffing text from Word into a VT100 terminal emulator Here's a challenge for you. I need to get some complex text into a legacy database running in a VT100 terminal emulator (please don't laugh). So I am generating the text in Word 97 using dropdown form fields, with VBA running in the background to conditionally alter other fields. Once done, I have a button that copies the text to the clipboard. The user switches to the VT100 terminal emulator and pastes the text in. There are two remaining things that I would like to do. 1) Preserve the bold and underline from the Word text. In the database, bold is switched on and off with key strokes <crtl-6><b> and underline with <ctrl-6><u>. 2) Also put data into other fields in the database. I could due this with a macro in the terminal emulator but I want the data vary depending on the contents of the Word file. So when I switch to the database, I am thinking that I need to be able to stuff the keyboard with a sequence of keystrokes. I realise that the solution may depend on the specifics of the VT100 terminal emulator that I am using. The terminal emulator runs macros which are held in files. One possibility is to have VBA write the macro to a file, switch to the terminal emulator and then run the macro that Word has just produced. -- Paul Bishop Tag: Removing blank lines in report Tag: 80714
  - 6
    - Can a merge to print macro be created/used on a protected .dot? Created a fax template with a mail merge. Would like a macro toolbar button that can be used to "merge to printer" while the template/document is still protected. Is this possible? Tag: Removing blank lines in report Tag: 80712
  - 7
    - temporary font install I am creating templates for use on our intranet using Word and Excel 2000 on Win 2000. I need a template to temporarily install a Type 1 font from our fileserver for use while the document is open; I cannot have users install fonts manually and I don't have a TrueType version. After much Googling, the following is what I have come up with. It throws no errors, but it always returns 0 (meaning no font installed) and the font list in Word never shows the font. Any suggestions or alternatives would be greatly appreciated. Thanks, Bruce '---------- Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Const FONTFILE = "\\server\share\folder\fontname.PFB|\\server\share\folder\fontname.PFM" Dim tmp As Long Private Sub Document_Close() tmp = RemoveFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_New() MsgBox FONTFILE tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_Open() tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Tag: Removing blank lines in report Tag: 80699
  - 8
    - Word Form submit function I have created a form in Word 2003 for publishing on my website. The idea is that me or my colleagues fill this form in hit the submit button and then it e-mails the form and its contents to an e-mail address. I have uploaded it to my server and tested it but when I hit the submit button my outlook editor opens and nothing else happens. I want the form to be e-mailed stright to my colleagues inbox. Can someone assist me with this or should I go out and purchase some specialist software Thankyou in anticipation Tag: Removing blank lines in report Tag: 80697
  - 9
    - Creating a visible field with a hidden component? I need to create a field that will be inserted via VBA code. This will be made up of nested fields. The outer field will use a Quote field with a visible text element that will show in the document. Along with this is a nested field which contains tags that I will parse for with another macro. The issue is I need to make the second nested field not visible and also easily parsable in code. I'm thinking of storing a delimited string in this field to contain the various elements need later. The only way I can think to do this is using the SEQ field with the \h. Is this the only/best approach? Here is what I want or similar: { QUOTE (CAUKEO) { SEQ AA-BB-CCCC \h } } So later on I want to parse out the SEQ field associated with the QUOTE and based on what it contains (i.e. does it include AA then..) do something in the macro. Any thoughts or insight on this approach? Tag: Removing blank lines in report Tag: 80695
  - 10
    - Insert document body, but not header I am trying to insert a word document with this code: Selection.InsertFile FileName:=myfile, Link:=False It works fine with most documents, but when myfile have a section and uses header/footer the header from myfile overwrites my origin header. I only want the main body of myfile and not the header. I use Word 2003. Tag: Removing blank lines in report Tag: 80692
  - 11
    - MS Office password, username I am trying to access WebDAV resources using MS Office client. It generally works however there is one problem. When I open the document I am prompted to enter user name and password. I open document using script and I already have credentials inside the script so I wonder if this is possible to pass the credentials to the Word, Excel, PowerPoint object somehow so I would not be promted again? Here is the code: if (url.indexOf(".doc")>-1 ||url.indexOf(".rtf")>-1||url.indexOf(".txt")>-1) //check if pdf document { var objWord = new ActiveXObject ("Word.Application"); //if not open in word formatter objWord.visible = true; objWord.Documents.Open("http://ntotlldev/livelinkedav/"+url); window.setTimeout('window.close()',5000); // alert("here") } else { document.location.href="http://something/WebDav/"+url; //otherwise open through the browser if (url.indexOf(".pdf")>-1) { window.resizeTo(screen.width,screen.height); } else window.setTimeout('window.close()',5000); }*/ Thanks Michael Tag: Removing blank lines in report Tag: 80689
  - 12
    - Status Bar not showing in IE with Word Please follow this link to my question: http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=239128&SiteID=1 Any help would be great! Thanks! -- Brenda Tag: Removing blank lines in report Tag: 80684
  - 13
    - Update Macro for Spell Check: Clarification Thanks to Graham for responding to my message previously. I tried your suggestion Graham and I am still having some problems with the code. I am not sure why, but now it not only does not update...it clears out the form field data as well. So adding the new code seemed to negate the wd protection code that maintains the filled in data. I am including the code....if you can help. Sub FormsSpellCheck() ' If document is protected, Unprotect it. If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:="not2day" End If ' Set the language for the document. Selection.WholeStory Selection.LanguageID = wdEnglishUS ' Perform Spelling/Grammar check. If Options.CheckGrammarWithSpelling = True Then ActiveDocument.CheckGrammar Else ActiveDocument.CheckSpelling End If Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing ' ReProtect the document. If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub Tag: Removing blank lines in report Tag: 80683
  - 14
    - Inserting text at a specific point via VBA? I am currently doing the following to insert text at a specific point and it works fine but I'd rather just code the text directly rather than reference an autotext entry. How can I do this in a similar fashion to below? Only autotext seems to have the insert method. Set a = ActiveDocument.AttachedTemplate.AutoTextEntries("ORCON") a.Insert Where:=Selection.Range, RichText:=True Tag: Removing blank lines in report Tag: 80666
  - 15
    - How to lock styles, remove protection, then protect doc in 2003? I'm trying to lock styles only, when the doc opens (user will be able to edit doc). Before saving, i want to remove the password protect, set all section protectionforforms to true, then reprotect doc as well as lock styles. When I try to set the protectionforforms, I get an error "Command not available because document is password-protected". I ran the below macros in the order from top to bottom for demo purposes and got the error. I have a work around (before I set the protectionforforms, I protect the document with Type:=wdAllowOnlyFormFields, unprotect it, set the protectionforforms, then reprotect.) It sounds kind of silly, so I'm asking if there's a better way. Public Sub Lock_Styles_Only() ActiveDocument.Protect Type:=wdNoProtection, _ noreset:=False, Password:="pass", enforcestylelock:=True End Sub Public Sub Remove_Protection() ActiveDocument.unprotect ("pass") End Sub Public Sub Protect_Doc_and_Lock_Styles() Dim sec As Section For Each sec In ActiveDocument.Sections sec.ProtectedForForms = True 'error occurs here Next sec ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ noreset:=False, Password:="lawp", enforcestylelock:=True End Sub Tag: Removing blank lines in report Tag: 80665
  - 16
    - create/chaning forms and objects from code Is that possible? If I want to create text boxes on the fly for instance? /e Tag: Removing blank lines in report Tag: 80663
  - 17
    - Code in Excel macro to get all open Word docs? What would I use in Excel 2000 VBA to get all the currently open Word docs? Or, even better, break out of the code to allow the user to choose his doc and select a specific position in the doc? I have a Word macro that takes a selection copied from Excel and pastes it into my Word report with certain formatting. Some of my coworkers could make use of this macro as well, but it would be easier to put the macro in an Excel workbook I already distribute with macros than to get them to add it into Word. To make it work , though, they would have to be able to get it into the right Word doc from Excel - much different than having the doc open and pulling it off the clipboard. Any help is appreciated. Ed Tag: Removing blank lines in report Tag: 80660
  - 18
    - multiple .doc files conversion to multiple pdf I need to create many PDF files from many Word and Power Point documents. I have Acrobat 6.0, Office 2003 pro installed under W2K pro (can have Adobe CS with the newest Acrobat). In Acrobat 6, there is an option of converting many files into a single PDF. But I need to convert them one to one. I thus think I have to do it via vba code, but run into problems. Following hints from this group I can loop through all the files I need to convert via: For Each filFile In fdrFolder.Files strFileName = fso.GetFileName(filFile) â??code to convert strFileName to PDF Next filFile I am not sure what should be the command to do the conversion. When recorded a macro to see how it is done, I see that it does not use the file name at all, but this is a single file conversion from an active word document. Also, the Acrobat is asking for accepting to save the new file as whatever, which I would like to automate as well. I have over two hundred files to convert. I would like to do it like filename1.doc -> filename1.pdf and so on. If the PDF files could go to a different folder than the source folder it would be nice, but this is can easily be done manually or via a macro that I think I can write. Your help will again be much appreciated. -- JanAdam Tag: Removing blank lines in report Tag: 80644
  - 19
    - send document on screen via email Does any one know how to send the document on the screen via email? I don't want to send it as an attachment - I want to send it as text inside the email itself, but I need to maintain font changes (colors, etc.) I have been using Redemption to send emails, but I am limited to attachments or text only emails without formatting. I thought I'd try directly from Word itself. Thank you! Tag: Removing blank lines in report Tag: 80632
  - 20
    - Attached Template reference removed on close File Server - Windows 2000 Terminal Desktops - Windows XP Software - Office XP In our environment we have precedents stored on the network and templates stored on user's PC. Recently all precedents with a particular template attached have lost the template after the generated precedent is closed (no difference if precedent saved to network or locally). Example - User runs "Letter to Joe.doc". Attached template = "Letter.dot" Users saves letter as 8FebLtr.doc. Attached template = "Letter.dot" User closes doc and later re-opens. Attached template = "Letter to Joe.doc" The template has customised toolbars, etc that are needed. If anyone can help me discover why this is happening I would be very grateful. Tag: Removing blank lines in report Tag: 80627
  - 21
    - how to disable command buttons like word does? I have noticed that if I open 2 word documents so that I can see them both at the same time and select some text in just one of them, that the COPY commandbutton is enabled on the document with the selection, but not on the one without. I want to replicate this, but when I try with a custom commandbutton, the buttons on both documents are either enabled or disabled. how can i get the same behaviour as words built in buttons? how can I get it to display both states? Thanks in advance. Jason. Tag: Removing blank lines in report Tag: 80624
  - 22
    - add a dissable auto formating/correcting that actually works first the option doesn't stop the auto-correcting i disabled every option on the tab and clicked ok and it still auto-corrected, i disabled the auto-correct spelling, formating and everything else that said "auto-correct" no results, second you hide the option so that only advanced users can disable anything. what ever happened to wysiwyg? ---------------- 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=6c747646-a71a-4336-9ab4-9e5b401a231a&dg=microsoft.public.word.vba.general Tag: Removing blank lines in report Tag: 80623
  - 23
    - DownAndAccrossTableSorter This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C62C16.5D12E5A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I scrathed together the following today in response to a post in the = tables group. I searched Google groups for a similiar solution and = since I didn't see anything, I wanted to share it here. As alwasy = constructive criticism is welcomed. Objective is to sort a word table down and accross. Put cursor is table = to be sorted and run the following. Option Explicit Sub DownAndAccrossTableSorter() Dim i As Long Dim j As Long Dim k As Long Dim oCell As Cell Dim oTmpTable As Table Dim oRng As Word.Range i =3D Selection.Tables(1).Range.Cells.Count 'Insert a temporary 1 column/multi-row table at the end of the document With ActiveDocument.Paragraphs.Last .Range.Paragraphs.Add .Range.Tables.Add .Range, i, 1 End With 'Define this table Set oTmpTable =3D = ActiveDocument.Tables(ActiveDocument.Range.Tables.Count) 'Fill oTmpTable with contents of table to be sorted For Each oCell In Selection.Tables(1).Range.Cells With oTmpTable .Cell(i, 1).Range.Text =3D Left(oCell.Range.Text, = Len(oCell.Range.Text) - 2) End With i =3D i - 1 Next 'Sort oTmpTable.Sort 'Redefine selected table contents based on sort With Selection.Tables(1) For i =3D 1 To .Range.Columns.Count For j =3D 1 To .Range.Rows.Count k =3D k + 1 Set oRng =3D oTmpTable.Cell(k, 1).Range .Cell(j, i).Range.Text =3D Left(oRng.Text, Len(oRng.Text) - 2) Next j Next i End With 'Clean up. oTmpTable.Delete Set oRng =3D Nothing Set oTmpTable =3D Nothing End Sub --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0008_01C62C16.5D12E5A0 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.2802" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>I scrathed together the following today in response to a post in = the tables=20 group.  I searched Google groups for a similiar solution and = since I=20 didn't see anything, I  wanted to share it here.  As alwasy=20 constructive criticism is welcomed.</DIV> <DIV> </DIV> <DIV>Objective is to sort a word table down and accross.  Put = cursor is=20 table to be sorted and run the following.</DIV> <DIV> </DIV> <DIV>Option Explicit<BR>Sub DownAndAccrossTableSorter()<BR>Dim i As = Long<BR>Dim=20 j As Long<BR>Dim k As Long<BR>Dim oCell As Cell<BR>Dim oTmpTable As = Table<BR>Dim=20 oRng As Word.Range<BR>i =3D = Selection.Tables(1).Range.Cells.Count<BR>'Insert a=20 temporary 1 column/multi-row table at the end of the document<BR>With=20 ActiveDocument.Paragraphs.Last<BR>  .Range.Paragraphs.Add<BR>  = .Range.Tables.Add .Range, i, 1<BR>End With<BR>'Define this table<BR>Set=20 oTmpTable =3D = ActiveDocument.Tables(ActiveDocument.Range.Tables.Count)<BR>'Fill=20 oTmpTable with contents of table to be sorted<BR>For Each oCell In=20 Selection.Tables(1).Range.Cells<BR>  With = oTmpTable<BR>   =20 .Cell(i, 1).Range.Text =3D Left(oCell.Range.Text, Len(oCell.Range.Text) = -=20 2)<BR>  End With<BR>  i =3D i -=20 1<BR>Next<BR>'Sort<BR>oTmpTable.Sort<BR>'Redefine selected table = contents based=20 on sort<BR>With Selection.Tables(1)<BR>  For i =3D 1 To=20 .Range.Columns.Count<BR>    For j =3D 1 To=20 .Range.Rows.Count<BR>       k =3D k +=20 1<BR>       Set oRng =3D oTmpTable.Cell(k, = 1).Range<BR>      .Cell(j, i).Range.Text =3D=20 Left(oRng.Text, Len(oRng.Text) - 2)<BR>    Next = j<BR>  Next=20 i<BR>End With<BR>'Clean up.<BR>oTmpTable.Delete<BR>Set oRng =3D = Nothing<BR>Set=20 oTmpTable =3D Nothing<BR>End Sub</DIV> <DIV><BR>-- <BR>Greg Maxey/Word MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0008_01C62C16.5D12E5A0-- Tag: Removing blank lines in report Tag: 80622
  - 24
    - how to insert a non-standard Field -ie. day before today Is there a formula/code in order to insert a Field that will automatically input the Full Month Before the current Date's Month (the date you're working on the doc)? Any ideas? For example, this is for a Monthly Report - I want to be able to put the field in the Heading/title to be the Monthly Report for the Month PRIOR to when I'm filling the report out. Tag: Removing blank lines in report Tag: 80614
  - 25
    - How do I save the click event for web browser I have saved a document which includes hyperlinks on command buttons as html. when I open them in browser the click event does not open the hyperlinked page. Instead I have to click and then hit ENTER. Tag: Removing blank lines in report Tag: 80608

Hi,

I have a report that produces a text file. When I open it in Word its
about 3,000 pages long. This is because 60% of the report is blank
lines.

Is there a way to take out the blank lines using VBA? Once the file is
reduced I hope to import it into Excel.

Regards
Garry

Top

Re: Removing blank lines in report by Greg

Greg
Thu Feb 09 22:13:56 CST 2006

Gazzr,

There are more direct ways to perform your specific task, but my Clean Up
Text Addin may prove helpful.

http://gregmaxey.mvps.org/Clean_Up_Text.htm

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

Gazzr wrote:
> Hi,
>
> I have a report that produces a text file. When I open it in Word its
> about 3,000 pages long. This is because 60% of the report is blank
> lines.
>
> Is there a way to take out the blank lines using VBA? Once the file is
> reduced I hope to import it into Excel.
>
> Regards
> Garry

Top