MS Word Macro

[dany]

Hi,

I am looking to write a macro for MS Word documents.

1. On Opening a word document, we need to check if the document uses A4 as PageSize.


2. If Yes, then for those pages which are 'Landscape' in orientation, we need to set the Left Margin to 1.8".
3. Forcefully Save.
4. Save must happen before any print command is issued.

I will really appreciate for any response.


Thanks in advance.

Dany

[macropod]

It would have helped had you actually posted this in the Word VBA forum. Posting Word VBA questions in the Publisher forum is a fairly sure way of ensuring they got get read by the Word specialists.

Moving thread to the Word VBA forum...

[gmayor]

How about

Sub FixMargin()
Dim oDoc As Document
Dim oSection As Section
    Set oDoc = ActiveDocument
    If oDoc.Sections(1).PageSetup.PaperSize = wdPaperA4 Then
        For Each oSection In oDoc.Sections
            If oSection.PageSetup.Orientation = wdOrientLandscape Then
                oSection.PageSetup.LeftMargin = InchesToPoints(1.8)
            End If
        Next oSection
        oDoc.Save
    End If
lbl_Exit:
    Set oDoc = Nothing
    Set oSection = Nothing
    Exit Sub
End Sub

[gmaxey]

I'm not trying to play "I can write that code in # lines or less" ;-). Just curious and would like comment on advantages/disadvantages (if either) of using defined variables such as oDoc in this case and explicitly setting objects (oSection) to nothing when it appears that oSection is set to nothing automatically anyway.

Sub FixMarginII()
Dim oSection As Section
  With ActiveDocument
    If .Sections(1).PageSetup.PaperSize = wdPaperA4 Then
      For Each oSection In .Sections
        If oSection.PageSetup.Orientation = wdOrientLandscape Then
          oSection.PageSetup.LeftMargin = InchesToPoints(1.8)
        End If
      Next oSection
      .Save
    End If
  End With
lbl_Exit:
  Exit Sub
End Sub

[gmayor]

I don't think there are any, other than personal programming style.
Both work.