Pages

Search

Microsoft Word - Lost document

Microsoft Word - Lost document

Lost document

Posted: 20 Jan 2015 03:01 PM PST

I downloaded free app for word to my iPad. I started composing a rather in depth historical document which I worked on for 4-5 days. Each time I opened word the document appeared. No problem. I never did name the document but word was saving it constantly. Today I tried to use app but it was frozen. I reset iPad, still no document and word still frozen. I installed upgrade to my ipad 8.1.2 I think. After download complete word is working perfectly but the document is not there. The thought of re-researching all this material is painful. Help!

Macro to copy text, then save file as copied text

Posted: 20 Jan 2015 02:36 PM PST

I have a vast number of job applications where I am copying and pasting from a "print view" from a web browser into a MS Word document, which produces a document with lots of tables and nested tables, Somewhere in there is the name of the applicant... I can record a macro to find their name, since it'll always be in the same table/cell location, but I would like to have it Save As the name of the applicant as well. I can't seem to do that second part by just recording a macro.

Sub testing()
'
' testing Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Name:"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCell
    Selection.Copy

so far so good, but then I'm having problems with this part because it wants to save everything as "John Smith.doc" every time.

    ChangeFileOpenDirectory "C:\Users\fogharty\Desktop\"
    ActiveDocument.SaveAs2 FileName:="John Smith.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0
End Sub

Ideally, it would save as the applicant's name plus the current date... "John Smith 1-20-2015.doc, and to a specific folder on the desktop. But perhaps I'm dreaming.

Any help will be greatly appreciated. Thank you.

One more question on indexing all words in a Word document

Posted: 20 Jan 2015 01:31 PM PST

Now and then I need to make indexes in Word documents of the entire text of that particular document i.e. of every word from 1 letter and up.

Someone was kind enough to help me to a macro that helps to list the frequency, but I also need the INDEX.

I checked several macro sources, but didn't find one that simply takes over de impossible handword of marking every word in a tekst by hand.

Hoping!

Extract Comments to a new Document Macro - Including line numbers

Posted: 20 Jan 2015 01:17 PM PST

Hello

I am a newbie to using Macros. I found a template for extracting comments to a new document and managed to successfully create it and personalise the table titles. The table includes the page number the comment relates to. It would be far more useful to me for it to show the line number. Is there a way of doing this? Below is the macro code thingy I have been using. How do I get it to show which line number the comments relate to? Thank you in advance! If I manage to do this it will streamline my interview data analysis no end!

Penny

Sub ExtractCommentsToNewDocument()

    '=========================
    'Macro created 2007 by Lene Fredborg, DocTools - www.thedoctools.com
    'Revised October 2013 by Lene Fredborg: Date column added to extract
    'THIS MACRO IS COPYRIGHT. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE.
    'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART.
    '=========================
    'The macro creates a new document
    'and extracts all comments from the active document
    'incl. metadata
    
    'Minor adjustments are made to the styles used
    'You may need to change the style settings and table layout to fit your needs
    '=========================

    Dim oDoc As Document
    Dim oNewDoc As Document
    Dim oTable As Table
    Dim nCount As Long
    Dim n As Long
    Dim Title As String
    
    Title = "Extract All Comments to New Document"
    Set oDoc = ActiveDocument
    nCount = ActiveDocument.Comments.Count
    
    If nCount = 0 Then
        MsgBox "The active document contains no comments.", vbOKOnly, Title
        GoTo ExitHere
    Else
        'Stop if user does not click Yes
        If MsgBox("Do  you want to extract all comments to a new document?", _
                vbYesNo + vbQuestion, Title) <> vbYes Then
            GoTo ExitHere
        End If
    End If
        
    Application.ScreenUpdating = False
    'Create a new document for the comments, base on Normal.dot
    Set oNewDoc = Documents.Add
    'Set to landscape
    oNewDoc.PageSetup.Orientation = wdOrientLandscape
    'Insert a 4-column table for the comments
    With oNewDoc
        .Content = ""
        Set oTable = .Tables.Add _
            (Range:=Selection.Range, _
            NumRows:=nCount + 1, _
            NumColumns:=5)
    End With
    
    'Insert info in header - change date format as you wish
    oNewDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _
        "Comments extracted from: " & oDoc.FullName & vbCr & _
        "Created by: " & Application.UserName & vbCr & _
        "Creation date: " & Format(Date, "MMMM d, yyyy")
            
    'Adjust the Normal style and Header style
    With oNewDoc.Styles(wdStyleNormal)
        .Font.Name = "Arial"
        .Font.Size = 10
        .ParagraphFormat.LeftIndent = 0
        .ParagraphFormat.SpaceAfter = 6
    End With
    
    With oNewDoc.Styles(wdStyleHeader)
        .Font.Size = 8
        .ParagraphFormat.SpaceAfter = 0
    End With

    'Format the table appropriately
    With oTable
        .Range.Style = wdStyleNormal
        .AllowAutoFit = False
        .PreferredWidthType = wdPreferredWidthPercent
        .PreferredWidth = 100
        .Columns.PreferredWidthType = wdPreferredWidthPercent
        .Columns(1).PreferredWidth = 5
        .Columns(2).PreferredWidth = 23
        .Columns(3).PreferredWidth = 42
        .Columns(4).PreferredWidth = 18
        .Columns(5).PreferredWidth = 12
        .Rows(1).HeadingFormat = True
    End With

    'Insert table headings
    With oTable.Rows(1)
        .Range.Font.Bold = True
        .Cells(1).Range.Text = "Page"
        .Cells(2).Range.Text = "Code"
        .Cells(3).Range.Text = "Text"
        .Cells(4).Range.Text = "Interview"
        .Cells(5).Range.Text = "Date"
    End With
    
    'Get info from each comment from oDoc and insert in table
    For n = 1 To nCount
        With oTable.Rows(n + 1)
            'Page number
            .Cells(1).Range.Text = _
                oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
            'The comment itself
            .Cells(2).Range.Text = oDoc.Comments(n).Range.Text
            'The text marked by the comment
            .Cells(3).Range.Text = oDoc.Comments(n).Scope
            'The comment author
            .Cells(4).Range.Text = oDoc.Comments(n).Author
            'The comment date in format dd-MMM-yyyy
            .Cells(5).Range.Text = Format(oDoc.Comments(n).Date, "dd-MMM-yyyy")
        End With
    Next n
    
    Application.ScreenUpdating = True
    Application.ScreenRefresh
        
    oNewDoc.Activate
    MsgBox nCount & " comments found. Finished creating comments document.", vbOKOnly, Title

ExitHere:
    Set oDoc = Nothing
    Set oNewDoc = Nothing
    Set oTable = Nothing
End Sub

Equation symbols in Word

Posted: 20 Jan 2015 12:27 PM PST

Hello. I've got a question about some symbols.

I want to put the "normal subgroup" Symbol, I mean, this symbol.

but I don't wanna open that menu and search for the symbol.

For example, many symbols can be written with a command, for example "less or equal than" may be inserted writting "\leq" in the equation. Or the ones at the left side of the "normal subgroup symbol", for "is subset or has this as a subset", can be inserted writting "\subseteq" or "\superseteq", "\cdot" can be used for "dot product"

This works a lot similar to LaTeX. the command for "less or equal than", and of "is subset of" is the same, the one for "has this as a subset" is "\supseteq", "\cdot" also works.
And I can write the normal subgroup symbol with the "\triangleleft" command in LaTeX. So... is there any way I can personalize this to have some command, or some quick way to write this symbol? The command \triangleleft doesn't work in word (Even when a lot of LaTeX commands work in word)...

It would be very good if I could assign it a command like the ones in LaTeX.

microsoft word wont open documents

Posted: 20 Jan 2015 12:26 PM PST

I have the brand new word, 2013, I try to open my lecture notes from my blackboard website and presentations on powerpoint and neither of the programs will allow them to be opened. Ive tried everything just says can not open no other options...anyone have any ideas?

Avery Label Template not accurate

Posted: 20 Jan 2015 10:50 AM PST

Using Office 2013 on a Windows 7 machine

I am trying to print a full page of return address labels using an Avery template (either 8167 or 5267) from the mail merge -> labels list of choices.   The label text keeps creeping down bit by bit so that by the time I am at the bottom of the printed page, the labels are not usable.  The return address has crept so low that only the first two lines of the address are actually printed on the label.   Haven't had this problem before so I don't even know where to look for a fix.

Word macro to insert review changes into a separate doc

Posted: 20 Jan 2015 09:34 AM PST

Hi,

I have the following code to take my changes into a new document but the author, type etc. are not being inputted into their own columns - the table is displaying with multiple rows and 1 column. Is there a way to assign each arev to a column?

Dim arev As Revision
Dim docsource As Document, doctarget As Document
Set docsource = ActiveDocument
Set doctarget = Documents.Add
With docsource
    For Each arev In .Revisions
        doctarget.Range.InsertAfter arev.Author & vbTab & arev.Type & vbTab & arev.Range & vbCr
    Next arev
End With
doctarget.Range.ConvertToTable
End Sub

Thanks,

Adam

Possible to hide text until it's printed?

Posted: 20 Jan 2015 07:40 AM PST

I was curious - and I can't seem to track down any sort of answer. Is it possible to format text in a way that it remains hidden in the digital view of the document, but shows up in standard black when the document is printed?

Cropping width and height not setting independently

Posted: 20 Jan 2015 07:13 AM PST

I'm using Format Picture>Crop to crop a number of images to the same exact size, entering the dimensions into the Crop position Width: and Height: fields. Although it appears that these dimensions can be set independently of each other (which is exactly what I would expect), changing one dimension very slightly changes the other. For example, I try to crop an image to 4cm high and 5.5cm wide; Word resets the dimensions to 3.99cm high and 5.49cm wide. It's not a big enough adjustment to be a problem, but I can't understand why Word is doing this in the first place. Has anyone else had this problem?

Thanks!

office 365

Posted: 20 Jan 2015 01:19 AM PST

Have had 365 since April 2014 on both my desk top and laptop, all worked fine until December 2014 now office 365 doesn't work on my laptop.  I have uninstalled and re-installed, used the repair online and had remote assistance try and help. Now it still doesn't work on my laptop and I need urgent help as I need it for my studies.

Printing Problems on Avery Label

Posted: 19 Jan 2015 11:48 PM PST

I downloaded a template for Avery 5163 labels.     I completed the label, looked at the print preview and clicked print.   The labels ran through the printer, but did not print!    I can open other documents and they print with no problem.  I ran a diagnostics test in Microsoft Office 2010  and it shows no problems.  I also ran a troubleshooter for my HP Photosmart 6515, it also shows no problems!   Has anyone else had this issue?  If so, how did you correct it?  

This is frustrating!!!

microsoft word on ipad

Posted: 19 Jan 2015 08:37 PM PST

Hi

i have been trying to save documents on microsoft word into my onedrive email account but it seems to fail cos the 'connecting' box is flashing endlessly.. does anyone know of a solution?

thanks

Double sided numerical (001-300) tickets, Please Help!

Posted: 19 Jan 2015 03:51 PM PST

I use Microsoft Office 2010.

I need to make 300 double sided tickets that will be used for a charity sub sale. I usually use templates when I need to do things like this but I cant seem to find a template that suits my exact needs.

I need to make 6 double sided tickets per page. They need to have a numerical count from 001-300. I don't have a printer that prints double sided so I will need it that I can print out the 300 tickets and then place them all in the printer again upside down and print the backside evenly for me to cut them out. I'd prefer the tickets not have an border/outline but if its necessary I will make the exception.

If someone could point me to a tutorial or explain how I could do this, it would be greatly appreciated!

Microsoft Office Programs Crash When I Try to Insert a Picture

Posted: 19 Jan 2015 03:11 PM PST

Microsoft Office programs, Word, OneNote, and Excel, crash when I try to insert a picture.  This occurs when I try to insert a picture that I had saved to the Desktop.  I have repaired Office several times but this keeps happening.

I do have the add-in "Office Tabs" installed.

Any tips?

Macro for Document and PDF-Both With New Names and Locations

Posted: 19 Jan 2015 03:08 PM PST

I want to create a macro that allows me to "save as" an existing documents with a new title, and creates a PDF of it. I want to be able to create both simultaneously, name them the same thing, and I want to choose where they get saved.

So far, I've scoured the web and found this; it creates a new document and a PDF, but saves them both in the same place the original document is saved in.

Dim strName As String

ActiveDocument.Save

strName = Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) - 4)

strName = strName & "pdf"

ActiveDocument.ExportAsFixedFormat OutputFileName:=strName, _

                              ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _

                              wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, to:=99, _

                              Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _

                              CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

                              BitmapMissingFonts:=True, UseISO19005_1:=True


Also, I've found this; It does half of what I want. It allows me to name and choose where the PDF goes, but doesn't include the document. 

Dim StrPath As String, StrName As String, Result

With ActiveDocument

 On Error GoTo Errhandler

 StrPath = GetFolder & "\"

 StrName = Split(.Name, ".")(0)

 While Dir(StrPath & StrName & ".pdf") <> ""

   Result = InputBox("WARNING - A file already exists with the name:" & vbCr & _

     Split(.Name, ".")(0) & vbCr & _

     "You may edit the filename or continue without editing." _

     & vbCr & vbTab & vbTab & vbTab & "Proceed?", "File Exists", StrName)

   If Result = vbCancel Then Exit Sub

   If StrName = Result Then GoTo Overwrite

   StrName = Result

 Wend

Overwrite:

 .ExportAsFixedFormat OutputFileName:=StrPath & StrName & ".pdf", _

 ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _

 OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _

 Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _

 CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

 BitmapMissingFonts:=True, UseISO19005_1:=False

End With

Errhandler:

End Sub

Function GetFolder() As String

Dim oFolder As Object

Can anyone help come up with a variation on the two or just help fill in the gaps? I would really appreciate it. Thanks.