Resolve API conflicts 1

Author: Linda Caputo

Office-Mac/GrantAccessToMultipleFiles.md

@@ -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()  

api/Publisher.Application.OfficeDataSourceObject.md

@@ -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
 ```
 

api/Publisher.Application.Path.md

@@ -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
 ```

api/Publisher.Application.PathSeparator.md

@@ -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

api/Publisher.Application.PicasToPoints.md

@@ -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

api/Publisher.Application.PixelsToPoints.md

@@ -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 

api/Publisher.Application.PointsToCentimeters.md

@@ -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

api/Publisher.Application.PointsToEmus.md

@@ -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 

api/Publisher.Application.PointsToInches.md

@@ -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 

api/Publisher.Application.PointsToLines.md

@@ -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
 ```