Summary
Stopped working

Date
‎22/‎05/‎2013 14:23 PM

Status
Report sent

Description
Faulting Application Path: C:\Program Files\Microsoft Office\Office12\WINWORD.EXE

Problem signature
Problem Event Name: APPCRASH
Application Name: WINWORD.EXE
Application Version: 12.0.4518.1014
Application Timestamp: 45428028
Fault Module Name: StackHash_cf5b
Fault Module Version: 6.1.7600.16385
Fault Module Timestamp: 4a5bdadb
Exception Code: c0000374
Exception Offset: 000c283b
OS Version: 6.1.7600.2.0.0.768.3
Locale ID: 1033
Additional Information 1: cf5b
Additional Information 2: cf5bf56c10d891ecd6557c2dd101716c
Additional Information 3: bef3
Additional Information 4: bef3cd6574c986624d56149c52252308

Extra information about the problem
Bucket ID: 2676058056

  This is a different question that I posted before. I want to get the page Break inside a table in MS word so I have
a table in MS word, Inside the table, I have a text called PageBreak in one of the rows of the table. As soon as I see this word PageBreak,
I want an actual PageBreak inside the table. I know how to achieve this if I don't have a table in Microsoft word by replacing the text with ^m, but I am having problem with page break inside the table.
 I want to write this in a macro.

How can I acheive this.

Any help will be greatly appreciated.

   I am trying to replace the page Break word in MS word document with actual PAGE Break so I wrote the macro below, but I am not getting the
desired results. I tried putting false instead of true for  .MatchWildCards=True, but that didn't work either. I just want to do page break
wherever I see the word -- PAGE Break -- in my MS word document.

With Selection.Find
    .Text = "-- PAGE Break --"
    .Replacement.Text ="^m"
    .Forward=True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase=False
    .MatchWholeWord= False
    .MatchWildCards=True
    .MatchSoundsLike=False
    .MatchAllWordForms=False
END WITH

I spend lot of time figuring this out, but it seem that inserting page break through Macro is not working. I am using Office 2007(MS word 2007)

Any help will be grealy appreciated.

The messaging interface has returned an unknown error.w

I am using 2007 word file in word we insert scanner doc with shortcut key  alt+ips, now I want to know the manual option in toll bar

.Application.ActiveDocument.Comments.Add(this.Application.Selection.Range, "XXX property was modified");//This works but the comment goes to selection focus, which is obvious. I tried to select my content control so that this line would add the comment to content control. What I get is "This Command is not available"

2. Below line gives the same "this Command is not available" COM Exception.

control.Range.Comments.Add(control.Range, "My comment");

Please help.

Private Sub CheckBox195_Click()
If ActiveDocument.CheckBox195.Value = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="EmpGoal"
Selection.InsertAfter "If yes, what type of work?    "
End If

End Sub

I received the solution from another forum.  Put it in a table and make a second column for the paragraph numbers and in the first column hide the page numbers by moving the tab marker over to the right so they are hidden.  You can insert the paragraph numbers by using the Reference tool and referencing a paragraph with the paragraph number.

Thanks

Sub SplitByPage()
'
' SplitByPage Macro
'
Dim docName As String
Dim Counter As String
Dim DocDir As String
Dim sPath As String
Dim sName As String
Dim Letters As Long
Dim rDoc As Document
Dim rLoad As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Select Folder To Save Split Files and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) <> "\" Then DocDir = DocDir + "\"
End With
Set rDoc = ActiveDocument
With rDoc
If Len(.Path) = 0 Then
.Save
End If
If UCase(Right(.Name, 1)) = "X" Then
sName = Left(.Name, Len(.Name) - 5)
Else
sName = Left(.Name, Len(.Name) - 4)
End If
rLoad = rDoc.FullName
End With
With Selection
.EndKey Unit:=wdStory
Letters = .Information(wdActiveEndPageNumber)
.HomeKey Unit:=wdStory
End With
Counter = 1
While Counter < Letters + 1
Application.ScreenUpdating = False
docName = DocDir _
& sName & Chr(32) & _
LTrim$(Str$(Counter)) & ".docm"
ActiveDocument.Bookmarks("\page").Range.Cut
Documents.Add
With Selection
.Paste
.EndKey Unit:=wdStory
.MoveLeft Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With
ActiveDocument.SaveAs FileName:=docName, _
FileFormat:=wdFormatDocument
ActiveWindow.Close
Counter = Counter + 1
Application.ScreenUpdating = True
Wend
rDoc.Close wdDoNotSaveChanges
Documents.Open rLoad
End Sub

I have a document with 3 sections. There are 10 total pages. I am trying to show section 1 and section 2 as being 1 of 8 while section 3 has a separate numbering scheme (x of 2). The first 2 sections are linked with 'same as previous' and the 3rd section unlinked with a next page section break. The 3rd section shows as starting on page 1 correctly and is using SectionPage as the total. This shows up as 1 of 2 and 2 of 2 correctly (page 9 and 10 of total). The first section is set to start on 1 and is using NumPages as the total. The second section is linked to the first and is using NumPages as the total as well. Section 1 and 2 show x of 10 as the total page. I am trying to show this as x of 8. I can't use Bookmarks and PageRef because I need section 1 and 2 to be dynamic and the page with the bookmark may not always be needed to render. Is there a different merge statement or combination of statements i could use to get the total number of pages for multiple sections? thanks.

----------

this has been resolved.

Sub MultiSave()
'
' MultiSave Macro
' save the current document to current format and additional named formats
'
    Dim i As Integer, rc As Integer
    Dim strDocName As String, strDocExt As String
      
    'define named formats
    Const myFileTypes = 3   'how many file types do I have?
    Dim thisFormat As Variant
    Dim myFormats(1 To myFileTypes, 2) As Variant   'wdFormat and ext
    myFormats(1, 1) = wdFormatDocumentDefault 'Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.
    myFormats(1, 2) = ".docx"
    myFormats(2, 1) = wdFormatRTF       'Rich text format (RTF).
    myFormats(2, 2) = ".rtf"
    myFormats(3, 1) = wdFormatPDF       'PDF format.
    myFormats(3, 2) = ".pdf"
    
    'get filename parts and set the directory
    strDocExt = Right(ActiveDocument.Name, Len(ActiveDocument.Name) - InStrRev(ActiveDocument.Name, ".") + 1)
    strDocName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)
    ChangeFileOpenDirectory ActiveDocument.Path
    
    'if not blocked, save to current format
    If ActiveDocument.ReadOnly = False Then ActiveDocument.Save
          
    'save to indicated formats that are different from current format
    For i = 1 To myFileTypes
      If (strDocExt <> myFormats(i, 2)) Then ActiveDocument.SaveAs _
              FileName:=strDocName + myFormats(i, 2), _
              FileFormat:=myFormats(i, 1), _
              AddToRecentFiles:=False
    Next
End Sub

1. How do I name an object preferably not through VBA? I have tried to use the Properties and controls toolbox.
2. How do I add meaningful names to Objects?
3. How do I select the object that I have named through the controls toolbox?