converting Word macro to VB[RESOVLED]

[Garn]

I have this macro from word i would like to use in VB, but there are a few things that i cant get to work.. first you see the macro as it looked in Word..

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
NormalTemplate.AutoTextEntries("Side X af Y").Insert Where:=Selection. _
Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


and this is what i would think it should look like in VB..

If wrdDoc.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If wrdDoc.ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If wrdDoc.Selection.HeaderFooter.IsHeader = True Then
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
wrdDoc.NormalTemplate.AutoTextEntries("Side X af Y").Insert Where:=Selection. _
Range, RichText:=True
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

the blue lines is where it fails..

what the macro is doing is Page numbers with one of the autotext formats.

Anyone know what the problem might be ?

Best regards

Garnet

[si_the_geek]

On both of those lines I think you need the Application object rather than the Document object.


Try replacing wrdDoc with the object you have for the application (maybe wrdApp.?), or wrdDoc.Application


However, this section of your code (with my comments):

'select header
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If wrdDoc.Selection.HeaderFooter.IsHeader = True Then
  'if header is selected [which it is!], select footer
  wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
  '.. else select header [should never happen]
  wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If

could be replaced with this for the same effect:

'select the footer
wrdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

[Garn]

cheers m8 its working.. thanks