Skip to content

Commit

Permalink
Resolve API conflicts 1
Browse files Browse the repository at this point in the history
  • Loading branch information
Linda Caputo committed Aug 27, 2018
1 parent 52e3045 commit 5bf7f4b
Show file tree
Hide file tree
Showing 445 changed files with 0 additions and 2,910 deletions.
6 changes: 0 additions & 6 deletions Office-Mac/GrantAccessToMultipleFiles.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,15 +31,9 @@ The command returns whether the user granted permission or not.
|True|The user grants permission to the files.|
|False|The user denies permission to the files.|

<<<<<<< HEAD
**Note:** After the user grants permissions, the permissions are stored with the app. The user doesn’t need to grant permission to the file again.

**Example**
=======
**Note:** After the user grants permissions, the permissions are stored with the app. The user doesn’t need to grant permission to the file again.

## Example
>>>>>>> master

```vb
Sub requestFileAccess()
Expand Down
6 changes: 0 additions & 6 deletions api/Publisher.Application.OfficeDataSourceObject.md
Original file line number Diff line number Diff line change
Expand Up @@ -39,15 +39,9 @@ Dim odsoTemp As Office.OfficeDataSourceObject
Set odsoTemp = Application.OfficeDataSourceObject

With odsoTemp
<<<<<<< HEAD
Debug.Print "Connection string: " &; .ConnectString
Debug.Print "Data source: " &; .DataSource
Debug.Print "Table: " &; .Table
=======
Debug.Print "Connection string: " & .ConnectString
Debug.Print "Data source: " & .DataSource
Debug.Print "Table: " & .Table
>>>>>>> master
End With
```

Expand Down
8 changes: 0 additions & 8 deletions api/Publisher.Application.Path.md
Original file line number Diff line number Diff line change
Expand Up @@ -44,19 +44,11 @@ Sub PathNames()
strName = Application.ActiveDocument.Name
strFullName = Application.ActiveDocument.FullName

<<<<<<< HEAD
' Note the file name &; path differences
' while executing.
MsgBox "The path is: " &; strPath
MsgBox "The file name is: " &; strName
MsgBox "The path &; file name are: " &; strFullName
=======
' Note the file name & path differences
' while executing.
MsgBox "The path is: " & strPath
MsgBox "The file name is: " & strName
MsgBox "The path & file name are: " & strFullName
>>>>>>> master

End Sub
```
Expand Down
5 changes: 0 additions & 5 deletions api/Publisher.Application.PathSeparator.md
Original file line number Diff line number Diff line change
Expand Up @@ -46,13 +46,8 @@ This example displays the path and file name of the active document.
Sub PathFileName()

With Application
<<<<<<< HEAD
MsgBox "The name of the active document: " &; vbLf &; _
.Path &; .PathSeparator &; ActiveDocument.Name
=======
MsgBox "The name of the active document: " & vbLf & _
.Path & .PathSeparator & ActiveDocument.Name
>>>>>>> master
End With

End Sub
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PicasToPoints.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " picas = " _
&; Format(Application _
.Picas ToPoints(Value:=Val(strInput)), _
"0.00") &; " points"
=======
strOutput = Trim(strInput) & " picas = " _
& Format(Application _
.Picas ToPoints(Value:=Val(strInput)), _
"0.00") & " points"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PixelsToPoints.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " pixels = " _
&; Format(Application _
.PixelsToPoints(Value:=Val(strInput)), _
"0.00") &; " points"
=======
strOutput = Trim(strInput) & " pixels = " _
& Format(Application _
.PixelsToPoints(Value:=Val(strInput)), _
"0.00") & " points"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToCentimeters.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToCentimeters(Value:=Val(strInput)), _
"0.00") &; " cm"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToCentimeters(Value:=Val(strInput)), _
"0.00") & " cm"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToEmus.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToEmus(Value:=Val(strInput)), _
"0.00") &; " emus"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToEmus(Value:=Val(strInput)), _
"0.00") & " emus"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToInches.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToInches(Value:=Val(strInput)), _
"0.00") &; " in"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToInches(Value:=Val(strInput)), _
"0.00") & " in"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
6 changes: 0 additions & 6 deletions api/Publisher.Application.PointsToLines.md
Original file line number Diff line number Diff line change
Expand Up @@ -56,15 +56,9 @@ Selection.TextRange.Font.Size = 10

' Display result for 12 points.
strOutput = "12 points = " _
<<<<<<< HEAD
&; Format(Application _
.PointsToLines(Value:=12), _
"0.00") &; " lines"
=======
& Format(Application _
.PointsToLines(Value:=12), _
"0.00") & " lines"
>>>>>>> master
```


Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToMillimeters.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToMillimeters(Value:=Val(strInput)), _
"0.00") &; " mm"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToMillimeters(Value:=Val(strInput)), _
"0.00") & " mm"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToPicas.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToPicas(Value:=Val(strInput)), _
"0.00") &; " picas"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToPicas(Value:=Val(strInput)), _
"0.00") & " picas"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToPixels.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToPixels(Value:=Val(strInput)), _
"0.00") &; " pixels"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToPixels(Value:=Val(strInput)), _
"0.00") & " pixels"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.PointsToTwips.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " points = " _
&; Format(Application _
.PointsToTwips(Value:=Val(strInput)), _
"0.00") &; " twips"
=======
strOutput = Trim(strInput) & " points = " _
& Format(Application _
.PointsToTwips(Value:=Val(strInput)), _
"0.00") & " twips"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.Application.ProductCode.md
Original file line number Diff line number Diff line change
Expand Up @@ -35,11 +35,7 @@ The following example displays the product code for Publisher.

```vb
MsgBox "The product code for Microsoft Publisher is " _
<<<<<<< HEAD
&; ProductCode
=======
& ProductCode
>>>>>>> master
```


Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.Application.TemplateFolderPath.md
Original file line number Diff line number Diff line change
Expand Up @@ -59,11 +59,7 @@ Sub CreateNewPubTemplate()
End With
End With
End With
<<<<<<< HEAD
.SaveAs FileName:=strFolder &; "\NewPubTemplt.pub"
=======
.SaveAs FileName:=strFolder & "\NewPubTemplt.pub"
>>>>>>> master
End With
End Sub
```
Expand Down
7 changes: 0 additions & 7 deletions api/Publisher.Application.TwipsToPoints.md
Original file line number Diff line number Diff line change
Expand Up @@ -60,17 +60,10 @@ Do While True
If Val(strInput) = 0 Then Exit Do

' Evaluate and display result.
<<<<<<< HEAD
strOutput = Trim(strInput) &; " twips = " _
&; Format(Application _
.TwipsToPoints(Value:=Val(strInput)), _
"0.00") &; " points"
=======
strOutput = Trim(strInput) & " twips = " _
& Format(Application _
.TwipsToPoints(Value:=Val(strInput)), _
"0.00") & " points"
>>>>>>> master

MsgBox strOutput
Loop
Expand Down
5 changes: 0 additions & 5 deletions api/Publisher.Application.Version.md
Original file line number Diff line number Diff line change
Expand Up @@ -35,13 +35,8 @@ The following example displays the version and build number of the currently-ins

```vb
MsgBox "You are currently running Microsoft Publisher, " _
<<<<<<< HEAD
&; " version " &; Application.Version &; ", build " _
&; Application.Build &; "."
=======
& " version " & Application.Version & ", build " _
& Application.Build & "."
>>>>>>> master

```

Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.BorderArt.Application.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,11 +31,7 @@ This example displays the version and build information for Publisher.
```vb
With Application
MsgBox "Current Publisher: version " _
<<<<<<< HEAD
&; .Version &; " build " &; .Build
=======
& .Version & " build " & .Build
>>>>>>> master
End With
```

Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.BorderArtFormat.Application.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,11 +31,7 @@ This example displays the version and build information for Publisher.
```vb
With Application
MsgBox "Current Publisher: version " _
<<<<<<< HEAD
&; .Version &; " build " &; .Build
=======
& .Version & " build " & .Build
>>>>>>> master
End With
```

Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.BorderArts.Application.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,11 +31,7 @@ This example displays the version and build information for Publisher.
```vb
With Application
MsgBox "Current Publisher: version " _
<<<<<<< HEAD
&; .Version &; " build " &; .Build
=======
& .Version & " build " & .Build
>>>>>>> master
End With
```

Expand Down
9 changes: 0 additions & 9 deletions api/Publisher.BorderArts.Count.md
Original file line number Diff line number Diff line change
Expand Up @@ -30,13 +30,8 @@ This example displays the number of pages in the active document.

```vb
Sub CountNumberOfPages()
<<<<<<< HEAD
MsgBox "Your publication contains " &; _
ActiveDocument.Pages.Count &; " page(s)."
=======
MsgBox "Your publication contains " & _
ActiveDocument.Pages.Count & " page(s)."
>>>>>>> master
End Sub
```

Expand All @@ -54,11 +49,7 @@ Sub CountNumberOfShapes()
intShapes = intShapes + pg.Shapes.Count
Next

<<<<<<< HEAD
MsgBox "Your publication contains " &; intShapes &; " shape(s)."
=======
MsgBox "Your publication contains " & intShapes & " shape(s)."
>>>>>>> master
End Sub
```

Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.CalloutFormat.Application.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,11 +31,7 @@ This example displays the version and build information for Publisher.
```vb
With Application
MsgBox "Current Publisher: version " _
<<<<<<< HEAD
&; .Version &; " build " &; .Build
=======
& .Version & " build " & .Build
>>>>>>> master
End With
```

Expand Down
4 changes: 0 additions & 4 deletions api/Publisher.CatalogMergeShapes.Application.md
Original file line number Diff line number Diff line change
Expand Up @@ -31,11 +31,7 @@ This example displays the version and build information for Publisher.
```vb
With Application
MsgBox "Current Publisher: version " _
<<<<<<< HEAD
&; .Version &; " build " &; .Build
=======
& .Version & " build " & .Build
>>>>>>> master
End With
```

Expand Down
Loading

0 comments on commit 5bf7f4b

Please sign in to comment.